局域网中有一机子常常工作一段时间后就自动掉线,ping入ping 出都不行,把其网线抽掉后,又能用一掉时间,暂时还没有找到彻底解决的办法!
将以下代码保存为 tping.vbs 放在D盘根目录
ASP/Visual Basic代码
- Set shell = WScript.CreateObject(“WScript.Shell”)
- Set re=New RegExp
- re.Pattern = “^Reply|^Request”
- Set myping=shell.Exec(“ping 192.168.1.9 -t”)
- while Not myping.StdOut.AtEndOfStream
- strLine = myping.StdOut.ReadLine()
- r=re.Test(strLine)
- If r Then
- WScript.Echo date & ” “& time & chr(9) & strLine
- End if
- Wend
然后运行cmd 输入cscript d: ping.vbs
就能得到如下图样式的ping加时间日期。