bcm68620_release/release/sdk_scripts/gpon_scripts/gpon_clear_onu.vbs

# $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 "/api/clear object=gpon_onu pon_ni=" & pon_ni & " onu_id=" & onu & " "  
	crt.sleep 10

End Sub