ottl05
Goto Top

mit vb ad gruppe anlegen

Hallo,

ich habe aus diesem Beitrag Gruppen in AD per Script und .txt
das Skript übernommen und angepasst (OU undListe)

Wenn ich jetzt das script als domainadmin auf einem DC ausführe bekomme ich die Fehlermeldung:
" The server is unwilling to process the request."
Der Fehler bezieht sich dabei auf die letzte Zeile im Skript "objGroup.SetInfo"

 
'CreateGroupsFromList.vbs  

Const OU = "ou=Rechte,ou=BOB,ou=NL,ou=Ke-U,dc=Kemmler-Baustoffe,dc=de"  
Const List = "c:\temp\Gruppenliste.txt"  

Const ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP = &H4 
Const ADS_GROUP_TYPE_SECURITY_ENABLED = &h80000000

Set objOU = GetObject("LDAP://" & OU)  
Set fso = CreateObject("Scripting.FileSystemObject")  

If Not fso.FileExists(List) Then
	WScript.Echo "Datei " & List & " nicht gefunden!"  
	WScript.Quit 1
End If

arrGruppen = Split(fso.OpenTextFile(List, 1, False).ReadAll, vbCrLF)
For Each strGruppe In arrGruppen
	WScript.Echo "Erstelle Gruppe: " & strGruppe  
	MakeGroup strGruppe
Next
WScript.Echo "Fertig."  

Sub MakeGroup(strGrName)
Set objGroup = objOU.Create("Group", "cn=" & strGrName)  
objGroup.Put "sAMAccountName", strGrName  
objGroup.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP Or ADS_GROUP_TYPE_SECURITY_ENABLED  
objGroup.SetInfo
End Sub

an was liegt es?

Content-Key: 113151

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

Printed on: April 24, 2024 at 18:04 o'clock

Member: ottl05
ottl05 Apr 03, 2009 at 08:50:07 (UTC)
Goto Top
hat sich erledigt.
hatte einen schreibfehler im code.
ich habe oben eine domain_local ausgewählt, weiter unten aber eine globale Gruppe erstellen wollen.
und das ging natürlich nicht.

Problem also behoben.
Member: dog
dog Apr 03, 2009 at 10:37:06 (UTC)
Goto Top
Problem also behoben.

Und für den Fall gibt es hier die Funktion "Beitrag als gelöst markieren"...