Script Limit Device Android di Mikrotik

Bagi anda yang menemui kendala ketika wifi access-point disetting sebagai bridge(bukan mode route) dan tanpa menggunakan sistem hotspot mikrotik, maka yang terjadi semua device akan terkoneksi langsung. Baik itu gadget maupun PC / Laptop langsung bisa konek tanpa adanya limitasi berdasarkan jenis device. Bisa Anda bayangkan ketika HP Android melakukan update playstore tentu rakus bandwidth. Jika bandwidth Anda besar tentu ngga begitu menemui kendala, namun bila bandwidth pas pasan, bisa lebih terasa. Berikut tips agar pengguna android dilimit berdasarkan hostname saat mendapatkan dhcp dari mikrotik

Pertama tama buat rule di layer7 mikrotik. Ini bertujuan agar device android/blackberry ditangkap mikrotik

/ip firewall layer7-protocol
add name=android regexp="(^(android|BLACKBERRY|MITO|CIMB|Windows|iPhone|BLACKBER).*\$)"

Lalu buat script berikut

:global layer7 [/ip firewall layer7-protocol find name="android"]
:global regexandroid [/ip firewall layer7-protocol get $layer7 regexp ]
# perhatikan bagian ini (pakai titik)
:global net 192.168.7.
:for e from=2 to=62 do={
    :global iddhcp [/ip dhcp-server lease find address=($net . $e)];
    :if ([:len $iddhcp] > 0 ) do={
        :local hostname [/ip dhcp-server lease get $iddhcp host-name ];
        :if ($hostname ~ $regexandroid= true ) do= {
            :global halah [/queue simple find name=($net . $e)]
            :if ([:len $halah] > 0 ) do={
                /queue simple remove ($net . $e)
                /queue simple add name=($net . $e) comment="$hostname" \
                target-addresses=($net . $e)\
                max-limit=512000/512000
                :log info "Query sudah ada. ($hostname) ip=$net$e dihapus" }
            :if ([:len $halah] <= 0 ) do={
                /queue simple add name=($net . $e) \
                target-addresses=($net . $e) comment="$hostname" \
                max-limit=512000/512000
                :log warning "query belum ada. android found : ($hostname) ip=$net$e ditambahkan" }
    } else={
        :global halah [/queue simple find name=$net . $e]
        :if (hostname = "" ) do={
            :if ([:len $halah] > 0 ) do={
                /queue simple remove ($net . $e)
                /queue simple add name=($net . $e) comment="hostname kosong tp aktiv" \
                target-addresses=($net . $e) \
                max-limit=1000000/1000000
                :log info "aktiv hostname tdk diketahui : $hostname ip=$net$e remove add" }
            :if ([:len $halah] <= 0 ) do={
                /queue simple add name=($net . $e) \
                target-addresses=($net . $e) comment="hostname kosong tp aktiv" \
                max-limit=1000000/1000000
                :log info "aktiv hostname tdk diketahui : $hostname ip=$net$e add" }
        } else={
            :if ([:len $halah] > 0 ) do={
                /queue simple remove ($net . $e)
                /queue simple add name=($net . $e) comment="$hostname" \
                target-addresses=($net . $e) \
                max-limit=2000000/2000000
                :log info "bukan : $hostname ip= $net$e remove add" }
            :if ([:len $halah] <= 0 ) do={
                /queue simple add name=($net . $e)\
                target-addresses=($net . $e) comment="$hostname" \
                max-limit=2000000/2000000
                :log info "bukan : $hostname ip=$net$e add" }
        }
    }
} else={
        :global halah [/queue simple find name=($net . $e)]
            :if ([:len $halah] > 0 ) do={
                /queue simple remove ($net . $e)
                /queue simple add name=($net . $e) comment="kosong" \
                target-addresses=($net . $e) \
                max-limit=1000000/1000000
                :log info "bukan : ... ip=$net$e remove add" }
            :if ([:len $halah] <= 0 ) do={
                /queue simple add name=($net . $e) \
                target-addresses=($net . $e) comment="kosong"\
                max-limit=1000000/1000000
                :log info "bukan : .. ip=$net$e add" }
    }
}

Atau jika hanya ingin menambahkan yang statusnya bound saja (yang mendapatkan ip dari dhcp server) cukup pakai script berikut ini

:global layer7 [/ip firewall layer7-protocol find name="android"]
:global regexandroid [/ip firewall layer7-protocol get $layer7 regexp ]
:for e from 2 to 62 do={
    :global iddhcp [/ip dhcp-server lease find address=("192.168.7." . $e)];
    :if ([:len $iddhcp] > 0 ) do={
        :local hostname [/ip dhcp-server lease get $iddhcp host-name ];
        :if ($hostname ~ $regexandroid= true ) do= {
            :global halah [/queue simple find name="192.168.7.$e"]
            :if ([:len $halah] > 0 ) do={
                /queue simple remove "192.168.7.$e"
                /queue simple add name=("192.168.7.".$e) comment="$hostname" \
                target-addresses=("192.168.7." . $e ) \
                max-limit=512000/512000
                :log info "android found : $hostname ip= 192.168.7.$e remove add" }
            :if ([:len $halah] <= 0 ) do={
                /queue simple add name=("192.168.7.".$e) \
                target-addresses=("192.168.7." . $e ) comment="$hostname" \
                max-limit=512000/512000
                :log info "android found : $hostname ip= 192.168.7.$e add" }
    } else={
        :global halah [/queue simple find name="192.168.7.$e"]
        :if (hostname = "" ) do={
            :if ([:len $halah] > 0 ) do={
                /queue simple remove "192.168.7.$e"
                /queue simple add name=("192.168.7.".$e) comment="hostname kosong tp aktiv" \
                target-addresses=("192.168.7." . $e ) \
                max-limit=1000000/1000000
                :log info "aktiv hostname tdk diketahui : $hostname ip= 192.168.7.$e remove add" }
            :if ([:len $halah] <= 0 ) do={
                /queue simple add name=("192.168.7.".$e) \
                target-addresses=("192.168.7." . $e ) comment="hostname kosong tp aktiv" \
                max-limit=1000000/1000000
                :log info "aktiv hostname tdk diketahui : $hostname ip= 192.168.7.$e add" }
        } else={
            :if ([:len $halah] > 0 ) do={
                /queue simple remove "192.168.7.$e"
                /queue simple add name=("192.168.7.".$e) comment="$hostname" \
                target-addresses=("192.168.7." . $e ) \
                max-limit=2000000/2000000
                :log info "bukan : $hostname ip= 192.168.7.$e remove add" }
            :if ([:len $halah] <= 0 ) do={
                /queue simple add name=("192.168.7.".$e) \
                target-addresses=("192.168.7." . $e ) comment="$hostname" \
                max-limit=2000000/2000000
                :log info "bukan : $hostname ip= 192.168.7.$e add" }
        }
    }
}
}

Kalau sudah, silahkan jalankan script tadi. Semoga bermanfaat dan silahkan kembangkan sendiri.