set cmd = createobject("wscript.shell")
set mishell = CreateObject("Scripting.FileSystemObject")

motor1 = cmd.ExpandEnvironmentStrings("%PROGRAMFILES%\Oracle\VirtualBox\VBoxManage.exe")
motor2 = cmd.ExpandEnvironmentStrings("%PROGRAMFILES%\Sun\VirtualBox\VBoxManage.exe")

If mishell.FileExists(motor1) Then
  FAB = 1
Else
  If mishell.FileExists(motor2) Then
    FAB = 2
  Else
    FAB = 0
  End If
End If

If FAB=0 Then
  MsgBox "ERROR: No se detecta la instalación de Virtual Box.",vbCritical,"Apagar Agente MFC Virtualizado"
  WScript.Quit
End If

IF FAB=1 Then
  motor = motor1
Else
  motor = motor2
End If


comando2 = "taskkill /F /IM cmd.exe"
cmd.run comando2

comando = """" & motor & """ controlvm ""mfc"" poweroff"
cmd.run comando, vbhide, true

MsgBox "Se ha mandado una orden de apagado al ""Agente MFC Virtualizado"".",vbInformation,"Apagar Agente MFC Virtualizado"

