mikrotik script to get current rx-tx

{

:local iname "ether1-WAN"

:local rate [/interface monitor-traffic $iname once as-value]
:local raterx ($rate->"rx-bits-per-second")
:local ratetx ($rate->"tx-bits-per-second")
:local type [:toarray "bps,Kbps,Mbps,Gbps"]

:local counter 0

:while ($raterx > 1024) do={
    :set $raterx ($raterx/1024)
    :set $counter ($counter+1)
}

:local satuan [:pick $type $counter]

:set $raterx "$raterx$satuan"

:local counter 0

:while ($ratetx > 1024) do={
    :set $ratetx ($ratetx/1024)
    :set $counter ($counter+1)
}

:local satuan [:pick $type $counter]
:set $ratetx "$ratetx$satuan"

:local pesan "$iname $raterx $ratetx"

:put $pesan
:log warning "$pesan"

}