'script for changing the location attribute for a computer account in Active Directory On Error Resume Next Set objComputer = GetObject _ ("LDAP://") objComputer.Location = "This is a test" objComputer.SetInfo If err.number <> 0 Then WScript.Echo ("Script Check Failed") Wscript.Quit (1001) Else wscript.Echo ("Successfully Passed") wscript.Quit(0) End If