| |
KenPark
Posts: 2
Score: 0
Joined: 9/28/2008
Status: offline
|
'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.
|
|
Printable Version
Disable Wireless using a process triggered by an event.... - 
New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages
Post New Thread