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

Posted on 2007-10-16
Last Modified: 2013-11-09
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"
Function CheckNetworkStatus()
  blnOnTreasuryNetwork = False
  Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
  Set colConfig = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration Where DNSDomain = ''",,48)
  For Each objItem in colConfig
    blnOnTreasuryNetwork = True         
    Exit For
  Set colAdapters = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter where ProductName like '%Wireless%'",,48)
  For Each objAdapter in colAdapters
    If blnOnTreasuryNetwork Then
      'Disable Wireless            
      'Enable Wireless
      Call objAdapter.Enable()
    End if
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.
Question by:tonysummers
    LVL 65

    Accepted Solution

    Hi, from here:

    "A question we hear frequently is "How do I enable and disable my network adapters through a script?" Well, we won't hold you in suspense. We'll tell you right now that you can't. At least not until you're running Windows Vista". In Windows Vista two new methods have been added to the Win32_NetworkAdapter class: Enable and Disable."

    So, are you using Windows Vista?



    Author Comment

    No - we are running XP SP2.. with 140+ business unit applications I think we'll be on XP for sometime.

    Thanks for you response none the less.
    LVL 65

    Expert Comment

    Sorry to hear that.  I don't think we'll get to Vista any time soon either!



    Featured Post

    How your wiki can always stay up-to-date

    Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
    - Increase transparency
    - Onboard new hires faster
    - Access from mobile/offline

    Join & Write a Comment

    This article is the result of a quest to better understand Task Scheduler 2.0 and all the newer objects available in vbscript in this version over  the limited options we had scripting in Task Scheduler 1.0.  As I started my journey of knowledge I f…
    Multi-source agreements are important because they set standards that all manufacturers should follow to ensure that devices are compatible with multiple vendors. The multi-source agreement (MSA) is an agreement that establishes how multiple vendors…
    This Micro Tutorial will show you how to maximize your wireless card to its maximum capability. This will be demonstrated using Intel(R) Centrino(R) Wireless-N 2230 wireless card on Windows 8 operating system.
    Viewers will learn how to connect to a wireless network using the network security key. They will also learn how to access the IP address and DNS server for connections that must be done manually. After setting up a router, find the network security…

    754 members asked questions and received personalized solutions in the past 7 days.

    Join the community of 500,000 technology professionals and ask your questions.

    Join & Ask a Question

    Need Help in Real-Time?

    Connect with top rated Experts

    22 Experts available now in Live!

    Get 1:1 Help Now