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-Key: 44868

Url: https://administrator.de/contentid/44868

Printed on: April 26, 2024 at 15:04 o'clock

Member: AndreasHoster
AndreasHoster Nov 21, 2006 at 08:48:26 (UTC)
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.
Member: norbi
norbi Nov 21, 2006 at 09:09:47 (UTC)
Goto Top
Das ist leider nicht das, wonach ich bzw. meine Gruppe sucht... Danke trotzdem!
Member: NatKingCole
NatKingCole Nov 27, 2006 at 07:38:49 (UTC)
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