Function Bslogin(username,password)
	Set objL = CreateObject("WScript.Shell")
	objL.run("chrome --app=http://10.166.250.5/termsAuth/index.htm?www.google.com/")
	WScript.sleep 2000
	objL.SendKeys "{TAB}"
	objL.SendKeys " "
	objL.SendKeys "{TAB}"
	objL.SendKeys " "
	WScript.sleep 1000
	objL.SendKeys "^a"
	objL.SendKeys username
	objL.sendKeys "{TAB}"
	objL.SendKeys "^a"
	objL.SendKeys password
	objL.SendKeys "{ENTER}"
	WScript.sleep 2000
	objL.SendKeys "%{F4}"
	objL.sendkeys "{ESC}"
End Function

Function Ping(strHost)
	Dim oPing, oRetStatus, bReturn
	Set oPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address='" & strHost & "'")
	
	For Each oRetStatus In oPing
		If IsNull(oRetStatus.StatusCode) Or oRetStatus.StatusCode <> 0 Then
			bReturn = False
		Else
			bReturn = True
		End If
		Set oRetStatus = Nothing
	Next
	Set oPing = Nothing
	
	Ping = bReturn
End Function


username="2012LiHX"
password="xuan1624"
toping="www.google.com"
Set obj=CreateObject("WScript.shell")
hotspotname="Eq"
Dim errlvl
Do
	If Not Ping(toping) Then
		obj.Run "netsh wlan connect name="&hotspotname&"&setx ERL=%ERRORLEVEL%",,True
		errlvl = obj.ExpandEnvironmentStrings( "%ERL%" )
		obj.Run "REG delete HKCU\Environment /F /V ERL",,True
		If (errorlvl=1 And Hour>=7) Then
			If Not Ping("10.166.250.5") Then
				obj.Run "netsh wlan connect name=wireless@bs",,True
			End If
			Bslogin username,password
		End If
	End If
	WScript.sleep 900000
Loop