Jump to content

vohinh134

Members
  • Gesamte Inhalte

    27
  • Registriert seit

  • Letzter Besuch

Alle erstellten Inhalte von vohinh134

  1. 1) Hast auf auf beiden Server die Delegierung richtig eingerichtet? (cifs und Microsoft Virtua System Migration Service) 2) Einstellung auf Server im Hyper-V korrekt eingestellt? (Livemigration aktivieren...) Anhand der Fehlermeldung vermute ich, dass bereits eine Maschine mit dem gleichen Namen auf dem Zielserver vorhanden ist. Du kannst bei der Fehlermeldung die Details einblenden. Was steht da?
  2. Hi Leute, erstmal vielen Dank für geniale Script so sieht meine aus: Dim fso, f, Zeile, Feld Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile ("kundendaten.txt",1,0) Do while not f.AtEndOfLine Zeile = f.readLine Feld = split(Zeile,",") Vorname = Feld(0) Nachname = Feld(1) Titel = Feld(2) Anmeldename= Feld(3) OU= Feld(4) Passwort =Feld(5) Telefon= Feld(6) Call BenuntzerAnlegen(Vorname,Nachname,Titel,Anmeldename,OU,Passwort,Telefon) Loop f.Close Wscript.Quit(0) Sub BenuntzerAnlegen(Vorname,Nachname,Titel,Anmeldename,OU,Passwort,Telefon) Dim ouo, b Set ouo = GetObject("LDAP://OU=Marketing,DC=nam,DC=nguyen,Dc=com") Set b = ouo.Create("user", "CN=" & Vorname & " " & Nachname) Dim WshShell, ret Set WshShell = WScript.CreateObject("WScript.Shell") b.Put "sAMAccountName", Vorname b.Put "displayName", Vorname & " " & Nachname b.Put "givenName", Vorname b.Put "sn", Nachname b.Put "userAccountControl", 66082 b.Put "userPrincipalName", Benutzer & "@nam.nguyen.com" b.Put "profilePath", "\\W2008TEST\daten\profile\" & Benutzer b.Put "homeDirectory", "\\W2008TEST\daten\home\" & Benutzer b.Put "homeDrive", "C:"" b.SetPassword TestPW! b.AccountDisabled = False b.SetInfo WScript.Sleep(3) ret = WshShell.Run ("verz.cmd " & Benutzer,0,1) End Sub allerdings krieg ich diese Fehlermeldung Zeile 35 / Zeichen 21 / Anweisungsende erwartet Code 800A0401 Ich bin mit meinem Latein am Ende Wär super ,wenn mir da jemanden helfen kann LG Nam
×
×
  • Neu erstellen...