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

VBS - User inkl. PW im AD automatisch aus einer CSV erstellen

Frage Entwicklung VB for Applications

Mitglied: schaki84

schaki84 (Level 1) - Jetzt verbinden

27.05.2009, aktualisiert 11:52 Uhr, 6435 Aufrufe, 2 Kommentare

Hallo,

ich brauche wiedereinmal eure Hilfe.

Es soll ein Skript erstellt werden, welches automatisch Benutzerobjekte aus einer Tabelle (CSV Datei) in einem AD unterhalb einer OU (hier "testou") erstellt.

Er zeigt mir in folgenden zeile einen Fehler an (rot markiert). Scheinbar kann er das Passwort nicht zuordnen.


Verbesserungsvorschläge begrüße ich, da ich noch ein Anfänger beim programmieren bin
Danke im vorraus

option explicit
dim objrootLDAP, objcontainer, objuser, objshell
dim fso, line, data, file, strou, strpw, strsam, strcn
set fso = createobject("scripting.filesystemobject")
set file = fso.opentextfile("user.csv", 1, false)

strou = "ou = testou ,"

Set objrootLDAP = getobject("LDAP://rootDSE")
Set objcontainer = getobject("LDAP://" & strou & objrootLDAP.Get("defaultnamingcontext"))

while not file.atendofstream
line = file.readline()
data = split(line,";")

strsam = data(0)
strcn = data(0)
strpw = data(1)

Set objUser = objContainer.Create("User", "cn=" & strcn)
objuser.sAMAccountName = strsam
objuser.SetPassword strpw

wend
file.close
Mitglied: schaki84
28.05.2009 um 11:06 Uhr
Skript wurde geändert:

Ich habe die Passwortoption nun raus gelassen (erstmal). das Skript läuft auch soweit durch, zeigt keine Fehler an, nur wird leider kein User angelegt

Was ist daran falsch?



option explicit
dim objrootLDAP, objcontainer, objuser, objshell
dim fso, line, data, file, strcontainer, strpw, struser
set fso = createobject("scripting.filesystemobject")
set file = fso.opentextfile("user.csv", 1, false)

strcontainer = "ou=test ,"

Set objrootLDAP = getobject("LDAP://rootDSE")
Set objcontainer = GetObject("LDAP://" & strcontainer & _
objrootLDAP.Get("defaultNamingContext"))

while not file.atendofstream
line = file.readline()
data = split(line,";")

struser = data(0)
strpw = data(1)

Set objuser = objcontainer.create("User", "cn=" & struser)
objuser.put "sAMAccountName", struser
objuser.put "givenName", struser
'objuser.SetInfo
'objuser.SetPassword strpw

Wend

Set objShell=CreateObject("WScript.Shell")
objShell.Run "%systemroot%\system32\dsa.msc"

file.close
Bitte warten ..
Mitglied: schaki84
29.05.2009 um 12:31 Uhr
k,

ich konnt mir 20 mal in den hintern beißen, das Skript geht.

in der CSV Datei stand ein Username mit einem Komma drin, naja und bei Windows Usern darf kein Komma drin sein -.-


man man man ......
Bitte warten ..
Ähnliche Inhalte
Windows Server
Alle User im AD als CSV speichern
Frage von opc123Windows Server4 Kommentare

Hallo, wie kann ich alle User im AD in eine CSV speichern, aber ohne das die im AD gelöscht ...

Batch & Shell
AD User pflegen anhand einer CSV
gelöst Frage von LuciusCastusBatch & Shell4 Kommentare

Hallo, ich habe folgendes Problem. ich habe alle userdaten und darunter liegenden eigenschaften in eine .csv exportiert. Nun möchte ...

Windows 8
AD-User mit mehrstelliger Nummer erstellen
gelöst Frage von PN-SchrauberWindows 89 Kommentare

Hallo, ich sitze gerade vor einem Problem, wir haben ein Script (für die CMD) geschrieben, was automatisch das AD ...

Batch & Shell
Mehrere AD Benutzer aus CSV Datei mit PowerShell erstellen
Frage von windelterroristBatch & Shell1 Kommentar

Hallo Admins :) Mein Skript soll mehrere AD User aus einer CSV Datei per PowerShell erstellen. Soweit funktioniert das ...

Neue Wissensbeiträge
Microsoft Office

Office 2010 Starter erneut auf einer frischen Windows-Version installieren

Tipp von Lochkartenstanzer vor 1 TagMicrosoft Office9 Kommentare

Moin, vor ein paar Tagen schlug bei mir ein Kunde auf, der sein Widnows 7 geschrottet und es inklusive ...

Datenbanken

Upgrade MongoDB 3.4 auf 3.6

Erfahrungsbericht von Frank vor 1 TagDatenbanken

Seit kurzem gibt es das 3.6 Update für die MongoDB: Sicherheit, das Sortieren, Aggregation und auch die Performance wurde ...

SAN, NAS, DAS

Backdoor Zugang und Upload-Bug in vielen Western Digital MyCloud Geräten

Information von Frank vor 1 TagSAN, NAS, DAS2 Kommentare

James Bercegay von der Firma Gulftech hat die Fehler an Western Digital gemeldet und das Unternehmen stellt bereits ein ...

Microsoft Office

Outlook 2016 - Beim Weiterleiten keine PDF Anhänge mehr - KB4011626 entfernen

Erfahrungsbericht von Deepsys vor 1 TagMicrosoft Office3 Kommentare

Wenn ihr feststellt das ihr beim Weiterleiten von E-Mails keine PDF Anhänge mehr versendent, dann dankt Microsoft. Diese tolle ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

Drucker und Scanner
Gesucht DIN A3 Drucker
Frage von NebellichtDrucker und Scanner15 Kommentare

Hallo, ich möchte einen neuen DIN A3 Drucker kaufen. Um ab und zu, ca. 1 mal die Woche Farbausdrucke ...

iOS
Einladung vom iphone kalender
Frage von jensgebkeniOS15 Kommentare

Hallo Gemeinschaft, folgendes Problem - immer wenn ich von meinem Iphone einen Termin einztrage und diesem Termin Teilnehmer zuweise, ...

Windows Netzwerk
Drucker isolieren in Windows Domäne
gelöst Frage von lcer00Windows Netzwerk14 Kommentare

Hallo zusammen, habe eine Windows-AD (2012R2) in der es einen Druckerserver gibt. Mittlerweile verliere ich das Vertrauen in die ...