|
|
|
|
| Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Добавление данных в описание компьютера |
|
|
VBS/WSH/JS - Добавление данных в описание компьютера
|
|
Новый участник Сообщения: 32 |
Добрый день, есть скрипт, который добавляем в политику на юзера и получаем следующие данные в описание компьютера
Система (Hewlett-Packard HP Pro3500 Series) Logged on: ЮЗЕР 03.07.2014 8:32:48 Вместо имени пользователя, скрипт прописываем имя компьютера. Сам скрипт, скрипт не мой нашел на просторах интернета, AD 2008, пользовательские машинки Windows 7 прошу помощи  Код:
 On Error Resume Next
Dim adsinfo, ThisComp, oUser
Set adsinfo = CreateObject("adsysteminfo")
Set ThisComp = GetObject("LDAP://" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://" & adsinfo.UserName)
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
' Get service tag and computer manufacturer
For Each objSMBIOS in objWMI.ExecQuery("Select * from Win32_SystemEnclosure")
serviceTag = replace(objSMBIOS.SerialNumber, ",", ".")
manufacturer = replace(objSMBIOS.Manufacturer, ",", ".")
Next
' Get computer model
For Each objComputer in objWMI.ExecQuery("Select * from Win32_ComputerSystem")
model = trim(replace(objComputer.Model, ",", "."))
Next
' Get computer object in AD
Set objSysInfo = CreateObject("ADSystemInfo")
Set objComputer = GetObject("LDAP://" & objSysInfo.ComputerName)
' Build up description field data and save into computer object if different from current description
' We also do not update computers with a description that starts with an underscore (_)
newDescription = WshNetwork.UserName & "(" & manufacturer & " " & model & ") Logged on: " + oUser.cn + + CStr(Now)
if not objComputer.Description = newDescription and not left(objComputer.Description,1) = "_" then
objComputer.Description = newDescription
objComputer.SetInfo
end if
|
|
|
Отправлено: 16:32, 03-07-2014 |
|
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата Mega_Demon:
|
|
|
Отправлено: 16:40, 03-07-2014 | #2 |
|
Ветеран Сообщения: 547
|
Профиль | Сайт | Отправить PM | Цитировать Насколько я понимаю, скрипт, который знает имя пользователя...уже выполняется в контексте этого пользователя.
А значит, запросто, может не иметь прав на модификацию описания компьютера. Если, пользователь не админ. |
|
------- Отправлено: 17:35, 03-07-2014 | #3 |
|
Новый участник Сообщения: 32
|
Профиль | Отправить PM | Цитировать Опиум, на OU где лежат компы дал разрешения для Domain User-ров прописывать дискрипшин, может где то забыл галочку поставить, сейчас еще раз гляну.
Iska, Цитата Mega_Demon:
|
|
|
Отправлено: 08:23, 04-07-2014 | #4 |
|
Ветеран Сообщения: 547
|
Профиль | Сайт | Отправить PM | Цитировать Mega_Demon, это у тебя логон скрипт или стартап скрипт?
|
|
|
------- Отправлено: 09:37, 07-07-2014 | #5 |
|
Новый участник Сообщения: 32
|
Профиль | Отправить PM | Цитировать Опиум, Да, решил проблему, по ходу дела передал скрипт, восстановил ГПО.
|
|
Отправлено: 12:38, 15-07-2014 | #6 |
|
Участник сейчас на форуме |
 |
Участник вне форума |
 |
Автор темы |
 |
Сообщение прикреплено |
| |||||
| Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
| Описание учётки компьютера | BANDI-OGA | Microsoft Windows NT/2000/2003 | 6 | 15-07-2011 13:26 | |
| Разное - [решено] Нет доступа к строке Описание компьютера | pristan23 | Microsoft Windows 2000/XP | 1 | 07-01-2011 11:00 | |
| Разное - Программное описание процесса увеличения скорости передачи данных. | 1qsx | Программирование и базы данных | 7 | 05-12-2010 22:33 | |
| Интерфейс - Описание компьютера | Viper | Microsoft Windows Vista | 2 | 05-11-2009 20:18 | |
| добавление компьютера в домен | жаба | Автоматическая установка Windows 2000/XP/2003 | 9 | 09-04-2009 09:53 | |
|
|
Время: 14:08. | © OSzone.net 2001-
|
|
Powered by: vBulletin Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. |
