Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - заполнить "описание компьютера"

Ответить
Настройки темы
CMD/BAT - заполнить "описание компьютера"
exo exo вне форума

Аватара для exo

Ветеран


Сообщения: 12417
Благодарности: 1442


Конфигурация

Профиль | Отправить PM | Цитировать


Добрый день.
Есть доменная сеть на 2003 сервере.
Есть клиенты ХР SP3.
Однако не у всех клиентов в описании компьютера стоят их Ф.И.О.
Что хочу, в GPO положить скрипт, который менял бы описание компьютера согласно "полному имени" в свойствах учётной записи.
Т.е. кто зашёл в систему, тот и отобразился в описании.
К сожалению у простых пользователей нет прав менять описание, поэтому нужно как-то повысить права.
Где-то я встречал подобный скрипт, но где? не помню...
Спасибо.

-------
Вежливый клиент всегда прав!


Отправлено: 12:49, 27-10-2010

 
exo exo вне форума Автор темы

Аватара для exo

Ветеран


Сообщения: 12417
Благодарности: 1442

Профиль | Отправить PM | Цитировать


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

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

-------
Вежливый клиент всегда прав!


Последний раз редактировалось exo, 29-10-2010 в 16:30.


Отправлено: 15:21, 29-10-2010 | #11



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.

exo exo вне форума Автор темы

Аватара для exo

Ветеран


Сообщения: 12417
Благодарности: 1442

Профиль | Отправить PM | Цитировать


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

Код: Выделить весь код
@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, дать права на изменения описания осталось.

-------
Вежливый клиент всегда прав!


Отправлено: 10:09, 03-11-2010 | #12


Ветеран


Сообщения: 3806
Благодарности: 824

Профиль | Отправить PM | Цитировать


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

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

Отправлено: 12:59, 04-11-2010 | #13


Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


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

Отправлено: 14:08, 04-11-2010 | #14


Ветеран


Сообщения: 3806
Благодарности: 824

Профиль | Отправить PM | Цитировать


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

Отправлено: 13:30, 05-11-2010 | #15


Ветеран


Сообщения: 3806
Благодарности: 824

Профиль | Отправить PM | Цитировать


до ужаса просто:
Код: Выделить весь код
wmic /NODE:компьютер OS SET Description="описание"
при условии, что запускается от учётной записи имеющей необходимый привелегии; иначе нужные данные указываются в команде через /USER и /PASSWORD (см. встроенную справку)
Это сообщение посчитали полезным следующие участники:

Отправлено: 14:30, 08-11-2010 | #16


Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


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

Отправлено: 15:21, 08-11-2010 | #17


Аватара для HOLY DIVER

Новый участник


Сообщения: 28
Благодарности: 2

Профиль | Сайт | Отправить PM | Цитировать


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

Код: Выделить весь код
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

Отправлено: 08:27, 03-12-2010 | #18


Новый участник


Сообщения: 5
Благодарности: 0

Профиль | Отправить PM | Цитировать


Подниму тему вновь.
Цитата HOLY DIVER:
Все оказывается куда проще делалось.
Я сделал немного иначе: »
Пробую запускать ваш скрипт выдаёт ошибку:
Сценарий: C:\Users\sharkmax\Desktop\HoBbm текстовый документ.vbs
Строка: 16
Символ: 5
Ошибка: Предполагается наличие 'While', 'Until' или окончания
инструкции
Код: 800А0404
Источник: Ошибка компиляции Microsoft VBScript
Или он не на vbs написан?
А вот этот батник норм отрабатывает:
Цитата 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, дать права на изменения описания осталось. »
только как дать право юзверям править эти параметры реестра через GPO?

Отправлено: 10:50, 27-05-2015 | #19


Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Цитата sharkmax:
Или он не на vbs написан? »
«Do Nothing» — такой команды не существует. Судя по всему, это банальный комментарий, т.е., должно было быть как-то так:
Код: Выделить весь код
if strValue = objUser.CN then
	'Do Nothing
else
Это сообщение посчитали полезным следующие участники:

Отправлено: 13:43, 27-05-2015 | #20



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - заполнить "описание компьютера"

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
[решено] "не включение" компьютера после очистки "пыльцы" yarcev20071 Непонятные проблемы с Железом 13 15-05-2010 01:26
7 / 2008 R2 - [решено] "-PC" вместо "-ПК" в имени компьютера Morpheus Автоматическая установка Windows 11 / 10 / 8 / 7 / Vista 7 30-03-2010 21:17
RIS. Внесение изменений в "описание" компьютера на этапе "синих экранов" RIS'а PIL123 Автоматическая установка Windows 2000/XP/2003 0 25-06-2007 14:36
Запретить/удалить пункт "Programs" ("Программы") из меню кнопки "Start" ("Пуск") submaster Microsoft Windows NT/2000/2003 5 13-09-2006 12:29
[решено] Ищу ссылку на описание команд в "Пуск" -> "Выполнить" Volan Microsoft Windows 2000/XP 3 29-06-2006 15:50




 
Переход