windows 10

使用管理员加打windows10中的Windows PowerShell，使用以下命令开始ping

例如ping百度：

ping.exe -t www.baidu |Foreach{"{0} - {1}" -f (Get-Date),$_}

如果要ping又要记录到文本文档：（ping www.baidu,并记录到D盘下的1.txt文本文档）

ping.exe -t www.baidu |Foreach{"{0} - {1}" -f (Get-Date),$_}>D://1.txt

windows 7

创建一个新的文本文档并复制以下代码：

Set shell = WScript.CreateObject("WScript.Shell")
Dim ipstr,pingstr
ipstr="192.168.31.1"
Set fso=createobject("scripting.filesystemobject")
Set file = fso.createtextfile("c:\ping" & ipstr & ".txt")
Set myping=shell.Exec("ping -t " & ipstr )
while Not myping.StdOut.AtEndOfStream
        strLine = myping.StdOut.ReadLine()
        file.writeline date & " "& time & chr(9) & strLine
Wend

最后保存成名为ping.vbs的文件，把创建的ping.vbs复制到C盘根目录下。

使用管理员打开CMD。

输入cd \进入C盘

再输入命令cscript ping.vbs来运行刚才创建的ping.vbs文件，最后会在C盘下生成以目的地址的文件。

本文的相关代码均是从网上收录，用于本人学习记录。

如有侵权，请联系我主动删除。

windows 10

使用管理员加打windows10中的Windows PowerShell，使用以下命令开始ping

例如ping百度：

ping.exe -t www.baidu |Foreach{"{0} - {1}" -f (Get-Date),$_}

如果要ping又要记录到文本文档：（ping www.baidu,并记录到D盘下的1.txt文本文档）

ping.exe -t www.baidu |Foreach{"{0} - {1}" -f (Get-Date),$_}>D://1.txt

windows 7

创建一个新的文本文档并复制以下代码：

Set shell = WScript.CreateObject("WScript.Shell")
Dim ipstr,pingstr
ipstr="192.168.31.1"
Set fso=createobject("scripting.filesystemobject")
Set file = fso.createtextfile("c:\ping" & ipstr & ".txt")
Set myping=shell.Exec("ping -t " & ipstr )
while Not myping.StdOut.AtEndOfStream
        strLine = myping.StdOut.ReadLine()
        file.writeline date & " "& time & chr(9) & strLine
Wend

最后保存成名为ping.vbs的文件，把创建的ping.vbs复制到C盘根目录下。

使用管理员打开CMD。

输入cd \进入C盘

再输入命令cscript ping.vbs来运行刚才创建的ping.vbs文件，最后会在C盘下生成以目的地址的文件。

本文的相关代码均是从网上收录，用于本人学习记录。

如有侵权，请联系我主动删除。