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?

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 113151

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

Ausgedruckt am: 22.11.2024 um 11:11 Uhr

2 Kommentare

Neuester Kommentar

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.