'* start of VA software

Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("C:\Program Files (x86)\VirtualAquarium\VirtualAquarium.exe")
WScript.Sleep 2500




'* telnet terminal one for tv1 left

Set cloner = CreateObject("WScript.Shell")
cloner.run"telnet"
WScript.Sleep 500

cloner.SendKeys"open 10.50.21.231 10002"
cloner.SendKeys("{Enter}")
cloner.SendKeys("{Enter}")
WScript.Sleep 500

cloner.SendKeys"POWR0001"
cloner.SendKeys("{Enter}")
WScript.Sleep 4500

cloner.SendKeys"IAVD0001"
cloner.SendKeys("{Enter}")
WScript.Sleep 250




'* telnet terminal two for tv2 center with audio

Set cloner = CreateObject("WScript.Shell")
cloner.run"telnet"
WScript.Sleep 500

cloner.SendKeys"open 10.50.21.232 10002"
cloner.SendKeys("{Enter}")
cloner.SendKeys("{Enter}")
WScript.Sleep 500

cloner.SendKeys"POWR0001"
cloner.SendKeys("{Enter}")
WScript.Sleep 4500

cloner.SendKeys"IAVD0001"
cloner.SendKeys("{Enter}")
WScript.Sleep 250

cloner.SendKeys"VOLM0050"
cloner.SendKeys("{Enter}")
WScript.Sleep 250




'* telnet termnal three for tv3 right

Set cloner = CreateObject("WScript.Shell")
cloner.run"telnet"
WScript.Sleep 500

cloner.SendKeys"open 10.50.21.233 10002"
cloner.SendKeys("{Enter}")
cloner.SendKeys("{Enter}")
WScript.Sleep 500


cloner.SendKeys"POWR0001"
cloner.SendKeys("{Enter}")
WScript.Sleep 4500

cloner.SendKeys"IAVD0001"
cloner.SendKeys("{Enter}")
WScript.Sleep 500




'* kill the tenet terminal windows

Dim oShell : Set oShell = CreateObject("WScript.Shell")
oShell.Run "taskkill /f /im telnet.exe", , True