windows CMD 下长ping 加时间戳，亲测有效

Ctrl+C-Ctrl+V

已于 2022-02-17 22:36:55 修改

阅读量4.8k

点赞数 5

文章标签： linux 服务器运维

于 2022-02-17 22:35:51 首次发布

本文链接：https://blog.csdn.net/weixin_45542511/article/details/122993371

版权

windows CMD 下长ping 加时间戳，亲测有效

以下内容直接复制到txt文档，将.txt后缀改成.vbs。
将vbs文件放到C盘根目录，直接双机打开，运行后C盘根目录下会有以ping的目的地址为文件名的txt文档。

Set shell = WScript.CreateObject("WScript.Shell")
'脚本解析引擎，创建一个命令窗口对象
Dim ipstr,pingstr
ipstr="www.baidu.com"
'需要ping的目录Ip
Set fso=createobject("scripting.filesystemobject")
'创建了一个FSO对象，然后中用它来读写文本文件，删除文件等
Set file = fso.createtextfile("c:\ping" & ipstr & ".txt")
'用fso创建一个文件
Set myping=shell.Exec("ping -t " & ipstr )
'执行的命令
while Not myping.StdOut.AtEndOfStream
'如果文件指针位于 命令行文件末，则返回 True；否则返回 False
        strLine = myping.StdOut.ReadLine()
	'读取此行
        file.writeline date & " "& time & chr(9) & strLine
	'写入文件
Wend