I run this script on all my workstation systems, and it works flawlessly for
over 500 systems, but I have ONE user where it bombs out with an error and AD
is not updated.
Dim ad, objUser, objComputer
Set ad = CreateObject("ADSystemInfo")
On error resume Next
Set objUser = GetObject("LDAP://" & ad.UserName)
On error resume Next
Set objComputer = GetObject("LDAP://" & ad.ComputerName)
On error resume Next
strMessage = objUser.CN & ", Last updated:" & Month(Now()) & "/" &
Day(now()) & "/" & right(year(now()),4)
objComputer.Description = strMessage
objComputer.SetInfo
I don't even know what to troubleshoot. This VPN script is applied via GPO
startup script, and runs only on workstation OS systems as the WMI filter is:
select * from Win32_OperatingSystem where not (name like "%server%").
* We have other system like this (perhaps slightly different software
load, it's a developers' m machine) that the script runs on successfully
* Scripts runs fine for this user if he logs onto a different machine
It comes down to likely some piece of installed software is tripping it up, but
there is nothing in the event logs.
Anyone?
Dave
