[exo]

Petya V4sechkin, Iska, прошу прощения. а "слона" я и не заметил.

в продолжении. нужно автоматически заполнять "моё описание".
Но где его брать. Я думаю так же через командную строку:
net ещё в чём-нибудь мне поможет?

[exo]

вот что нашли с коллегой:

Код:

@echo off
rem setFullNameComment version 1.0 writen by rpocc
rem Retrieves current logged user's full canonical name on Windows NT4+ RU systems
rem and uses it as srvcomment. only accepted name format: "word word word"
for /f "skip=3 tokens=3,4,5" %%a in ('net users %username% /domain') do (
  if "%%a" neq "" (
    if "%%b" neq "" (
      if "%%c" neq "" (
        net config server /srvcomment:"%%a %%b %%c">nul
        )
      )
    )
  rem (exit immediately after very first step)
  goto exitproc
  )
:exitproc

его в GPO, дать права на изменения описания осталось.

[Busla]

Я менял (удалённо) через wmi, но стандартный wmic совершенно не переваривал пробелы в описании, в итоге переписал на wsh.

А зачем вообще нужно в описание компьютера проставлять текущего пользователя? - практически весь вменяемый софт для мониторинга и т.п. итак умеет запрашивать залогиненых пользователей.

[Iska]

Я менял (удалённо) через wmi, но стандартный wmic совершенно не переваривал пробелы в описании »

Как делали, не припомните, коллега?

[Busla]

Iska, в ПН на работе гляну

[Busla]

до ужаса просто:

Код:

wmic /NODE:компьютер OS SET Description="описание"

при условии, что запускается от учётной записи имеющей необходимый привелегии; иначе нужные данные указываются в команде через /USER и /PASSWORD (см. встроенную справку)

[Iska]

Спасибо, ясно. У меня с пробелами работает без вопросов. А вот запятую внутри «описание» воспринимает как разделитель свойств, и как-либо экранировать сие у меня не получилось.

[HOLY DIVER]

Все оказывается куда проще делалось.
Я сделал немного иначе:

Код:

On Error Resume Next
strComputer = "."
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
Set WSHShell = wscript.CreateObject("WScript.shell")

const HKEY_LOCAL_MACHINE = &H80000002
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ 
strComputer & "\root\default:StdRegProv")

strKeyPath = "SYSTEM\CurrentControlSet\Services\lanmanserver\parameters"
strValueName = "srvcomment"
oReg.GetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
 
if strValue = objUser.CN then
	Do Nothing
else
	'MsgBox("Write name is " & objUser.CN)
	WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters\srvcomment", objUser.CN
	WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\lanmanserver\parameters\srvcomment", objUser.CN
	WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Services\lanmanserver\parameters\srvcomment", objUser.CN
end if

[sharkmax]

Подниму тему вновь.

Все оказывается куда проще делалось. Я сделал немного иначе: »

Пробую запускать ваш скрипт выдаёт ошибку:
Сценарий: C:\Users\sharkmax\Desktop\HoBbm текстовый документ.vbs
Строка: 16
Символ: 5
Ошибка: Предполагается наличие 'While', 'Until' или окончания
инструкции
Код: 800А0404
Источник: Ошибка компиляции Microsoft VBScript
Или он не на vbs написан?
А вот этот батник норм отрабатывает:

вот что нашли с коллегой: Код: @echo off rem setFullNameComment version 1.0 writen by rpocc rem Retrieves current logged user's full canonical name on Windows NT4+ RU systems rem and uses it as srvcomment. only accepted name format: "word word word" for /f "skip=3 tokens=3,4,5" %%a in ('net users %username% /domain') do ( if "%%a" neq "" ( if "%%b" neq "" ( if "%%c" neq "" ( net config server /srvcomment:"%%a %%b %%c">nul ) ) ) rem (exit immediately after very first step) goto exitproc ) :exitproc его в GPO, дать права на изменения описания осталось. »

только как дать право юзверям править эти параметры реестра через GPO?

[Iska]

Или он не на vbs написан? »

«Do Nothing» — такой команды не существует. Судя по всему, это банальный комментарий, т.е., должно было быть как-то так:

Код:

if strValue = objUser.CN then
	'Do Nothing
else