Disable Wireless using a process triggered by an event. (VBScript / WMI)

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"
    CheckNetworkStatus()
Loop
Function CheckNetworkStatus()
  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         
    Exit For
  Next
  Set colAdapters = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter where ProductName like '%Wireless%'",,48)
  For Each objAdapter in colAdapters
    If blnOnTreasuryNetwork Then
      'Disable Wireless            
      objAdapter.disable
    Else
      'Enable Wireless
      Call objAdapter.Enable()
    End if
  Next
End Function

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.