Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

mit vb ad gruppe anlegen

Frage Entwicklung VB for Applications

Mitglied: ottl05

ottl05 (Level 1) - Jetzt verbinden

03.04.2009, aktualisiert 09:23 Uhr, 5724 Aufrufe, 2 Kommentare

Hallo,

ich habe aus diesem Beitrag 2
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"

01.
  
02.
'CreateGroupsFromList.vbs 
03.
 
04.
Const OU = "ou=Rechte,ou=BOB,ou=NL,ou=Ke-U,dc=Kemmler-Baustoffe,dc=de" 
05.
Const List = "c:\temp\Gruppenliste.txt" 
06.
 
07.
Const ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP = &H4  
08.
Const ADS_GROUP_TYPE_SECURITY_ENABLED = &h80000000 
09.
 
10.
Set objOU = GetObject("LDAP://" & OU) 
11.
Set fso = CreateObject("Scripting.FileSystemObject") 
12.
 
13.
If Not fso.FileExists(List) Then 
14.
	WScript.Echo "Datei " & List & " nicht gefunden!" 
15.
	WScript.Quit 1 
16.
End If 
17.
 
18.
arrGruppen = Split(fso.OpenTextFile(List, 1, False).ReadAll, vbCrLF) 
19.
For Each strGruppe In arrGruppen 
20.
	WScript.Echo "Erstelle Gruppe: " & strGruppe 
21.
	MakeGroup strGruppe 
22.
Next 
23.
WScript.Echo "Fertig." 
24.
 
25.
Sub MakeGroup(strGrName) 
26.
Set objGroup = objOU.Create("Group", "cn=" & strGrName) 
27.
objGroup.Put "sAMAccountName", strGrName 
28.
objGroup.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP Or ADS_GROUP_TYPE_SECURITY_ENABLED 
29.
objGroup.SetInfo 
30.
End Sub
an was liegt es?
Mitglied: ottl05
03.04.2009 um 10:50 Uhr
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.
Bitte warten ..
Mitglied: dog
03.04.2009 um 12:37 Uhr
Problem also behoben.

Und für den Fall gibt es hier die Funktion "Beitrag als gelöst markieren"...
Bitte warten ..
Ähnliche Inhalte
Microsoft
gelöst SharePoint 2013 Foundation AD-Gruppe Synchronisation (1)

Frage von shadowisblue zum Thema Microsoft ...

Windows Userverwaltung
AD Gruppe der Domänen-Admins überwachen (5)

Frage von ThorstenRay zum Thema Windows Userverwaltung ...

Windows Server
Abfragen, wann eine im AD erstellte Gruppe verfügbar ist (4)

Frage von imacer zum Thema Windows Server ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Viren und Trojaner
Ransomware .nm4 (15)

Frage von Zyklo92 zum Thema Viren und Trojaner ...

iOS
16 iPads zentrall verwalten (14)

Frage von simonlohr zum Thema iOS ...

Microsoft Office
+1.000 Ordner in Outlook: Wie besser? (11)

Frage von Matsushita zum Thema Microsoft Office ...