vbs 一段PING值到TXT文件

来源：百度知道编辑：UC知道时间：2024/05/05 22:43:06

Set shell = WScript.CreateObject("WScript.Shell")
Set re=New RegExp
re.Pattern = "^Reply|^Request"
Set myping=shell.Exec("ping 219.150.32.132 -t")
while Not myping.StdOut.AtEndOfStream
strLine = myping.StdOut.ReadLine()
r=re.Test(strLine)
If r Then
WScript.Echo date & " "& time & chr(9) & strLine
End if
Wend

保存到T.VBS

在用CMD调入T.VBS
cscript t.vbs

结果输出为

Microsoft (R) Windows Script Host Version 5.7
版权所有(C) Microsoft Corporation 1996-2001。保留所有权利。

2009-10-7 16:25:34 Reply from 219.150.32.132: bytes=32 time=49ms TTL=245
2009-10-7 16:25:35 Reply from 219.150.32.132: bytes=32 time=50ms TTL=245
2009-10-7 16:25:36 Reply from 219.150.32.132: bytes=32 time=47ms TTL=245
2009-10-7 16:25:37 Reply from 219.150.32.132: bytes=32 time=49ms TTL=245

我现在想吧PING值保存到TXT文件里应该怎么编译？

将第四行代码改为:
Set myping=shell.Exec("cmd /c ping 219.150.32.132 -t>>info.txt")
运行一下就可以看到效果了

调用FileSystemObject对象，可以进行很多文件操作，下面是例子，具体请查资料

Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateTextFile("c:\testfile.txt", True)
f.WriteLine("写入一行文本")
F.Close

set os=createobject("wscript.shell")
os.run "cmd /c ping 219.150.32.132 >D:\ping.txt",0

不知道这个是不是你想要的。

帮忙解释一段vbs 用VBS写出与1~100相对应的二进制数到文件11.txt中编一段把a.txt中的字符串,传送到b.txt中去怎么把TXT格式改成VBS的需要一段VBS脚本-直接.vbs就可以用的求一段BAT.关于指定A.txt里面的所有内容添加到指定B.TXT里. 用VBS编写怎样输出一段话？一段vbs代码的问题，请解答求vbs的一段特简单代码使用ping命令后，怎么样才能把ping值保存到一个记事本中