Set x3000a = CreateObject("WScript.Shell")

x3000a.run"telnet"
WScript.Sleep 1500

x3000a.SendKeys"set escape ]"
x3000a.SendKeys("{Enter}")
WScript.Sleep 500

x3000a.SendKeys"open "+WScript.Arguments.Item(0)
x3000a.SendKeys("{Enter}")
WScript.Sleep 2000

x3000a.SendKeys"infiniivision"
x3000a.SendKeys("{Enter}")
WScript.Sleep 500

x3000a.SendKeys"skywalker1977"
x3000a.SendKeys("{Enter}")
WScript.Sleep 500

x3000a.SendKeys"cd \usb\infiniivision"
x3000a.SendKeys("{Enter}")
WScript.Sleep 500

x3000a.SendKeys"processmgr kill infiniivisionlauncher.exe"
x3000a.SendKeys("{Enter}")
WScript.Sleep 4000

x3000a.SendKeys"infiniivisionlauncher -l all"
x3000a.SendKeys("{Enter}")
WScript.Sleep 45000

x3000a.SendKeys"]"
WScript.Sleep 500

x3000a.SendKeys"qui"
x3000a.SendKeys("{Enter}")
WScript.Sleep 500