Disabling a network adapter

Rate this article

Loading ...

July 20th, 2008 by

Yaron Assa

Print This Post

Yanir Goren was kind enough to share the following QTip, which allows you to completely disable a network adapter:

Dim i 
Dim adptCount , objDrvs ,sMACAddress
 
i = 0
sMACAddress = "Enter MAC Address Here" 'The adapter’s Mac Address
 
'****  create instance of network adapters***
set objDrvs = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapter")
adptCount = objDrvs.count '**** object contain all network adapters
 
'*** search for object with required macaddress***   
Do
  If strcomp(ucase(objDrvs.itemindex(i).properties_.item("MACAddress").value) , ucase(sMACAddress)) =0 Then
 '*** enable/disable adapter***
   objDrvs.itemindex(i).disable/enable
   Exit do         
  End If
 
  i = i +1
  loop until (i = adptCount)
End Function