set w=wscript.createobject("wscript.shell")
Set Fsys=CreateObject("Scripting.FileSystemObject")
m_time=time
for i=1 to len(m_time)
str=mid(m_time,i,1)
if str=":" then
temp=temp+"-"
else temp=temp+str
end if
next
m_time=temp
w.run "ping
www.163.com >"&"d:\"&date&" "&m_time&".txt",1,true
把以上内容保存为ping.vbs后双击就可以了。(
www.163.com是你想PING的网址。)
本回答被网友采纳