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, 4785 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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Windows Server
MSSQL 2012 User erstellen mit gewissen Berechtigungen (1)

Frage von rabo001 zum Thema Windows Server ...

Batch & Shell
gelöst User und AD Gruppe finden - wie das Pferd aufzäumen (5)

Frage von H41mSh1C0R zum Thema Batch & Shell ...

Windows Server
gelöst AD-User einer AD-Gruppe auslesen und in ein File schreiben (15)

Frage von Estefania zum Thema Windows Server ...

Netzwerkgrundlagen
IPsec - .conf und .secret erstellen aus Gruppe und User (16)

Frage von MaxMLe zum Thema Netzwerkgrundlagen ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (33)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...