Disable Wireless using a process triggered by an event. (VBScript / WMI)
Posted on 2007-10-16
I am trying to develope a script that will run as a service and be triggered by an event. I have a VBScripts called - NetworkConnectionEvent
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\wmi")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery("Select * from MSNdis_StatusMediaConnect")
Do While True
Set strLatestEvent = colMonitoredEvents.NextEvent
'msgbox "New Connection Found"
blnOnTreasuryNetwork = False
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colConfig = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration Where DNSDomain = 'olympus.treasury.gov'",,48)
For Each objItem in colConfig
blnOnTreasuryNetwork = True
Set colAdapters = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter where ProductName like '%Wireless%'",,48)
For Each objAdapter in colAdapters
If blnOnTreasuryNetwork Then
The problem I am getting is the I get an error referring to this line 'objAdapter.disable'. I know it is an object I can use, and I have double-checked the syntax.
Alternatively - If you can think of a better, neater way to capture and event triggered by a wireless card being plugged in/turned on, then I'm happy to hear it. Basically I need to be able to disable the wireless service, regardless of make/model/type whenever the physical NIC gets a DNSDomain name that meets my criteria. unfortunately the only way I can think of doing this is to have something monitoring this, otherwise there would be times/occurrences where wireless and nic connectivity could run together.