 |
|
| Mega_Demon |
03-07-2014 16:32 2371592 |
Добавление данных в описание компьютера
Добрый день, есть скрипт, который добавляем в политику на юзера и получаем следующие данные в описание компьютера
Система (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
|
Насколько я понимаю, скрипт, который знает имя пользователя...уже выполняется в контексте этого пользователя.
А значит, запросто, может не иметь прав на модификацию описания компьютера. Если, пользователь не админ.
|
| Mega_Demon |
04-07-2014 08:23 2371868 |
Опиум, на OU где лежат компы дал разрешения для Domain User-ров прописывать дискрипшин, может где то забыл галочку поставить, сейчас еще раз гляну.
Iska,
Цитата:
Цитата Mega_Demon
Вместо имени пользователя, скрипт прописываем имя компьютера. »
|
|
Mega_Demon, это у тебя логон скрипт или стартап скрипт?
|
| Mega_Demon |
15-07-2014 12:38 2376721 |
Опиум, Да, решил проблему, по ходу дела передал скрипт, восстановил ГПО.
|
Время: 09:24.
© OSzone.net 2001-