Oi galera , graças a todos vocês consegui criar este script para fins de controle de banda para os usuários da empresa em que trabalho.
Chamo ele de QoS Freezer, que tem como função limitar aquele usuário que passa o dia vendo vídeos no youtube, baixando filmes e tal... não que seja totalmente proibido pela empresa, mas estes usuários acabam dificultando o trabalho de outros. Portanto modifiquei alguns códigos feito por vc's para que de 2 em 2 horas o Mikrotik zera os contadores de bytes no Queue Tree, e em cada 5 em 5 minutos um outro script irá verificar se tal usuário excedeu o limite , no meu caso 80 MB.Caso sim, a banda limitará de 305kb para 156kb (freezer) no período de 2 horas, liberando para o restante dos usuários 149kb que será diluído pelo Queue Tree.

-----------------------

Segue abaixo o script do Freezer_ON:

##:log info ("FREEZER_ON")

:local limite;
:local user;
:local contador;
:local size;

:set limite 80000000
:set user nenhum
:set contador 0
:set size 0

/queue tree
:foreach i in [find] do={

:set user [get $i name]
:set size ([:len $user] - 2)

:if ([:pick $user $size 100000] != "UL") do={

:set contador [get [find name($user)] bytes]

:if ($contador > $limite ) do={

:if ([:pick $user 0 3] = "NOC") do={

:local Loga;
:set Loga ("'" . $user . "' se encontra no Freezer")

:if([get [find name($user)] max-limit] != "156000") do={

:set Loga ("'" . $user . "' EXCEDEU o limite máximo de '" . $limite . "' bits de 2 Horas")
/queue tree set $user limit-at=75000 max-limit=156000 burst-limit=1000000 burst-threshold=20000 burst-time=3
##/tool e-mail send to="seu email" subject="Freezer Mikrotik" body=("Usuario da rede '" . $user . "' entrou no freezer às: " . [/system clock get time])

}

:log info $Loga

}

:if ([:pick $user 0 3] = "Com") do={

:local Loga;
:set Loga ("'" . $user . "' se encontra no Freezer")

:if([get [find name($user)] max-limit] != "156000") do={

:set Loga ("'" . $user . "' EXCEDEU o limite de '" . $limite . "' de 2 Horas")
/queue tree set $user limit-at=75000 max-limit=156000 burst-limit=1000000 burst-threshold=20000 burst-time=3
##/tool e-mail send to="seu email" subject="Freezer Mikrotik" body=("Usuario da rede '" . $user . "' entrou no freezer às: " . [/system clock get time])

}
:log info $Loga
}

:if ([:pick $user 0 2] = "PC") do={

:local Loga;
:set Loga ("'" . $user . "' se encontra no Freezer")

:if([get [find name($user)] max-limit] != "156000") do={

:set Loga ("'" . $user . "' EXCEDEU o limite máximo de '" . $limite . "' de 2 Horas")
/queue tree set $user limit-at=75000 max-limit=156000 burst-limit=1000000 burst-threshold=20000 burst-time=3
##/tool e-mail send to="seu email" subject="Freezer Mikrotik" body=("Usuario da rede '" . $user . "' entrou no freezer às: " . [/system clock get time])

}

:log info $Loga

}

:if ([:pick $user 0 2] = "HD") do={

:local Loga;
:set Loga ("'" . $user . "' se encontra no Freezer")

:if([get [find name($user)] max-limit] != "156000") do={

:set Loga ("'" . $user . "' EXCEDEU o limite máximo de '" . $limite . "' de 2 Horas")
/queue tree set $user limit-at=75000 max-limit=156000 burst-limit=1000000 burst-threshold=20000 burst-time=3
##/tool e-mail send to="seu email" subject="Freezer Mikrotik" body=("Usuario da rede '" . $user . "' entrou no freezer às: " . [/system clock get time])

}

:log info $Loga

}

:if ([:pick $user 0 9] = "EngTeste3") do={

:local Loga;
:set Loga ("'" . $user . "' se encontra no Freezer")


:if([get [find name($user)] max-limit] != "156000") do={

:set Loga ("'" . $user . "' EXCEDEU o limite máximo de '" . $limite . "' de 2 Horas")
/queue tree set $user limit-at=75000 max-limit=156000 burst-limit=1000000 burst-threshold=20000 burst-time=3
##/tool e-mail send to="seu email" subject="Freezer Mikrotik" body=("Usuario da rede '" . $user . "' entrou no freezer às: " . [/system clock get time])

}

:log info $Loga

}
}
}
}

Tudo será logado no Log do Mikrotik para fins de acompanhamento.

-------------------------------------------

Segue abaixo o script para o Freezer_OFF:

##:log info ("FREEZER_OFF")

:local user;
:local contador;
:local size;

:set user nenhum
:set contador 0
:set size 0

/queue tree
:foreach i in [find] do={

:set user [get $i name]
:set size ([:len $user] - 2)

:if ([:pick $user $size 100000] != "UL") do={

:if ([:pick $user 0 3] = "NOC") do={

:if([get [find name($user)] max-limit] = "156000") do={


/queue tree set $user limit-at=105000 max-limit=405000 burst-limit=1000000 burst-threshold=20000 burst-time=3
##/tool e-mail send to="seu email" subject="Freezer Mikrotik" body=("Usuario da rede '" . $user . "' saiu do freezer às " . [/system clock get time])

:log info ("'" . $user . "' SAIU do Freezer")

}
}

:if ([:pick $user 0 3] = "Com") do={

:if([get [find name($user)] max-limit] = "156000") do={


/queue tree set $user limit-at=105000 max-limit=305000 burst-limit=1000000 burst-threshold=20000 burst-time=3
##/tool e-mail send to="seu email" subject="Freezer Mikrotik" body=("Usuario da rede '" . $user . "' saiu do freezer às " . [/system clock get time])

:log info ("'" . $user . "' SAIU do Freezer")

}
}

:if ([:pick $user 0 2] = "PC") do={

:if([get [find name($user)] max-limit] = "156000") do={


/queue tree set $user limit-at=105000 max-limit=305000 burst-limit=1000000 burst-threshold=20000 burst-time=3
##/tool e-mail send to="seu email" subject="Freezer Mikrotik" body=("Usuario da rede '" . $user . "' saiu do freezer às " . [/system clock get time])

:log info ("'" . $user . "' SAIU do Freezer")

}
}

:if ([:pick $user 0 2] = "HD") do={

:if([get [find name($user)] max-limit] = "156000") do={


/queue tree set $user limit-at=105000 max-limit=305000 burst-limit=1000000 burst-threshold=20000 burst-time=3
##/tool e-mail send to="seu email" subject="Freezer Mikrotik" body=("Usuario da rede '" . $user . "' saiu do freezer às " . [/system clock get time])

:log info ("'" . $user . "' SAIU do Freezer")

}
}

:if ([:pick $user 0 3] = "NOC") do={

:if([get [find name($user)] max-limit] = "156000") do={


/queue tree set $user limit-at=105000 max-limit=405000 burst-limit=1000000 burst-threshold=20000 burst-time=3
##/tool e-mail send to="seu email" subject="Freezer Mikrotik" body=("Usuario da rede '" . $user . "' saiu do freezer às " . [/system clock get time])

:log info ("'" . $user . "' SAIU do Freezer")

}
}

:if ([:pick $user 0 9] = "EngTeste3") do={

:if([get [find name($user)] max-limit] = "156000") do={


/queue tree set $user limit-at=85000 max-limit=305000 burst-limit=1000000 burst-threshold=20000 burst-time=3
##/tool e-mail send to="seu email" subject="Freezer Mikrotik" body=("Usuario da rede '" . $user . "' saiu do freezer às " . [/system clock get time])

:log info ("'" . $user . "' SAIU do Freezer")

}
}

}
}

:log info ("Contadores zerados")
reset-counters

----------------------------------------------

Lembrando que a versão do Mikotik que eu uso é a :
MikroTik RouterOS 2.9.6 (c) 1999-2005


Abraços

Teco