Falcon99
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Прошу помощи.
Для инвентаризации оборудования используем программу CheckCfg. Запуск производим через логон скрипт через GPO.
Код скрипта:
Код: Dim adsinfo, ThisComp, oUser
' Определяем объекты
Set adsinfo = CreateObject("adsysteminfo")
' adsinfo.ComputerName = CN=BUZUN,CN=Computers,DC=cityarch,DC=local
Set ThisComp = GetObject("LDAP://" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://" & adsinfo.UserName)
' Заносим данные в AD
' В поле Description компьютера пишем имя пользователя, и время входа
Thiscomp.put "description", oUser.cn + " ; LogIn: " + CStr(Now)
if not oUser.department="" then Thiscomp.put "department", oUser.department
ThisComp.Setinfo
'В поле Description учетки пользователя пишем имя компьютера и время входа
oUser.put "description", ThisComp.cn + " ; PowerOn: " + CStr(Now)
oUser.Setinfo
' Скрипт для запуска Checkcfg.exe с параметром DisplayName из ActiveDirectory
' Wait until the user is really logged in...
'WScript.Sleep 100 ' 1/10 th of a second
' Запуск Checkcfg
'Set WSHShell = WScript.CreateObject("WScript.Shell")
'WshShell.Run "\\Server\shared\checkcfg\Checkcfg.exe "+ThisComp.cn+" "+oUser.cn,0
' Скрипт для запуска Checkcfg.exe с параметром DisplayName из ActiveDirectory
' Wait until the user is really logged in...
WScript.Sleep 100 ' 1/10 th of a second
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set FSO=WScript.CreateObject("Scripting.FileSystemObject")
Set Tmp = FSO.GetSpecialFolder(2)
FSO.CopyFile "\\SERVER\Shared\Checkcfg\Checkcfg.*", Tmp, true
WshShell.Run Tmp & "\CHECKCFG.EXE " & ThisComp.cn & " " & oUser.cn
wscript.quit |
Проблема состоит в том что на Windows XP и 7 все отрабатывает нормально и данные собираются и заливаются на сервер. А вот на машинах Windows 8.1 простой запуск скрипта отрабатывает нормально, а вот из логон часть выполняется только первая часть, а вот запуск программы или не происходит или он не отрабатывается, т.к. информация на сервер не попадает.
Раньше использовали закомментированую часть скрипта, потом внесли изменения, та часть что ниже, но проблему не решило, хотя сами файлы копируются, и следовательно каталог доступен.
Что посоветуйте и куда "копать"?
|
И если вы и встревали, то под другим ником. 
