Can anyone Help me

[Happy]

If got a VB script that works and i wont to copy it to Autoit!

If do it with the VB to Autoit convertion tool but it doesent works!

Here is the VB Script!!

CODE

Dim fso, f, Zeile, Feld

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile ("user.csv",1,0)

Do while not f.AtEndOfLine

Zeile = f.readLine

Feld = split(Zeile,",")

Benutzer = Feld(0)

Vorname = Feld(1)

Nachname = Feld(2)

Passwort = Feld(3)

Beschreibung = Feld(4)

Telefon = Feld(5)

GroupString = Feld(6)

Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort,Beschreibung,Telefon,Groupstring)

Loop

f.Close

Wscript.Quit(0)

Sub BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort,Beschreibung,Telefon,Groupstring)

Dim ouo, b

Set ouo = GetObject("LDAP://OU=xxxxxxx,DC=xxxxxx,DC=net")

Set b = ouo.Create("user", "CN=" & Nachname & " " & Vorname)

Dim WshShell, ret

Set WshShell = WScript.CreateObject("WScript.Shell")

b.Put "sAMAccountName", Benutzer

b.Put "displayName", Nachname & " " & Vorname

b.Put "givenName", Vorname

b.Put "sn", Nachname

b.Put "scriptPath", "stdlogon.bat"

b.Put "userPrincipalName", Vorname & "." & Nachname & "@xxxxx.net"

b.Put "mail", Vorname & "." & Nachname & "@xxxxx.de"

b.Put "description", Beschreibung

b.Put "telephoneNumber", Telefon

b.Put "homephone", Telefon

b.Put "profilePath", "\\xxxxxx\kowindowsprofile\" & Benutzer

b.TerminalServicesProfilePath = "\\xxxxxx\kowtsprofile\" & Benutzer

b.SetInfo

b.SetPassword Passwort

b.AccountDisabled = False

b.PwdLastSet = 0

b.SetInfo

WScript.Sleep(1000)

Set GroupObj = GetObject("WinNT://GK/" & GroupString)

GroupObj.Add ("WinNT://GK/" & Benutzer)

Set DomainObj = Nothing

Set GroupObj = Nothing

End Sub

THX

And sorry for my bad English

[MrCreatoR]

Try this, but not sure abot syntax in some places:

expandcollapse popup

Dim $Zeile, $Feld

$FOpen = FileOpen("user.csv", 1)
While 1
    $Zeile = FileReadLine($FOpen)
    If @error Then ExitLoop
    $Feld = StringSplit($Zeile, ",")
    $Benutzer = $Feld[0]
    $Vorname = $Feld[1]
    $Nachname = $Feld[2]
    $Passwort = $Feld[3]
    $Beschreibung = $Feld[4]
    $Telefon = $Feld[5]
    $GroupString = $Feld[6]
    Call(BenuntzerAnlegen($Benutzer, $Vorname, $Nachname, $Passwort, $Beschreibung, $Telefon, $Groupstring))
WEnd
FileClose($FOpen)

Func BenuntzerAnlegen($Benutzer, $Vorname, $Nachname, $Passwort, $Beschreibung, $Telefon, $Groupstring)
    Dim $ouo, $b
    $ouo = ObjGet("LDAP://OU=xxxxxxx,DC=xxxxxx,DC=net")
    $b = $ouo.Create("user", "CN=" & $Nachname & " " & $Vorname)
    Dim $WshShell, $ret
    $WshShell = ObjCreate("WScript.Shell")
    $b.Put ("sAMAccountName", $Benutzer)
    $b.Put ("displayName", $Nachname & " " & $Vorname)
    $b.Put ("givenName", $Vorname)
    $b.Put ("sn", $Nachname)
    $b.Put ("scriptPath", "stdlogon.bat")
    $b.Put ("userPrincipalName", $Vorname & "." & $Nachname & "@xxxxx.net")
    $b.Put ("mail", $Vorname & "." & $Nachname & "@xxxxx.de")
    $b.Put ("description", $Beschreibung)
    $b.Put ("telephoneNumber", $Telefon)
    $b.Put ("homephone", $Telefon)
    $b.Put ("profilePath", "\\xxxxxx\kowindowsprofile\" & $Benutzer)
    $b.TerminalServicesProfilePath = "\\xxxxxx\kowtsprofile\" & $Benutzer
    $b.SetInfo
    $b.SetPassword ($Passwort)
    $b.AccountDisabled = False
    $b.PwdLastSet = 0
    $b.SetInfo
    Sleep(1000)
    $GroupObj = ObjGet("WinNT://GK/" & $GroupString)
    $GroupObj.Add ("WinNT://GK/" & $Benutzer)
    $DomainObj = ""
    $GroupObj = ""
EndFunc

[Happy]

Sorry but it doesent work!

But there is no error!