[问题求助] [已解决]vbs怎样监控ping的返回信息，并做出判断

gmwd18

本人经常要进行服务器远程维护，现想做个脚本，监控一下维护机到服务器的网络连通状况，具体功能如下：（希望大家给点思路）
1.脚本可以一直ping一个或多个ip地址，并监控ping的返回信息，如果发现有大于等于3个连续的丢包(即3个连续的request timeout）的情况时，记录一条日志到一个txt文件中，格式为“年月日 时间： 到某某Ip网络有丢包”
2.如果发现有超过10个连续的丢包，则发送一封电子邮件，到指定的邮箱，邮件内容为“网络丢包严重，请检查网络”
由于本人vbs接触不多，最近正在学习，对于这种监控代码没有什么头绪，所以想请各位高手指点一下，给点思路和一些代码示例参考一下，不胜感谢！

gmwd18

回复 2# powerbat

感谢powerbat，代码有许多看不懂，我自己再琢磨一下~
    不过我怎么没看出那些是用来实时监控的语句呢，求解答~

gmwd18

回复 4# powerbat


    谢谢powerbat，代码大部分搞懂了，又让我学习了不少，不过上述代码中的

WQL = "Select * from Win32_PingStatus Where Address='" _    & Join(arrIP, "' OR Address='") & "'" 
复制代码

这一句有报错，说什么不符合的字符，我把where 条件后面的改为address='单个ip'  就可以了，是不是上面这句有笔误，顺带求解一下上面这句SQL查询是什么意思，谢谢了哈！

gmwd18

回复 6# powerbat
谢谢了，脚本可以使用了，大家有兴趣的可以收藏一下，powerbat的代码拿来就能用，也可以根据自己的需要再修改一下，注：上面代码中的“_”符号是续行符，脚本里面要去掉哦~