Hahner_Microsoft-Word-2010---Das-Ideenbuch_ISBN_9783866457980

Benutzerdaten abrufen: INI-Datei, Registry oder Active Directory
End If
On Error GoTo 0
Set oadUser = Nothing
Set oadSystemInfo = Nothing
End Sub
Nicht immer ist der am PC angemeldete Benutzer auch derjenige, dessen Daten in den
Dokumentvorlagen oder Formularen eingesetzt werden sollen. In diesem Fall können
Sie in einem Dialogfeld alle im AD hinterlegten Benutzer anzeigen und den Benutzer
selbst auswählen lassen (siehe Abbildung 7.12). Dieser Vorgang ist zugegebenermaßen
deutlich aufwendiger und erfordert spezielle »AD-Datenbankabfragen«.
Listing 7.7 Die Abfrage aller Benutzer im AD ist deutlich aufwendiger
Sub pAlleBenutzerAusDemADauslesen()
Dim objRootDSE As Object
Dim strDNSDomain As String
Dim adoCommand, adoConnection, adoRecordset As Object
On Error Resume Next
Set objRootDSE = GetObject("LDAP://RootDSE")
If Err = 0 Then
strDNSDomain = objRootDSE.Get("defaultNamingContext")
Set adoCommand = CreateObject("ADODB.Command")
Set adoConnection = CreateObject("ADODB.Connection")
adoConnection.Provider = "ADsDSOObject"
adoConnection.Open "Active Directory Provider"
adoCommand.ActiveConnection = adoConnection
adoCommand.CommandText = ";" & _
"(&(objectCategory=person)(objectClass=user));" & _
"sn,givenName,streetAddress,postalCode,l;subtree"
Set adoRecordset = adoCommand.Execute
Do Until adoRecordset.EOF
If Not IsNull((adoRecordset.Fields("sn").Value)) Then
frmAlleBenutzerAusADauslesen.lstBenutzer.AddItem _
adoRecordset.Fields("sn").Value & ", " & _
adoRecordset.Fields("givenName").Value & ", " & _
adoRecordset.Fields("streetAddress").Value & ", " & _
adoRecordset.Fields("postalCode").Value & ", " & _
adoRecordset.Fields("l").Value
End If
adoRecordset.MoveNext
Loop
Else
frmAlleBenutzerAusADauslesen.lstBenutzer.AddItem "- Kein AD vorhanden - "
End If
On Error GoTo 0
End Sub
In der in Listing 7.7 gezeigten Routine wird zuerst der Root-Eintrag des AD ermittelt,
um anschließend von dort aus alle User-Objekte auszulesen und im Listenfeld lstBenutzer
213