能否用BAT或者VBS来制作一个宽带计时器

do
Dim strMachines,aMachines,machine
Dim objPing,objStatus,objws '测试网络是否连接
Dim connect,unconnect
x=false
Machine="xx.xx.xx.xx"
Do
Set objPing=GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & machine & "'")
connect=0
unconnect=0
For i=1 To 10
For Each objStatus in objPing
If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
unconnect=unconnect+1
connect=0
End If
Next
Next
If connect=10 Then

Set objPing=nothing
exit do
End If

Loop
set wshshell=wscript.createobject("wscript.shell")