vohinh134

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?

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