# $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 = 1000
		oper = "none"

	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=disable"
	crt.sleep 100

End Sub