# $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]" )
	alloc = inputbox("Alloc ID?" )

	SendApplicationCommand "/~ off "
	crt.sleep 100
	
	SendApplicationCommand "/api/set object=gpon_alloc pon_ni=" & pon_ni & " alloc_id=" & alloc & " onu_id=" & onu & " sla.cbr_rt_bw=5120000 sla.cbr_nrt_bw=0 sla.guaranteed_bw=5120000 sla.maximum_bw=5120000 sla.alloc_type=none sla.additional_bw_eligibility=none sla.cbr_rt_compensation=no sla.cbr_rt_ap_index=0 sla.cbr_nrt_ap_index=0 sla.weight=0 sla.priority=0"
	crt.sleep 100
	SendApplicationCommand "/~ on"

End Sub