User über LDAP suchen

16/01/2008 - 20:43 von Stefan Brand | Report spam
Hallo,

ich arbeite mit WinXP-SP2 und Office2003-SP2 in Verbindung zu einem
Exchange2003-Server.

Ich möchte über LDAP verschiedene Userdaten aus der AD abfragen. Bisher muss
ich nur immer meine Daten abfragen und dies habe ich mit dem Script

Dim objSystemInfo As Object
Dim objUser As Object

Set objSystemInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSystemInfo.UserName)
MsgBox objUser.DisplayName

erfolgreich gemacht.

Aber wie muss ich das Script aufbauen, wenn ich nach dem Anmeldeaccount
suche, aber mri die genaue OU nicht bekannt ist?

Danke
 

Lesen sie die antworten

#1 mw
22/01/2008 - 13:30 | Warnen spam
hallo stefan

das kannst du mit visual studio, asp.net machen.
dort gibt es eine klasse: objectClass = user
danach kommst du an alle attribute in diesem object ran.

adsuche.SearchRoot = New
DirectoryEntry("LDAP://dc=firma,dc=local")
adsuche.Filter = "(&( objectclass=user)(samaccountname=" &
Session("aktuellerBenutzerkuerzel").ToString & "))"
'MsgBox(Session("aktuellerBenutzerkuerzel").ToString)

adsuche.SearchScope = SearchScope.Subtree
adergebnis = adsuche.FindOne()

nachname = adergebnis.GetDirectoryEntry().Properties("sn").Value
vorname =
adergebnis.GetDirectoryEntry().Properties("givenname").Value

usw.

gruss mark



"Stefan Brand" schrieb im Newsbeitrag
news:
Hallo,

ich arbeite mit WinXP-SP2 und Office2003-SP2 in Verbindung zu einem
Exchange2003-Server.

Ich möchte über LDAP verschiedene Userdaten aus der AD abfragen. Bisher
muss
ich nur immer meine Daten abfragen und dies habe ich mit dem Script

Dim objSystemInfo As Object
Dim objUser As Object

Set objSystemInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSystemInfo.UserName)
MsgBox objUser.DisplayName

erfolgreich gemacht.

Aber wie muss ich das Script aufbauen, wenn ich nach dem Anmeldeaccount
suche, aber mri die genaue OU nicht bekannt ist?

Danke

Ähnliche fragen