Hallo,
ich habe ein Script geschrieben, welches mir aus einer Textdatei Gruppen in
der AD anlegt.
Funktioniert soweit auch.
Leider enthält der Gruppenname (Prä-Windows 2000) nicht den erstellten Gruppenname,
sondern ein Zahlen- / Buchstabenkombination.
Weiter möchte ich auch das Feld "Anmerkung" und "eMail" automatisch ausfüllen.
Leider habe ich hierzu keine Bezeichnung wie das Feld über LDAP angesprochen
wird gefunden.
Wie kann ich mein Script ab ändern, damit auch hier der erstellte Gruppenname
in "Prä-Windows 2000" angezeigt, und das Feld "Anmerkung" und "eMail" ausgefüllt
wird.
Hier das Script!
Function CreateGroup(strGSB_Name, strG_Name, strG_Desc)
Dim oDomain, oGroup, objRootDSE, objContainer
Dim strContainer
Const ADS_GROUP_TYPE_GLOBAL_GROUP = 2
Const ADS_GROUP_TYPE_SECURITY_ENABLED = &h80000000
' ON ERROR Resume Next
' == Stelle Verbindung zum AD her
'
SET objRootDSE = GetObject("LDAP://rootDSE")
IF strContainer = "" THEN
SET objContainer = GetObject("LDAP://" & "OU=GRUPPEN,OU=RESOURCEN " & "," &_
objRootDSE.Get("defaultNamingContext"))
Else
SET objContainer = GetObject("LDAP://" & strContainer & "," & objRootDSE.Get("defaultNamingContext"))
End If
' == Gruppe in OU=RESOURCEN GRUPPE WIN2003 anlegen
'
SET oGroup = objContainer.Create("group", "cn=" & strGSB_Name)
oGroup.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP + ADS_GROUP_TYPE_SECURITY_ENABLED
oGroup.Description = strG_Desc
oGroup.SetInfo
End Function
Danke für die Hilfe
Geronimo61