norbi
Goto Top

WMI Scritping - AD

Hallo zusammen,

ich habe gestern eine "lustige" Aufgabe meines Berufsschullehrers erhalten, folgende Sachlage:
Ihre Gruppe stellt die Gruppe der Administratoren in einer kleinen Firma da. Es wird in dieser Firma ein WIndows 2003 Standard Server eingesetzt. Außerdem müssen sehr oft neue Benutzer ins AD geschrieben werden. Diese Aufgabe möchten Sie dann an die Abteilungsleiter delegieren. Leider sind diese Personen nicht mit der Administration und dem Umgang mit dem AD vertraut. Ihre Gruppe entschließt sich gegen die Schulung der Abteilungsleiter.... Erstellen Sie ein kleinens Programm zur Einppflege von neuen Benutzern im AD...

Wir bzw. ein Klassenkamerad hatte die Idee, das ganze über ein LDAP (nutzen den grad von SUN, weil der OpenLDAP nicht lief) und über PHP abzuwickeln... Jedoch funktioniert das ganze nicht sooo wie wir uns es vorgestellt hatten... Hat jemand einen solchen Task mal abgewickelt?

Content-ID: 44868

Url: https://administrator.de/forum/wmi-scritping-ad-44868.html

Ausgedruckt am: 23.12.2024 um 05:12 Uhr

AndreasHoster
AndreasHoster 21.11.2006 um 09:48:26 Uhr
Goto Top
Nein, noch nicht.
Aber für AD Scripting schau mal bei MS vorbei:
http://www.microsoft.com/technet/scriptcenter/hubs/ad.mspx
Dort solltest Du genügend Hinweise und Beispiele finden, z.B. User aus einem Excel-Sheet anlegen.
norbi
norbi 21.11.2006 um 10:09:47 Uhr
Goto Top
Das ist leider nicht das, wonach ich bzw. meine Gruppe sucht... Danke trotzdem!
NatKingCole
NatKingCole 27.11.2006 um 08:38:49 Uhr
Goto Top
Hallo norbi,

Hier ist ein VB-Script zum Anlegen eines Benutzers, der angelegt wird, einer Gruppe zugeordnet wird und in einer OU plaziert wird:

Set objDomain = GetObject("LDAP:dc=fabrikam,dc=com")
Set objOU = objDomain.Create("organizationalUnit", "ou=Management")
objOU.SetInfo

Set objOU = GetObject("LDAP:
OU=Management,dc=fabrikam,dc=com")
Set objUser = objOU.Create("User", "cn= AckermanPilar")
objUser.Put "sAMAccountName", "AckermanPila"
objUser.SetInfo

Set objOU = GetObject("LDAP://OU=Management,dc=fabrikam,dc=com")
Set objGroup = objOU.Create("Group", "cn=atl-users")
objGroup.Put "sAMAccountName", "atl-users"
objGroup.SetInfo

objGroup.Add objUser.ADSPath

Quelle: The Portable Script Center / Microsoft