# $language = "VBScript" | |
# $interface = "1.0" | |
Sub SendApplicationCommand(shell_command) | |
crt.Screen.Send shell_command & VbCr & VbCr | |
crt.sleep 1000 | |
End Sub | |
Sub main | |
pon_ni = inputbox("PON NI: XGPON:[0-7] XGS:[0-1]" ) | |
interval = inputbox("interval in MS" ) | |
oper = inputbox("post_discovery_mode:none/disable/activate" ) | |
SendApplicationCommand "/api/set object=xgpon_ni pon_ni=" & pon_ni & " sn_acquisition.interval=" & interval & " sn_acquisition.onu_post_discovery_mode=" & oper & " sn_acquisition.burst_profile=0 sn_acquisition.control=enable " | |
crt.sleep 100 | |
End Sub |