Добрый день, спасибо за ответ.
Если так:
читать дальше »
Код:
Dim adsinfo, ThisComp, oUser
Set adsinfo = CreateObject("adsysteminfo")
Set ThisComp = GetObject("LDAP://dc" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://dc" & adsinfo.UserName)
Thiscomp.put "Department", "Logged on: " + oUser.cn + " " + CStr(Now)
ThisComp.Setinfo
oUser.put "Department", "Logged on: " + ThisComp.cn + " " + CStr(Now)
oUser.Setinfo
То вывод такой:
Код:
c:\script.vbs (4, 1) (null): Такой объект на сервере отсутствует.
Не понятно о каком объекте речь, тем более что 1 раз этот скрипт все-таки отработал. Объекты пользователя (под сеансом которого запускается скрипт) и компьютера, на котором это делается - точно существуют в базе того КД, куда происходит обращение ("LDAP://dc"). Если речь о каких-то других объектах - поясните пожалуйста.
