Comment out all the "On error resume next" statements and run this 
manually on the problem machine. What error does it give then?



Christopher Bodnar 
Enterprise Architect I, Corporate Office of Technology:Enterprise 
Architecture and Engineering Services 
Tel 610-807-6459 
3900 Burgess Place, Bethlehem, PA 18017 
[email protected] 




The Guardian Life Insurance Company of America

www.guardianlife.com 







From:   David Lum <[email protected]>
To:     "[email protected]" <[email protected]>
Date:   05/20/2013 09:17 AM
Subject:        [NTSysADM] .VBS error
Sent by:        [email protected]



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
 
 


-----------------------------------------
This message, and any attachments to it, may contain information
that is privileged, confidential, and exempt from disclosure under
applicable law.  If the reader of this message is not the intended
recipient, you are notified that any use, dissemination,
distribution, copying, or communication of this message is strictly
prohibited.  If you have received this message in error, please
notify the sender immediately by return e-mail and delete the
message and any attachments.  Thank you.

<<image/jpeg>>

Reply via email to