运维

img redchina

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

发表于2008/10/2 19:04:00  1112人阅读

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

 

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

阅读全文
0 0

相关文章推荐

img
取 消
img