# $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: [0-15]" )
	onu = inputbox("ONU ID: [0-127]" )

	SendApplicationCommand "/~ off "
	crt.sleep 10
	serial = string(8 - Len(onu), "0") & onu 
	SendApplicationCommand "/api/set object=gpon_onu pon_ni=" & pon_ni & " onu_id=" & onu & " serial_number.vendor_id=00000000 ds_ber_reporting_interval=1000000 serial_number.vendor_specific=" & serial & " omci_port_id=" & onu
	crt.sleep 10
	SendApplicationCommand "/~ on "

End Sub