# $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=xgpon_1__8_x")
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=xgpon_1__8_x 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