wireless1.vbs

'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 2009
'
' NAME:
'
' AUTHOR: Mohammed Alyafae ,
' DATE  : 9/12/2011
'
' COMMENT: this script disable wireless connection if the LAN is Connected
'			and vice versa
'==========================================================================
On Error Resume Next
 Dim strComputer
 Dim objWMIService
 Dim colLAN
 Dim objWifi,objLAN
 Dim state
 Dim wireStatus
 Dim wifiStatus

 state=""
 wireStatus=""
 wifiStatus=""

 Do While True

 strComputer = "."
 Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
 Set colLAN = objWMIService.ExecQuery("Select * From Win32_NetworkAdapter Where NetConnectionID like 'Local Area Connection' and PhysicalAdapter='True'" )
 Set colWiFi=objWMIService.ExecQuery ("Select * From Win32_NetworkAdapter Where NetConnectionID =" & "'" &GetWirlessName & "'" & "and PhysicalAdapter='True' ")

 For Each objWifi In colWiFi
	 If objWifi.Netconnectionstatus=2 Then
	 wifiStatus=True
	 Else
	 wifiStatus=False
	 End If
 Next

 For Each objLAN in colLAN

 If objLAN.Netconnectionstatus=2 Then
	 wireStatus=True
	 state=False ' this is very importnat variable to determine when to enable or disbale wireless connection
	 Else
	 wireStatus=False
	 End If
 Next


If True Then
	If state <>  False Then
		 If wifiStatus = False Then
		 EnableWireless GetWirlessName
		 End If
	Else
		If wifiStatus = True Then
		DisableWireless GetWirlessName
		End If
	End If

 End If


state=""
wireStatus=""
wifiStatus=""

WScript.Sleep  60000

Loop


' Function to get wireless adapter name from the registery
Function GetWirlessName

Dim strKeyPath
Dim strComputer
Dim objReg
Dim arrSubKeys
Dim SubKey
Dim strValueName
Dim dwValue
Dim strValue
Const HKLM=&H80000002


strKeyPath="SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}"
strComputer="."

Set objReg=GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
objReg.Enumkey HKLM ,strKeyPath,arrSubKeys

For Each SubKey In arrSubKeys
	strValueName="MediaSubType"
	objReg.GetDWORDValue HKLM,strKeyPath & "\" & subkey & "\" & "Connection" ,strValueName,dwValue
	If dwValue=2 Then
		strValueName = "Name"
		objReg.GetStringValue HKLM,strKeyPath & "\" & subkey & "\" & "Connection" ,strValueName,strValue
		Exit For
	End If
Next

GetWirlessName=strValue

End Function



' Subroutine to disable wireless connection
Sub DisableWireless (strNetConn)

Dim oConnections
dim objShell
Dim objConnections,objConn
Dim strDisable
Dim objNetwork
Dim objDisable
Dim objVerb

Const NETWORK_CONNECTIONS = &H31&

strDisable = "Disa&ble"

Set objShell = CreateObject("Shell.Application")
Set objConnections = objShell.Namespace(NETWORK_CONNECTIONS)

For Each objConn In objConnections.Items
	If objConn.Name = strNetConn Then
		Set objNetwork = objConn
		Exit For
	End If
Next
Set objDisable = Nothing

For Each objVerb in objNetwork.verbs
	If objVerb.name = strDisable Then
		Set objDisable = objVerb
		Exit For
	End If

Next
objDisable.DoIt
WScript.Sleep 1000
End Sub

'Function to enable wireless connection , you can combone these two subtoutines into one
' but I prefer to seperate them just for simplicity
Sub EnableWireless (strNetConn)
Dim oConnections
dim objShell
Dim objConnections,objConn
Dim strEnable
Dim objNetwork
Dim objEnable
Dim objVerb

Const NETWORK_CONNECTIONS = &H31&

strEnable = "En&able"

Set objShell = CreateObject("Shell.Application")
Set objConnections = objShell.Namespace(NETWORK_CONNECTIONS)


For Each objConn In objConnections.Items
If objConn.Name = strNetConn Then
	Set objNetwork = objConn
	Exit For
End If
Next
Set objEnable = Nothing

' Enable NIC
For Each objVerb in objNetwork.verbs
	If objVerb.name = strEnable Then
		Set objEnable = objVerb
		Exit For
	End If

Next

objEnable.DoIt
WScript.Sleep 1000
End Sub