Advertisement
retnet

mikrotik send email

Feb 22nd, 2022
100
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.47 KB | None | 0 0
  1. ## first create app password from your google account (gugling o disek)
  2. /tool e-mail set address=smtp.gmail.com from=mkt750 password=skjflsdjflsdjfl port=587 \
  3. start-tls=yes user=youremail@gmail.com
  4.  
  5. /system script
  6. add dont-require-permissions=yes name=laporanharian owner=admin policy=\
  7. ftp,read,write,policy,test source=":global traf;\r\
  8. \n:global megsu \"0\";\r\
  9. \n:global megsd \"0\";\r\
  10. \n:global resulter \" \";\r\
  11. \n:global logmsg;\r\
  12. \n:global datum [/system clock get date];\r\
  13. \n:global vrijeme [/system clock get time];\r\
  14. \n/queue tree\r\
  15. \n:local semd [get [find name=\"Download\"] bytes];\r\
  16. \n:local semu [get [find name=\"Upload\"] bytes];\r\
  17. \n:local brid [get [find name=\"+Dobridges\"] bytes];\r\
  18. \n:local briu [get [find name=\"+Upbridges\"] bytes];\r\
  19. \n:local semuadown (\$semd / 1000000);\r\
  20. \n:local semuaup (\$semu / 1000000);\r\
  21. \n:local bridown (\$brid / 1000000);\r\
  22. \n:local briup (\$briu / 1000000);\r\
  23. \n:if (\$semuadown > 1000) do={ :set semuadown (\$semuadown / 1000); :set \
  24. semuadown \"\$semuadown Gb\" } else={ :set semuadown \"\$semuadown Mb\"}\r\
  25. \n:if (\$semuaup > 1000) do={ :set semuaup (\$semuaup / 1000); :set semuau\
  26. p \"\$semuaup Gb\" } else={ :set semuaup \"\$semuaup Mb\"}\r\
  27. \n:if (\$bridown > 1000) do={ :set bridown (\$bridown / 1000); :set bridow\
  28. n \"\$bridown Gb\" } else={ :set bridown \"\$bridown Mb\"}\r\
  29. \n:if (\$briup > 1000) do={ :set briup (\$briup / 1000); :set briup \"\$br\
  30. iup Gb\" } else={ :set briup \"\$briup Mb\"}\r\
  31. \n\r\
  32. \n:for i from=2 to=9 do={\r\
  33. \n :set logmsg \"\";\r\
  34. \n :set traf [get \"Do_\$i\" bytes];\r\
  35. \n :set megsd (\$traf / 1000000)\r\
  36. \n :set traf [get \"Up_\$i\" bytes];\r\
  37. \n :set megsu (\$traf / 1000000)\r\
  38. \n :if (\$megsd > 0) do={\r\
  39. \n :if (\$megsd > 1000) do={ :set megsd (\$megsd / 1000); :\
  40. set megsd \"\$megsd Gb\" } else={ :set megsd \"\$megsd Mb\"}\r\
  41. \n :set logmsg (\"Do_\$i: \$megsd\");\r\
  42. \n :set resulter (\"\$resulter \\n User: 192.168.88.\$i Dow\
  43. nload: \$megsd\")\r\
  44. \n }\r\
  45. \n :if (\$megsu > 0) do={\r\
  46. \n :if (\$megsu > 1000) do={ :set megsu (\$megsu / 1000); :\
  47. set megsu \"\$megsu Gb\" } else={ :set megsu \"\$megsu Mb\"}\r\
  48. \n :set logmsg (\"\$logmsg Up_\$i: \$megsu\");\r\
  49. \n :if (\$logmsg!=\"\") do={:set resulter (\"\$resulter Upl\
  50. oad: \$megsu\")} else={:set resulter (\"\$resulter \\n User: 192.168.88.\$\
  51. i Upload: \$megsu\")}\r\
  52. \n }\r\
  53. \n# :if (\$logmsg!=\"\") do={ :log info (\$logmsg) }\r\
  54. \n }\r\
  55. \n/tool e-mail send from=RB750 to=email_to_receive@gmail.com subject=\"RB\
  56. 750 \$datum \$vrijeme\" body=\"\$datum \$vrijeme \\n Total Download Semu\
  57. anya = \$semuadown \\n Total Upload Semuanya = \$semuaup \\n\\n Bridges Do\
  58. wnload = \$bridown \\n Bridges Upload = \$briup \\n\\n ===================\
  59. \_\\nDetail per ip \$resulter\" server=smtp.gmail.com\r\
  60. \n\r\
  61. \n:delay 3s\r\
  62. \n/queue tree reset-counters-all"
  63.  
  64. ## last add
  65. /system scheduler
  66. add interval=1d name=resetcounterall on-event=\
  67. "/system script run laporanharian\r\
  68. \n\r\
  69. \n" policy=read,write,policy,test,sniff start-date=sep/18/2019 \
  70. start-time=00:00:00
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement