vbs wscript.shell objShell.Run 字符串 脚本 定时监控链路质量并保存

任务：每两个小时监控网络到特定的服务器的链路质量，并将测试结果保存到文本文件中。
脚本好啊，省心省力，为我等喜欢偷懒的人打开了方便之门。浮生偷得半日闲，足矣。。。

 

dim a(11)
a(0)="218.85.157.99"
a(1)="202.98.196.1"
a(2)="61.190.251.10"
a(3)="222.221.31.10"
a(4)="219.151.32.110"
a(5)="61.178.0.38"
a(6)="202.98.96.68"
a(7)="202.96.128.116"
a(8)="202.107.196.1"
a(9)="61.130.125.218"
a(10)="219.150.32.184"

 

for i = 1 to 10 '10为重复的次数
WScript.Sleep(1000*60*120) '每2个小时一次
Set objShell = CreateObject("Wscript.Shell")
'objShell.Run("%windir%/system32/cmd"&" /c "& "date/t "&">>result.txt"), 0, TRUE
objShell.Run("%comspec% /c date/t "&">>result"&i&".txt"), 0, TRUE
objShell.Run("%comspec% /c time/t "&">>result"&i&".txt"), 0, TRUE
  for j=0 to 10
  ipaddress=a(j)
  objShell.Run("%comspec% /c "&chr(34)&"tracert "&ipaddress&">>trace"&i&".txt"&chr(34)), 0, TRUE
  objShell.Run("%comspec% /c" &chr(34)&"ping "&ipaddress&" -n 100"&">>result"&i&".txt"&chr(34)), 0, TRUE
  next
next