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

VBS Fehlermeldung beim User erstellen im AD

Frage Entwicklung

Mitglied: 59769

59769 (Level 1)

02.07.2008, aktualisiert 03.07.2008, 4797 Aufrufe, 2 Kommentare

Hallo zusammen

Hoffe mir kann jemand helfen...

Ich habe einen Script geschrieben um User in AD zu erfassen, die es mir aus einem Excel Sheet liest.

Hier mein Script:
Set XL = WScript.CreateObject("Excel.Application")
XL.Workbooks.Open "c:\test.xls"
i = 1 'Zeilennummer der ersten Datenzeile

Do While XL.Worksheets(1).Cells(i,1).Value <> ""
strVorname = XL.Worksheets(1).Cells(i,3).Value
strNachname = XL.Worksheets(1).Cells(i,2).Value


Set RootDSE = GetObject("LDAP://RootDSE")
path = "LDAP://OU=Schüler," & RootDSE.Get("defaultNamingContext")
Set objContainer = GetObject(path)

Set objKonto = objContainer.Create("user", "CN=strVorname.strNachname")
objKonto.SamAccountName = "strVorname.strNachname"
objKonto.Description = "Ein neues Konto"
objKonto.SetInfo

With objKonto
.Profile = "\\DC\Users\%username%\Profile"
.LoginScript = "login1.vbs"
.HomeDirDrive = "H":
.HomeDirectory = "\\DC\Users\%username%\Home"


objKonto.SetPassword "Geheim99"

objKonto.AccountDisabled = False
objKonto.SetInfo


i = i + 1
Loop


WScript.Echo "User erfolgreich erstellt!"
WScript.Quit
Nun kommt aber immer die Meldung, loop ohne do gehe nicht...das do steht doch da? Was mache ich falsch? und würde der Script so überhaupt funktionieren?
Mitglied: bastla
02.07.2008 um 18:16 Uhr
Hallo Muecke!

Es ist ein steter Quell der Freude, die Interpretationsversuche des Interpreters hinsichtlich nicht abgeschlossener Blöcke interpretieren zu dürfen ...

Tatsächlich fehlt das "End With", aber den Letzten ("Loop") beißen die Hunde.

Grüße
bastla
Bitte warten ..
Mitglied: 59769
03.07.2008 um 08:25 Uhr
Hallo Bastla

Danke für die Hilfe, aber es funktioniert leider auch mit dem End With nicht...es kommt immer die Meldung, ein Gerät sei nicht angeschlossen. Kriegs irgendwie nicht hin

Gruss Muecke
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst Ich Möchte in einem Batch Programm User erstellen (14)

Frage von Gangster137910 zum Thema Batch & Shell ...

Windows Server
gelöst Failovercluster mit Windows 2012r2 erstellen AD, DNS (8)

Frage von eac1903 zum Thema Windows Server ...

Server
gelöst Ubuntu: ftp user erstellen und Zugriff auf Webseite geben (7)

Frage von laster zum Thema Server ...

Windows Server
MSSQL 2012 User erstellen mit gewissen Berechtigungen (1)

Frage von rabo001 zum Thema Windows Server ...

Neue Wissensbeiträge
Windows 10

Windows 8.x oder 10 Lizenz-Key aus dem ROM auslesen mit Linux

(5)

Tipp von Lochkartenstanzer zum Thema Windows 10 ...

Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(38)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
POS Hardware und alternativen zu Raid 1? (21)

Frage von Brotkasten zum Thema Festplatten, SSD, Raid ...

Viren und Trojaner
Verschlüsselungstrojaner simulieren (18)

Frage von AlbertMinrich zum Thema Viren und Trojaner ...

Windows 10
Windows 10 Home "Netzlaufwerk nicht bereit" (17)

Frage von Oggy01 zum Thema Windows 10 ...

Exchange Server
Exchange Postfach leeren - nicht löschen (10)

Frage von AndreasOC zum Thema Exchange Server ...