继续浏览此网站(不推荐),长春市建设工程交易中心网站,网站营销软文,软件公司工资高吗效果图 右击新建 ping.bat 文件#xff08;ping为文件名称#xff0c;随便起#xff09;#xff0c;内容如下#xff1a;
cscript ping.vbs 127.0.0.1 -t log.txt127.0.0.1 修改为你自己的ip地址#xff0c;log 为记录日志的文件名
右击新建 ping.vbs 文件#x…效果图 右击新建 ping.bat 文件ping为文件名称随便起内容如下
cscript ping.vbs 127.0.0.1 -t log.txt127.0.0.1 修改为你自己的ip地址log 为记录日志的文件名
右击新建 ping.vbs 文件ping为文件名称随便起但是需要与上方 csript xxx.vbs 对应内容如下
Dim args, flag, unsuccOut
args
otherout
flag0If WScript.Arguments.count 0 Then
WScript.Echo Usage: cscript tping.vbs [-t] [-a] [-n count] [-l size] [-f] [-i TTL] [-v TOS]
WScript.Echo [-s count] [[-j host-list] | [-k host-list]]
WScript.Echo [-r count] [-w timeout] destination-list
wscript.quit
End ifFor i0 to WScript.Arguments.count - 1
argsargs WScript.Arguments(i)
NextSet shell WScript.CreateObject(WScript.Shell)
Set reNew RegExp
re.Pattern^Reply|^Request|^来自|^请求Set mypingshell.Exec(ping args)while Not myping.StdOut.AtEndOfStreamstrLinemyping.StdOut.ReadLine()
WScript.Echo 原数据 chr(9) strLinerre.Test(strLine)If r Then
WScript.Echo date time chr(9) strLine
flag1Else
unsuccOutunsuccOut strLineEnd if
Wendif flag 0 then
WScript.Echo unsuccOut
end if文件下载
下载地址https://files.cnblogs.com/files/niceyoo/ping.rar
