# $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]" )

	SendApplicationCommand "/board/trx_enable pon_id=" & pon_ni & " "   
	crt.sleep 100
	SendApplicationCommand "/api/oper object=gpon_ni sub=set_pon_state pon_ni=" & pon_ni & " pon_state=active_working"  
	crt.sleep 100

End Sub