以下内容直接复制到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
标签：myping,文件,Set,ping,ipstr,添加,时间,txt From： https://www.cnblogs.com/lmf399/p/16866012.html