Shad Ansari | 2f7f9be | 2017-06-07 13:34:53 -0700 | [diff] [blame^] | 1 | # $language = "VBScript" |
| 2 | # $interface = "1.0" |
| 3 | |
| 4 | |
| 5 | Sub Sleep(timewait) |
| 6 | |
| 7 | If crt.screen.waitforstring("pause", timewait) = true then msgbox "surprise" |
| 8 | |
| 9 | End Sub |
| 10 | |
| 11 | Sub SendShellCommand(shell_command) |
| 12 | crt.Screen.Send shell_command & VbCr |
| 13 | End Sub |
| 14 | |
| 15 | sub main |
| 16 | |
| 17 | SendShellCommand("root") |
| 18 | crt.Sleep 100 |
| 19 | SendShellCommand("root") |
| 20 | crt.Sleep 100 |
| 21 | SendShellCommand("cd /opt/bcm68620/") |
| 22 | crt.screen.WaitForString "#" |
| 23 | crt.Sleep 100 |
| 24 | SendShellCommand("./svk_init.sh") |
| 25 | crt.screen.WaitForString ">" |
| 26 | crt.Sleep 1000 |
| 27 | crt.Screen.Send VbCr |
| 28 | |
| 29 | |
| 30 | SendShellCommand("/api/set object=device system_mode=xgs__2_x_10_g") |
| 31 | crt.Screen.Send VbCr |
| 32 | crt.Screen.Send VbCr |
| 33 | crt.Sleep 50 |
| 34 | ' the following line is only if you would like to set the keep alive values |
| 35 | 'SendShellCommand("/api/set object=device system_mode=xgs__2_x_10_g keepalive_interval=5 keepalive_tolerance=3") |
| 36 | 'crt.Sleep 50 |
| 37 | 'crt.Screen.Send VbCr |
| 38 | 'crt.Screen.Send VbCr |
| 39 | |
| 40 | |
| 41 | SendShellCommand("/user/register_indication_handler") |
| 42 | crt.Screen.Send VbCr |
| 43 | crt.Screen.Send VbCr |
| 44 | crt.Sleep 50 |
| 45 | SendShellCommand("/user/register_proxy_rx_handler ") |
| 46 | crt.Screen.Send VbCr |
| 47 | crt.Screen.Send VbCr |
| 48 | crt.Sleep 50 |
| 49 | crt.Screen.Send VbCr |
| 50 | SendShellCommand("/api/oper object=device sub=connect ") |
| 51 | crt.Screen.Send VbCr |
| 52 | crt.screen.WaitForString ">" |
| 53 | crt.Screen.Send VbCr |
| 54 | |
| 55 | crt.Sleep 50 |
| 56 | |
| 57 | |
| 58 | |
| 59 | |
| 60 | |
| 61 | |
| 62 | |
| 63 | |
| 64 | End Sub |