HOla a todos
Resulta que me he topado con un graaaaaaaaaaaaan problema, buscando por internet me he encontrado el siguiente código que recupera la salida estándar de MS-DOS, se los dejo por si alguien le interesa:
Dim WshShell
Dim oExec
Dim Input1
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("runas /user:administrator command")
Input1 = ""
Do While True
If Not oExec.StdOut.AtEndOfStream Then
Input1 = Input1 & oExec.StdOut.Read(1)
If InStr(Input1, "password") <> 0 Then Exit Do
End If
DoEvents
Loop
oExec.StdIn.Write "password" & vbCrLf
Do While oExec.Status <> 1
WScript.Sleep 100
Loop
Como les comentaba el codigo anterior recupera lo que una sesion de MS-DOS envia, en este caso pide la contraseña de un usuario para iniciar sesión, hasta aqui todo OK, pero el detalle esta en que marca un error en la linea que dice: oExec.StdIn.Write, al parecer esta mal la propiedad
EL problema esta en que no se como hacer la parte inversa, es decir, que ahora desde VB enviarle el password para poder iniciar la sesión MS-DOS
Alguna aportacion?????