found a script to do it.
------------------------------
'****** Begin Script *********
'Author:
joegasper@hotmail.comREMOVE
'Use at your own risk.
'Enables the Notification Area icon for IP enabled
'Network Connections.
'Does not rely on Network Connection name, i.e. "Local
'Area Connection".
'Does modify CurrentControlSet001 as observed when
'modifying via GUI (verify 1st for yourself).
'Does create registry entry if missing.
Dim objReg
Dim objWMIService
Dim colNetCards
Dim objNetCard
Dim strNICguid
Const HKLM = &H80000002
strComputer = "." 'Period = local computer
strKeyName = "SYSTEM\CurrentControlSet\Control\Network\{4D36E97 2-E325-11CE-BFC1-08002BE10318}\"
strKeyName001 = "SYSTEM\CurrentControlSet001\Control\Network\{4D36 E972-E325-11CE-BFC1-08002BE10318}\"
dwValue = 0
On Error Resume Next
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonat e}!\\" & strComputer& "\root\default:StdRegProv")
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonat e}!\\" & strComputer& "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard in colNetCards
strNICguid = objNetCard.SettingID
objReg.SetDWORDValue HKLM, strKeyName & strNICguid & "\Connection", "ShowIcon", dwValue
objReg.SetDWORDValue HKLM, strKeyName001 & strNICguid & "\Connection", "ShowIcon", dwValue
Next
Set objReg = Nothing
Set objWMIService = Nothing
'****** End Script *********