windows ping添加时间戳

最新推荐文章于 2024-06-29 16:42:24 发布

lqbz---

最新推荐文章于 2024-06-29 16:42:24 发布

阅读量8.3k

点赞数 1

分类专栏： Windows

Windows 专栏收录该内容

42 篇文章 0 订阅

订阅专栏

Set shell = WScript.CreateObject("WScript.Shell")
'脚本解析引擎，创建一个命令窗口对象
Dim ipstr,pingstr
ipstr="10.0.16.36"
'需要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

用记事本打开后，将内容复制到文本中，保存，修改后缀名为vbs后直接双击。