Buenas os cuento lo que necesito hacer,
tengo un servidor A que aleatoriamente se cae, mientras encuentro la solución paralelamente a esto, quiero que mi script levante una maquina virtual (Virtual Server R2) desde el servidor B cuando no haga ping el servidor A. (siendo la VM, una conversión p2v del servidor A)
Estoy con este script no funcional:
miscript.vbs <-- lo ejecuto en servidor B (C:\>cscript.exe miscript.vbs)
machine = "w.x.y.z;" <-- servidor A
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").machine
If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
WScript.Echo("Computer " & machine & " is not reachable") <-- si no hay ping
On Error Resume Next <-- empieza código a levantar la VM
Set objVS = CreateObject("VirtualServer.Application")
Set objVM = objVS.FindVirtualMachine("miVM")
objVM.Startup() <-- fin código a levantar la VM
else
WScript.Message("Hay ping")<-- si hay ping
End If
Next
End
Es que estoy empezando a meterme con scripting...
¿alguien puede guiarme para completar lo que necesito conseguir?
Muchas gracias de antemano
