Also ich weiß zwar immer noch nicht was du wegen nem batch redest da nach deiner Beschreibung nach nur nen vbs Script und ne textdatei im Spiel ist aber um das so zu machen wie du im 2 post sagst sollte dies hier funzen.
Dim fso, f, Zeile, Feld
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile ("test.txt",1,0)
Do while not f.AtEndOfLine
Zeile = f.readLine
Feld = split(Zeile,",")
Benutzername = Feld(0)
Passwort = Feld(1)
Dim objUser
set objUser = GetObject("LDAP://CN=" & Feld(0) & " ,OU=Users,OU=Produktion,DC=domain,DC=local ")
objUser.SetPassword Feld(1)
objUser.SetInfo
Loop
f.Close