Question

用vbs写的ping语句，加入了时间输出，如何将结果写入到txt文件中

Set shell = WScript.CreateObject("WScript.Shell")
Set re=New RegExp
re.Pattern = "^Reply|^Request"
Set myping=shell.Exec("ping -t 192.168.0.249")
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

代码如上，主要是如何修改WScript.Echo date & " "& time & chr(9) & strLine这句
然后就是能否实现每隔30秒ping一次，因为默认是1秒ping一次，这样文本文件太大

Answer 1

写文本文件:

Function file(filename)
set objFSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set objfile = Nothing
Set objfile = objFSO.CreateTextFile(filename,True)
With objfile
.WriteLine ("第一行")
.WriteLine ("第二行")
.WriteLine ("...以此类推")
End With
On Error Goto 0
If Err.Number <> 0 Then
file = False
Else
file = True
End If
End Function

自己写的函数,加入了错误处理机制,

保存的文件将会保存在同级文件夹下，

如果返回false则保存失败。

调用方法：

变量 = file(文件名)

至于隔30秒,

这个很简单，

在代码中加入wscript.sleep 30000，

这样脚本到达这一句时将会暂停30秒。

追问

这么复杂，其实上面写的代码是可以直接运行的，你这个可能要进vb环境了。
看来没有简单的办法了。。

追答

这个是直接可以在vbs上运行的，
都是vbs的代码。