Advertisement
sicsscam

system_on.vbs

May 17th, 2016
126
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. '* start of VA software
  2.  
  3. Set objShell = CreateObject("WScript.Shell")
  4. Set objExec = objShell.Exec("C:\Program Files (x86)\VirtualAquarium\VirtualAquarium.exe")
  5. WScript.Sleep 2500
  6.  
  7.  
  8.  
  9.  
  10. '* telnet term one for tv1 left
  11.  
  12. Set cloner = CreateObject("WScript.Shell")
  13. cloner.run"telnet"
  14. WScript.Sleep 500
  15.  
  16. cloner.SendKeys"open 10.50.21.231 10002"
  17. cloner.SendKeys("{Enter}")
  18. cloner.SendKeys("{Enter}")
  19. WScript.Sleep 500
  20.  
  21. cloner.SendKeys"POWR0001"
  22. cloner.SendKeys("{Enter}")
  23. WScript.Sleep 4500
  24.  
  25. cloner.SendKeys"IAVD0001"
  26. cloner.SendKeys("{Enter}")
  27. WScript.Sleep 250
  28.  
  29.  
  30.  
  31.  
  32.  
  33. '* telnet term two for tv2 center
  34.  
  35. Set cloner = CreateObject("WScript.Shell")
  36. cloner.run"telnet"
  37. WScript.Sleep 500
  38.  
  39. cloner.SendKeys"open 10.50.21.232 10002"
  40. cloner.SendKeys("{Enter}")
  41. cloner.SendKeys("{Enter}")
  42. WScript.Sleep 500
  43.  
  44.  
  45. cloner.SendKeys"POWR0001"
  46. cloner.SendKeys("{Enter}")
  47. WScript.Sleep 4500
  48.  
  49. cloner.SendKeys"IAVD0001"
  50. cloner.SendKeys("{Enter}")
  51. WScript.Sleep 250
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58. '* telnet term three for tv3 right
  59.  
  60. Set cloner = CreateObject("WScript.Shell")
  61. cloner.run"telnet"
  62. WScript.Sleep 500
  63.  
  64. cloner.SendKeys"open 10.50.21.233 10002"
  65. cloner.SendKeys("{Enter}")
  66. cloner.SendKeys("{Enter}")
  67. WScript.Sleep 500
  68.  
  69.  
  70. cloner.SendKeys"POWR0001"
  71. cloner.SendKeys("{Enter}")
  72. WScript.Sleep 4500
  73.  
  74. cloner.SendKeys"IAVD0001"
  75. cloner.SendKeys("{Enter}")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement