I have the same request and I do it with VBScript and WMI: On Error Resume Next Set wmi = GetObject("winmgmts:{ImpersonationLevel=Impersonate}!\\.\root\cimv2") Set tad = wmi.ExecQuery("SELECT SettingID FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True",, 48) Set reg = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\.\root\default:StdRegProv") For Each item In tad reg.setDWORDValue &H80000002, "SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\" & item.SettingID & "\Connection", "ShowIcon", 1 Next Set wmi = Nothing Set tad = Nothing Set reg = Nothing