S
stormystormy
Hallo Leute
Kann mir wer sagen warum hier der Command abgeschnitten wird?!
Bei objCommand.CommandText (siehe Funktion)
sollte
<LDAP://dc=m086 >;(&(objectCategory=User)(samAccountName=rsci044));samAccountName,ADSPath;subtree
herauskommen
aber leider schneidet er immer das "<LDAP://dc=m086 " weg
Warum
Bis jetzt weiss ich wenn man das 1. Zeichen weglässt funktioniert es "<"
Funktion unten
Danke Roland
Dim adoConnection
Dim objCommand
Dim objRecordSet
adoConnection = CreateObject("ADODB.Connection")
adoConnection.Open("Provider=ADsDSOObject;")
objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = adoConnection
objCommand.CommandText = "<LDAP://" + strDefaultNamingContext + _
" >;(&(objectCategory=Computer)" + _
"(Name=" + strHostName + _
"));samAccountName,ADSPath;subtree"
objRecordSet = objCommand.Execute
GetLDAPPathOfHostName = objRecordSet.Fields.Item(1)
objCommand = Nothing
adoConnection.Close()
Kann mir wer sagen warum hier der Command abgeschnitten wird?!
Bei objCommand.CommandText (siehe Funktion)
sollte
<LDAP://dc=m086 >;(&(objectCategory=User)(samAccountName=rsci044));samAccountName,ADSPath;subtree
herauskommen
aber leider schneidet er immer das "<LDAP://dc=m086 " weg
Warum
Bis jetzt weiss ich wenn man das 1. Zeichen weglässt funktioniert es "<"
Funktion unten
Danke Roland
Dim adoConnection
Dim objCommand
Dim objRecordSet
adoConnection = CreateObject("ADODB.Connection")
adoConnection.Open("Provider=ADsDSOObject;")
objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = adoConnection
objCommand.CommandText = "<LDAP://" + strDefaultNamingContext + _
" >;(&(objectCategory=Computer)" + _
"(Name=" + strHostName + _
"));samAccountName,ADSPath;subtree"
objRecordSet = objCommand.Execute
GetLDAPPathOfHostName = objRecordSet.Fields.Item(1)
objCommand = Nothing
adoConnection.Close()