求一个开机自动检测网络的VBS

zinet

电脑开机后5分钟，自动运行该vbs，vbs运行后ping一个为www.xxx.cn的网站，如果能ping通的话就打开www.xxx.cn/index.html,不能ping通的话就自动退出该vbs ，不知该vbs如何写请高人指教，谢谢

leaparde

1. @ping www.xx.cn -n 2 |findstr TTL>nul&&(start www.xxx.cn/index.html)||exit

复制代码

开机自动运行的话你自己加吧，我不会弄，呵呵

Batcher

你这个不是VBS代码吧？

rat

1. WSH.Sleep 1000 * 60 * 5
   
2. If Ping("www.xxx.cn") Then
   
3.         OpenIE("www.xxx.cn/index.html")
   
4. End If
   
5. 
   
6. 
   
7. Sub OpenIE(strWeb)
   
8.         CreateObject("WScript.Shell").Run "iexplore " + strWeb
   
9. End Sub
   
10. 
    
11. Function Ping(strHost)
    
12.         b = False
    
13.         strComputer = strHost
    
14.         Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    
15.         Set colItems = objWMIService.ExecQuery _
    
16.                 ("Select * from Win32_PingStatus " & _
    
17.                         "Where Address = '" & strComputer & "'")
    
18.         For Each objItem in colItems
    
19.                 If objItem.StatusCode = 0 Then
    
20.                         b = True
    
21.                         Exit For
    
22.                 End If
    
23.         Next
    
24.         Ping = b
    
25. End Function

复制代码