| Shad Ansari | 2f7f9be | 2017-06-07 13:34:53 -0700 | [diff] [blame] | 1 | # $language = "VBScript" |
| 2 | # $interface = "1.0" | ||||
| 3 | |||||
| 4 | Sub SendApplicationCommand(shell_command) | ||||
| 5 | crt.Screen.Send shell_command & VbCr & VbCr | ||||
| 6 | crt.sleep 1000 | ||||
| 7 | End Sub | ||||
| 8 | |||||
| 9 | Sub main | ||||
| 10 | |||||
| 11 | pon_ni = inputbox("PON NI: [0-15]" ) | ||||
| 12 | onu = inputbox("ONU ID: [0-127]" ) | ||||
| 13 | |||||
| 14 | SendApplicationCommand "/api/oper object=gpon_onu sub=set_onu_state pon_ni=" & pon_ni & " onu_id=" & onu & " onu_state=active" | ||||
| 15 | crt.sleep 5 | ||||
| 16 | |||||
| 17 | End Sub | ||||