Const ADS_SCOPE_SUBTREE = 2
objConnection = CreateObject („ADODB.Connection“) einstellen
objCommand = CreateObject („ADODB.Command“) einstellen
objConnection.Provider = „ADsDSOObject“
objConnection.Open „aktiver Verzeichnis-Versorger“
Einstellen objCommand.ActiveConnection = objConnection
objCommand.CommandText = „AUSERWÄHLTE Post, sAMAccountName, displayName, showInAddressBook, ADsPath VON „LDAP: //ou=Organisations, dc=HQ, dc=intra“ WO objectCategory='user'"
objCommand.Properties („Seiten-Größe“) = 2000
objCommand.Properties („Art auf“) = „displayName“
objRecordSet = objCommand.Execute einstellen
|