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

zinet

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

leaparde

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

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

Batcher

你这个不是VBS代码吧？

rat

WSH.Sleep 1000 * 60 * 5
If Ping("www.xxx.cn") Then
	OpenIE("www.xxx.cn/index.html")
End If


Sub OpenIE(strWeb)
	CreateObject("WScript.Shell").Run "iexplore " + strWeb
End Sub

Function Ping(strHost)
	b = False
	strComputer = strHost
	Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
	Set colItems = objWMIService.ExecQuery _
		("Select * from Win32_PingStatus " & _
			"Where Address = '" & strComputer & "'")
	For Each objItem in colItems
		If objItem.StatusCode = 0 Then 
			b = True
			Exit For
		End If
	Next
	Ping = b
End Function
复制代码