Okay well I figure this out finally. It seems that a possible update to LS was causing it to send a FQDN for the computer to the variable in the script, so using regular expressions I was able to strip out our .xxxx.edu ending so the sql query would work.
See below and be sure to replace line 5 code for to match your domain for the RegX.Pattern as well as in line 23. Notice I actually made a call to a specific DC as we have multiple and this seems to speed things up a bit.
' Get computer object in AD
strCompFQDN = WScript.Arguments(0)
Dim RegX
Set RegX = NEW RegExp
RegX.Pattern = ".xxxxx.edu"
RegX.Global = True
strComputer = RegX.Replace(strCompFQDN, "")
' MsgBox strCompFQDN
' MsgBox strComputer
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.CommandText = "SELECT distinguishedName FROM 'LDAP://DC1.xxxx.edu/DC=xxxx,DC=edu' WHERE objectCategory='computer' and name = '" & strComputer & "'"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
strDN = objRecordSet.Fields("distinguishedName").Value
objRecordSet.MoveNext
Loop
Set objComputer = GetObject("LDAP://" & strDN)
' Input new AD computer description field
newDescription = InputBox("Please enter the new AD Computer Description: ", "New description")
If newDescription = "" Then
Wscript.Echo ("Invalid description and this script will quit.")
Wscript.Quit
End If
' Write to AD computer object
objComputer.Put "Description" , newDescription
objComputer.SetInfo
