set cmd = createobject("wscript.shell")
set mishell = CreateObject("Scripting.FileSystemObject")
mipath = cmd.ExpandEnvironmentStrings("%userprofile%\MFC\terminal.bat")
mipath2 = cmd.ExpandEnvironmentStrings("%userprofile%\MFC\mfcisrunning.bat")

mifile = cmd.ExpandEnvironmentStrings("%TEMP%\mfcisrunning.txt")

comando = """" & mipath2 & """"
cmd.run comando, vbhide, true

control=0
set ts = mishell.OpenTextFile(mifile, 1)
Do While ts.AtEndOfStream <> True
  TextLine = ts.ReadLine
  existe = InStr(TextLine,"""mfc""")
  If (existe <> 0) Then
    control=1
  End If
Loop
ts.Close


if (control = 1) then

  host=InputBox("Introduce IP para acceso al menú:", "Acceso al agente MFC")

  If Not IsEmpty(host) Then
    comando = """" & mipath & """ " & host
    cmd.run comando,vbHide
  End If

else
  mensaje = "ATENCION: El ""Agente MFC Virtualizado"" no está arrancado." & vbNewLine & vbNewLine & "Por favor, asegurese de que el ""Agente MFC Virtualizado"" esté arrancado, y vuelva a intentarlo."
  msgbox mensaje,vbinformation,"Acceso por Terminal"
end if