Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 1500
WshShell.SendKeys "%{TAB}"
WScript.Sleep 1500
WshShell.SendKeys "{RIGHT}"
WScript.Sleep 1500
WshShell.SendKeys "F:"
WScript.Sleep 1500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 1500
WshShell.SendKeys "{RIGHT}"
WScript.Sleep 1500
WshShell.SendKeys "CD F:\Equipos_"
WScript.Sleep 1500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 1500
WshShell.SendKeys "{RIGHT}"
WScript.Sleep 1500
WshShell.SendKeys "cmd"
WScript.Sleep 1500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 1500
WshShell.SendKeys "runas /user:admin ActualizaInstalarAll.bat BOXASISTENTE{ENTER}"
WScript.Sleep 1500
WshShell.SendKeys "2548{ENTER}"
WScript.Sleep 1500
Wscript.Quit