Problem mit VBS Script...

Ich habe folgendes Script zusammen gebastelt. Der Script fragt gewisse Daten aus der AD ab und sollte sie in einer Textdatei ausgeben. Aber die angegebene Datei bleibt leer...

On Error Resume Next

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

objConnection.Properties("User ID") = "user"
objConnection.Properties("Password") = "pwd"
objConnection.Properties("Encrypt Password") = TRUE
objConnection.Properties("ADSI Flag") = 1

objCommand.Properties("Page Size") = 100
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

objCommand.CommandText = _
"SELECT Name FROM 'LDAP://dc=hallo,dc=ad,dc=firma,dc=com' WHERE Name='*print*'"
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
Wscript.Echo objRecordSet.Fields("Name").Value
objRecordSet.MoveNext
Loop