Top-Themen

Aktuelle Themen (A bis Z)

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

gelöst Active Directory Nutzer via VB-Script hinzufügen

Mitglied: whatzzup

whatzzup (Level 1) - Jetzt verbinden

06.03.2013 um 12:17 Uhr, 1954 Aufrufe, 13 Kommentare

Hallo Zusammen,

ich versuche mich schon seit kurzer Zeit an einem Script das es mir vereinfacht Active Directory Nutzer anzulegen. Ich habe einige Beispiele gefunden im Internet und sie versucht umzuschreiben. Es soll eine Textdatei einlesen und darauß die Information für die Nutzer nehmen nur findet es die Textdatei nicht.

01.
msg = "Kurzbeschreibung:" & vbCr & "Dieses Skript legt automatisiert neue Konten an und liest die dafür nötigen Angaben aus einer userliste ." & vbCr & vbCr & "Skript jetzt ausführen?" 
02.
antwort = MsgBox(msg, vbYesNo + vbQuestion) 
03.
if antwort = vbNo then 
04.
  MsgBox "Abbruch", vbExclamation 
05.
  WScript.Quit 
06.
end if 
07.
protokoll = "c:\protokoll.txt" 
08.
' Das WScript.Network-Objekt liefert den Namen des Computers, 
09.
' der als Vorgabe angeboten wird 
10.
'SYS: Windows Script Host Runtime Library 
11.
Set net = CreateObject("WScript.Network") 
12.
ComputerName = InputBox("Bitte geben Sie den Computernamen ein!",,net.ComputerName) 
13.
On Error Resume Next 
14.
Set computer = GetObject("WinNT://" & ComputerName & ",computer") 
15.
If Err.number = 0 Then 
16.
   MsgBox "Verbindung hergestellt." 
17.
Else 
18.
   MsgBox "Keine Verbindung zu " & ComputerName 
19.
   WScript.Quit 
20.
End If 
21.
On Error Goto 0 
22.
dateiname = "c:\userlist" 
23.
' Datei öffnen 
24.
'SYS: Microsoft ® Script Runtime 
25.
Set fs = CreateObject("Scripting.FileSystemObject") 
26.
If Not fs.FileExists(dateiname) Then 
27.
   MsgBox "Die Datei existiert am angegebenen Ort nicht!" 
28.
   WScript.Quit 
29.
End If 
30.
Set infos = fs.OpenTextFile(dateiname) 
31.
' Protokolldatei öffnen 
32.
Set output = fs.CreateTextFile(protokoll, True) 
33.
' Datei zeilenweise bis zum Ende (atEndOfStream) lesen: 
34.
Do Until infos.AtEndOfStream 
35.
   ' eine Zeile einlesen 
36.
   zeile = infos.ReadLine 
37.
   
38.
   ' Informationen durch Semikola splitten 
39.
   details = Split(zeile, ";") 
40.
   
41.
   ' Konto anlegen 
42.
   Set kontoneu = computer.Create("User", Trim(details(0))) 
43.
   kontoneu.SetPassword Trim(details(1)) 
44.
   kontoneu.Description = Trim(details(2)) 
45.
   On Error Resume Next 
46.
   kontoneu.SetInfo 
47.
   If Err.number = 0 Then 
48.
      WriteLog details(0) & " angelegt." 
49.
      AddToGroup Trim(details(3)), kontoneu.ADsPath 
50.
   Else 
51.
      WriteLog details(0) & " konnte nicht angelegt werden!" 
52.
   End If 
53.
   Err.Clear 
54.
   On Error Goto 0 
55.
Loop 
56.
' Dateien schließen 
57.
infos.Close 
58.
output.Close 
59.
' Protokoll anzeigen: 
60.
'SYS: Microsoft ® Script Runtime 
61.
Set wshshell = CreateObject("WScript.Shell") 
62.
wshshell.Run """" & protokoll & """" 
63.
 
64.
Sub AddToGroup(gruppenname, kontoname) 
65.
   On Error Resume Next 
66.
   Set gruppe = GetObject("WinNT://" & ComputerName & "/" & gruppenname & ",group") 
67.
   gruppe.Add kontoname 
68.
   gruppe.SetInfo 
69.
   If Err.number = 0 Then 
70.
      WriteLog "Konto ist Mitglied in Gruppe " & gruppenname 
71.
   Else 
72.
      WriteLog "Konto konnte nicht zum Mitglied in Gruppe " & gruppenname & " gemacht werden." 
73.
   End If 
74.
   Err.Clear 
75.
End Sub 
76.
Sub WriteLog(text) 
77.
   ' eine Zeile ins Protokoll schreiben 
78.
   output.WriteLine text 
79.
End Sub
Ich habe aber im angegeben Pfad die Datei. Ich bedanke mich schon mal im Voraus für jede Hilfe

Grüß
Mitglied: B4DschK4Pp
06.03.2013 um 12:24 Uhr
Hi,

ist "C:\userlist" ein Pfad, oder ist "userlist" das File?
Falls es eine Datei ist: hat sie wirklich keine Extension (.txt, .csv, etc)??

Gruß
Bitte warten ..
Mitglied: whatzzup
06.03.2013, aktualisiert um 12:29 Uhr
hi,

danke ich bin noch ein wenig frisch im Scripten die Datei wird jetzt gefunden. Nun bin ich so weit das die Konten nicht angelegt werden können fällt dir da vielleicht auch was ein ?
Bitte warten ..
Mitglied: B4DschK4Pp
06.03.2013 um 12:46 Uhr
Gibt es denn irgendwelche Fehlermeldungen?
Hast dein ausführender Benutzer überhaupt die nötigen Rechte, um im AD User anzulegen?
Bitte warten ..
Mitglied: whatzzup
06.03.2013 um 12:50 Uhr
ich denke es liegt an den Rechten denn Fehlermeldungen kriege ich nicht. Ich bin als Administrator eingeloggt auf einer VM.
Bitte warten ..
Mitglied: B4DschK4Pp
06.03.2013 um 12:52 Uhr
Domänenadministrator bzw. Administrator auf dem DC? Oder lokaler Admin auf der Kiste, auf der du das Script ausführst?
Btw: Wo führst du das Script aus? Direkt auf dem DC oder remote auf einem anderen Rechner?

Gruß
Bitte warten ..
Mitglied: whatzzup
06.03.2013, aktualisiert um 12:56 Uhr
Admin auf der Maschine in der ich es ausführe direkt auf dem DC
Bitte warten ..
Mitglied: B4DschK4Pp
06.03.2013 um 13:02 Uhr
Wie ist denn deine Textdatei aufgebaut? Vlt. kann ich dein Script später mal testen. Geht nur im Moment nicht.
Bitte warten ..
Mitglied: whatzzup
06.03.2013, aktualisiert um 13:25 Uhr
Textdatei-Schema ist Nutzername;Passwort;Kommentar;Gruppe und für jeden Nutzer halt eine neue Zeile
Bitte warten ..
Mitglied: B4DschK4Pp
06.03.2013 um 14:47 Uhr
Funktioniert einwandfrei bei mir. ;) Also ist das Script schonmal in Ordnung.
Bin als lokaler Admin auf dem DC angemeldet.

Jetzt könnte es bei dir eben noch ein Rechteproblem sein.

Gibt er bei dir zum Schluss eigentlich die Meldung, dass der User angelegt sei, oder kommt er erst gar nicht so weit? Die kam bei mir nämlich, aber im AD wurde mir der User nicht angezeigt. F5 half auch nicht. Wenn ich allerdings nach dem Benutzernamen gesucht habe, hat er ihn auch gefunden. Fenster zu und "Active Directory - Benutzer und -Computer" neu auf, und schon war er da. :D

Gruß
Bitte warten ..
Mitglied: whatzzup
06.03.2013, aktualisiert um 15:36 Uhr
Ich bekomme direkt vom Script gesagt bzw. vom Protokoll das die Benutzer nicht angelegt worden konnten.

wow du hast recht das Protokoll sagt kann nicht angelegt weil die schon angelegt waren von einem früheren Versuch.

vielen vielen dank
Bitte warten ..
Mitglied: B4DschK4Pp
06.03.2013 um 15:45 Uhr
Klasse, gerne doch.
Markierst du die Frage noch als gelöst?

Gruß
Bitte warten ..
Mitglied: whatzzup
06.03.2013 um 15:51 Uhr
öhm bevor ich dich verliere :D kannst du mir vielleicht noch bei einem weiteren Script helfen
Bitte warten ..
Mitglied: B4DschK4Pp
06.03.2013 um 19:14 Uhr
Siehe deine PM.
Kannst das hier also als erledigt markieren. ;)

Gruß B4DschK4Pp
Bitte warten ..
Ähnliche Inhalte
Entwicklung
VB Script Drucker hinzufügen
Frage von Marcel1989Entwicklung3 Kommentare

Funktionsweise sollte definitiv sein das mit einem Script sich 2 verschiedene Betriebssysteme ein und denselben Drucker holen. Mein Script ...

Windows Server

Script für Backup vom Active Directory erstellen

gelöst Frage von pencilWindows Server5 Kommentare

Hallo zusammen Ich möchte ein Backup eines Active Directorys (Windows Server 2008 R2) per Script erstellen. Kennt jemand gerade ...

Windows Netzwerk

Frage zum Hinzufügen einer Gruppe zu einem User im Active Directory

Frage von ScrollerWindows Netzwerk1 Kommentar

Hi, Hallo, wir haben für die Berechtigung im Filesystem Gruppen angelegt. Die Namen entsprechen der Ordnerstruktur. Bsp: für c:\ebene1\ebene2\ebene3 ...

Windows Server

Active Directory - Mitglieder zu Gruppe hinzufügen Rechte

Frage von WaishonWindows Server20 Kommentare

Moin zusammen, ich nutze einen Samba4 Server auf meinem Testserver, den ich als Active Directory Domain Controller aufgesetzt habe. ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 1 TagWindows 105 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 1 TagAdministrator.de Feedback18 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 1 TagHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 2 TagenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Windows Server
NTFS Berechtigungen Ordnerstruktur
Frage von hukahu23489Windows Server11 Kommentare

Hallo, ich bin seit kurzem in einer neuen IT-Abteilung und bin über das Berechtigungskonzept des Unternehmens sehr schockiert. Ich ...

Hyper-V
Hyper-V mit altem XEON-Server. Was ist falsch?
Frage von LollipopHyper-V11 Kommentare

Hallo Bin etwas frustriert. Kleinbetrieb, ca. 15 PC's, 2 Stk. Server mit einigen virtuellen PC's für Fernwartung, VaultServer für ...