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

Frage Entwicklung VB for Applications

Mitglied: whatzzup

whatzzup (Level 1) - Jetzt verbinden

06.03.2013 um 12:17 Uhr, 1941 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
Active Directory - neues Feld hinzufügen
gelöst Frage von 91863Windows Server5 Kommentare

Hallo Zusammen, ich möchte ein neues Feld im AD hinzufügen. Google gibt da nicht viel her Habe das gefunden ...

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 ...

Neue Wissensbeiträge
MikroTik RouterOS

Mikrotik - Lets Encrypt Zertifikate mit MetaROUTER Instanz auf dem Router erzeugen

Anleitung von colinardo vor 10 StundenMikroTik RouterOS4 Kommentare

Einleitung Folgende Anleitung ist aus der Lage heraus entstanden das ein Kunde auf seinem Mikrotik sein Hotspot Captive Portal ...

Sicherheit

Sicherheitslücke in HP-Druckern - Firmware-Updates stehen bereit

Information von BassFishFox vor 11 StundenSicherheit

Ein weiterer Grund, dass Drucker keinerlei Verbindung nach "auswaerts" haben sollen. Unter Verwendung spezieller Malware können Angreifer aus der ...

Administrator.de Feedback

Entwicklertagebuch: Die Startseite wurde überarbeitet

Information von admtech vor 13 StundenAdministrator.de Feedback9 Kommentare

Hallo Administrator User, mit dem Release 5.7 haben wir unsere Startseite überarbeitet und die Beiträge und Fragen voneinander getrennt. ...

Vmware

VMware Desktopprodukte sind verwundbar

Information von Penny.Cilin vor 18 StundenVmware

Die VMware-Anwendungen zum Umgang mit virtuellen Maschinen Fusion, Horizon Client und Workstation sowie die Plattform NSX sind verwundbar. Davon ...

Heiß diskutierte Inhalte
Visual Studio
Vb.net-Tool zum Erzeugen einer Outlook-E-Mail
Frage von ahstaxVisual Studio24 Kommentare

Hallo, ich möchte gerne ein vb.net-Tool schreiben, das am Ende eine Outlook-E-Mail erzeugt. Grundsätzlich ist mir klar, wie das ...

Windows Server
RDP macht Server schneller???
Frage von JaniDJWindows Server16 Kommentare

Hallo Community, wir betrieben seit geraumer Zeit diverse virtuelle Maschinen und Server mit Windows Server 2012. Leider haben wir ...

Windows Netzwerk
Netzwerk Neustrukturierung
Frage von IT-DreamerWindows Netzwerk16 Kommentare

Hallo verehrte Community und Admins, bei uns im Haus steht eine Neustrukturierung an. Dafür benötige ich von euch ein ...

Windows 10
Windows 10 dunkler Bildschirm nach Umfallen
Frage von AkcentWindows 1015 Kommentare

Hallo, habe hier einen Windows 10 Rechner der von einem User umgefallen wurde (Beine übers Knie, an den PC ...