Buenas noches, tengo un .vbs el cual extrae datos de un fichero .txt(en este fichero tengo en cada salto de linia nombre1;nombre2), el problema es que no consigo hacer que se me muestre la información del tipo:
usuario:nombre1 contraseña:nombre2
siempre se me muestra:
usuario:nombre1 contraseña:nombre1
Espero que me puedan ayudar, gracias
Const ForReading = 1
Const TristateFalse = 0
Dim oshell
Set oshell=createobject("Wscript.shell")
set fs = Createobject("Scripting.FileSystemObject")
if not fs.FileExists("c:\usuarios.txt") then
wscript.echo "no existe el fichero "& nombre_fich
WScript.Quit 4
end if
set fich = fs.OpenTextFile("c:\usuarios.txt", ForReading, "True")
Do while fich.atEndofStream <> True
linea=fich.ReadLine
wscript.echo linea
campos=split(linea,";")
for each a in campos
wscript.echo "usuario: "&a&" contraseña: "&a
next
loop
fich.close
