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
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, 6424 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
Batch & Shell
Mehrere AD Benutzer aus CSV Datei mit PowerShell erstellen (1)

Frage von windelterrorist zum Thema Batch & Shell ...

VB for Applications
gelöst VBS Ordner erstellen - wenn nicht vorhanden! (1)

Frage von freshman2017 zum Thema VB for Applications ...

Batch & Shell
gelöst Skript für: Automatisch generierte CSV Datei (3)

Frage von janelsaesser zum Thema Batch & Shell ...

Batch & Shell
gelöst AD-Felder für User mittels Powershell befüllen aus CSV-Datei (2)

Frage von Alex94G zum Thema Batch & Shell ...

Neue Wissensbeiträge
Linux Netzwerk

Ping und das einstellbare Bytepattern

(1)

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(3)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
SAN, NAS, DAS
MSA 2050 RAID Konfig (27)

Frage von Leo-le zum Thema SAN, NAS, DAS ...

Netzwerkmanagement
Windows Server 2008 R2: "netsh reset" nicht verfügbar? (11)

Frage von RickTucker zum Thema Netzwerkmanagement ...

Outlook & Mail
Outlook Suche liefert kein Ergebnise mehr (8)

Frage von Bjoern-B zum Thema Outlook & Mail ...

Windows Server
gelöst "Kiosk"System für Demoversion und neue Versionen einer Anwendung (7)

Frage von kpieper zum Thema Windows Server ...