| # $language = "VBScript" |
| # $interface = "1.0" |
| |
| |
| Sub Sleep(timewait) |
| |
| If crt.screen.waitforstring("pause", timewait) = true then msgbox "surprise" |
| |
| End Sub |
| |
| Sub SendShellCommand(shell_command) |
| crt.Screen.Send shell_command & VbCr |
| End Sub |
| |
| sub main |
| |
| SendShellCommand("root") |
| crt.Sleep 100 |
| SendShellCommand("root") |
| crt.Sleep 100 |
| SendShellCommand("cd /opt/bcm68620/") |
| crt.screen.WaitForString "#" |
| crt.Sleep 100 |
| SendShellCommand("./svk_init.sh") |
| crt.screen.WaitForString ">" |
| crt.Sleep 1000 |
| crt.Screen.Send VbCr |
| |
| |
| SendShellCommand("/api/set object=device system_mode=xgs__2_x_10_g") |
| crt.Screen.Send VbCr |
| crt.Screen.Send VbCr |
| crt.Sleep 50 |
| ' the following line is only if you would like to set the keep alive values |
| 'SendShellCommand("/api/set object=device system_mode=xgs__2_x_10_g keepalive_interval=5 keepalive_tolerance=3") |
| 'crt.Sleep 50 |
| 'crt.Screen.Send VbCr |
| 'crt.Screen.Send VbCr |
| |
| |
| SendShellCommand("/user/register_indication_handler") |
| crt.Screen.Send VbCr |
| crt.Screen.Send VbCr |
| crt.Sleep 50 |
| SendShellCommand("/user/register_proxy_rx_handler ") |
| crt.Screen.Send VbCr |
| crt.Screen.Send VbCr |
| crt.Sleep 50 |
| crt.Screen.Send VbCr |
| SendShellCommand("/api/oper object=device sub=connect ") |
| crt.Screen.Send VbCr |
| crt.screen.WaitForString ">" |
| crt.Screen.Send VbCr |
| |
| crt.Sleep 50 |
| |
| |
| |
| |
| |
| |
| |
| |
| End Sub |