Oy duh. Must be Monday, no brain attached. Pls hold...

From: [email protected] [mailto:[email protected]] On 
Behalf Of Michael B. Smith
Sent: Monday, May 20, 2013 6:22 AM
To: [email protected]
Subject: [NTSysADM] RE: .VBS error

Print out the error message dude!

From: [email protected]<mailto:[email protected]> 
[mailto:[email protected]] On Behalf Of David Lum
Sent: Monday, May 20, 2013 9:13 AM
To: [email protected]<mailto:[email protected]>
Subject: [NTSysADM] .VBS error

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



Reply via email to