Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '* start of VA software
- Set objShell = CreateObject("WScript.Shell")
- Set objExec = objShell.Exec("C:\Program Files (x86)\VirtualAquarium\VirtualAquarium.exe")
- WScript.Sleep 2500
- '* telnet term 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 term two for tv2 center
- 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
- '* telnet term 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}")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement