Active Directory create Groups

zentraler Source Code zu der Prozedur Gruppenanlegen und verbinden

Active Directory Domain Info lesen

Domain Policy Info abfragen, Ausgegeben werden Passwort und Sicherheitsinformationen.

Active Directory set ProfilePath

Diese Prozedur setzt im Active Directory pro Organisationseinheit den Profilpfad aller enthaltener Userobjekte. Der UNC Pfad zu dem Profil wird angegeben. Das Verzeichnis selbst wird gleich dem Anmeldenamen gesetzt. Der LDAP Pfad wird am Anfang aus der Domain extrahiert.

Dim objAs, objUser, sUser, oDomain, oComputer
Dim group As IADsGroup
Dim Container As IADsContainer
Dim user As IADsUser
Dim computer As IADsComputer
Dim ListeOU(1000)
Dim strLDAPQuery ' As String
Dim objCON ' As ADODB.Connection
Dim W$, Anzahl
Dim BS, Ver, CName, WS
Dim Bereich

Active Directory read User

Source Code VB 6 zum Auslesen eines Active Directory und Erstellung einer Userdatei im CSV Format

Ausgegeben werden:

• SAMAccountname
• Lastname
• Givenname
• TelephoneNumber
• Mail
• location
• street
• LDAP-Pfad
• Department
• HomeDirectory
• LogonScript
• IsAccountLocked
• userWorkstations

Dim objAs, objUser, sUser, oDomain, oComputer
Dim ListeOU(5000)
Dim strLDAPQuery
Dim objCON
Dim Anzahl, Bereich