LDAP Abfrage über VB Script

On Error Resume Next 
 
 TelNr = "1234"   
 DomName= "MyDomain"  
 DomSuffix = "de"  
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 name FROM 'LDAP://dc=" & DomName & ",dc=" & DomSuffix & "' WHERE objectClass='user' "  & _   
        "AND telephoneNumber='*" & TelNr & "'"   
Set objRecordSet = objCommand.Execute 
If objRecordSet.recordcount=0 Then 
	Wscript.Echo "nix gefunden!"  
else
	objRecordSet.MoveFirst 
	Do Until objRecordSet.EOF 
		Wscript.Echo objRecordSet.Fields("Name").Value   
		objRecordSet.MoveNext 
	Loop 
end if