Hier beschreibe ich ein Script um einen Active Directory User (Benutzerkonto) in eine AD Gruppe aufzunehmen.
Es geht hier vor allem nicht um den einzelnen Vorgang zu einem Benutzerkonto, der mit Sicherheit auch immer wieder benötigt wird. Es geht um eine Vorstufe der Automatisierung.
Ihr könnt den Code natürlich abändern oder auch gänzlich neu schreiben. Wichtig ist ihr habt einen Plan und macht nicht immer alles manuell. Da verliert man echt den Spass.
User=InputBox(“Usernamen eingeben”,”Userinput”)
Gruppe=InputBox(“Gruppennamen eingeben”,”Userinput”)
User=InputBox("Usernamen eingeben","Userinput")
Gruppe=InputBox("Gruppennamen eingeben","Userinput")
' Gruppe auswählen
Set ou = GetObject("LDAP://ou=Groups,dc=abc,dc=xy")
Set gruppe_G = ou.GetObject("group", "cn=" + Gruppe)
' User Auswählen
Set ou = GetObject("LDAP://ou=SWM-Users,dc=intra,dc=swm,dc=de")
Set User_G = ou.GetObject("user", "cn=" + User)
gruppe_G.Add User_G.ADsPathEs geht hier um die Vorbereitung einer Möglichkeit die Funktion Administratoren über ein Servicekonto möglich zu machen. Die Verarbeitung in Bezug auf ein AD Benutzerkonto ist eines der Hauptaufgaben der Administration.
