mirror.MikroTik/wifinigel.MikrotikScripting
1
0
Fork 0
mirror of https://github.com/wifinigel/MikrotikScripting.git synced 2025-07-01 05:34:29 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

initial commit

Browse source
This commit is contained in:
Wifinigel 2023-01-19 21:27:15 +00:00
commit c782dde326
61 changed files with 1457 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

29
scripts/ch10-02-bad-script.rsc Normal file
View file

@ -0,0 +1,29 @@
# filename: ch10-02-bad-script.rsc
#
# A simple script to perform a series of tests on a
# list of web sites.
# define list of websites to test
:local w {"mikrotik.com"; "www.google.com"; "twitter.com"};
# step through each website and perform various tests
:foreach s in=$w do={
# try a DNS resolution of this site
:local i [/resolve $s];
# try pinging the IP address of this site
:local p [/ping $i count=3 ];
# try fetching the web page of this site
:local u [/tool fetch url=("https://$s") mode=https http-method=get \
as-value keep-result=no];
# print out a summary report for this site
:put "==========================================";
:put ("Site: $s");
:put ("IP Address = $i");
:put ("Ping success = $p/3");
:put ("Page d/load duration: " . $u->"duration");
:put "===========================================";
}