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"
an was liegt es?
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/forum/mit-vb-ad-gruppe-anlegen-113151.html
Ausgedruckt am: 23.12.2024 um 05:12 Uhr
2 Kommentare
Neuester Kommentar