Vorgestellt wird hier ein Source Code für Visual Basic 6 zum Auslesen eines Active Directory und Erstellung einer Userdatei im CSV Format.
Wie oft ist es schon vorgekommen. Ihr braucht mal eben ganz schnell eine Liste aus dem AD um irgendwelche Abgleiche oder Listen zu erstellen.
Das ist es gut wenn ihr ein Script parat habt welches die Rohdaten bereitstellt. Und wenn möglich auch noch recht fix. Darum habe ich mir vor einiger Zeit darüber Gedanken gemacht. Daraufhin entstand dieses kleine Script.
Ausgegeben werden:
- SAMAccountname -> Anmeldename
- Lastname -> Nachname
- Givenname -> Vorname
- TelephoneNumber -> hinterlegte Telefonnummer
- Mail -> Mailadresse
- location -> Standort, wenn eingetragen natürlich
- street -> Straße
- LDAP-Pfad -> Pfad in der AD Struktur
- Department -> Abteilung
- HomeDirectory -> persönliches Laufwerk
- LogonScript -> verwendetes, dem Benutzer zugewiesenes Anmeldescript
- IsAccountLocked -> Ist der Account gesperrt?
- userWorkstations – w
- Wenn eingetragen, an welchen Computerobjekten ist eine Anmeldung erlaubt.
Dim objAs, objUser, sUser, oDomain, oComputer
Dim ListeOU(5000), strLDAPQuery, objCON, Anzahl, Bereich