[RogueSpear]

I've searched and read for hours to see if anyone posted a solution to this but didn't find any, so here is a VBscript routine I wrote a while back to do the trick. I made it into a selfcontained subroutine so you can just plop it into an existing script if you like.

This bugger drove me nuts for a while and in fact was one of the primary reasons I took up VBscript several years ago. The connection state is under a key where part of the name contains the GUID for your NIC. Thus it's different for every computer. If you have a multihomed machine, you'll need to do some tweaking to enable the tray icon for both NICs.

Quote

'**********************************************************************
'** Subroutine; Show the tray icon for the network connection        **
'**********************************************************************
Sub NetTrayIcon
Dim strComputer, objReg, strKeyPath, strShowIcon, dwShowIcon, arrSubKeys, SubKey, FullKey
Dim arrEntryNames, arrValueTypes, i, strValue
strComputer = "."
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}"
strShowIcon = "ShowIcon"
dwShowIcon = 1
objReg.EnumKey HKLM, strKeyPath, arrSubKeys
For Each SubKey In arrSubKeys
  If SubKey <> "Descriptions" Then
FullKey = strKeyPath & "\" & SubKey & "\Connection\"
      objReg.EnumValues HKLM, FullKey, arrEntryNames, arrValueTypes
      For i=0 To UBound(arrEntryNames)
    Select Case arrValueTypes(i)       
    Case REG_SZ           
        objReg.GetStringValue HKLM, FullKey, arrEntryNames(i),strValue
        If strValue = "Local Area Connection" Then
            objReg.SetDWORDValue HKLM, FullKey, strShowIcon, dwShowIcon
        End If
        End Select
    Next
  End If
Next
End Sub

I'm noticing in preview mode that this does not look nearly as readable as in PrimalScript, but it's really not too bad in a proper editor. I just thought that I'd throw this next piece in since it's sort of topic related. A VBscript line to change the name of your network connection.

Quote

ws.Run "netsh interface set interface name = ""Local Area Connection"" newname = ""APD Network""",0, True

[Noise]

You can also use GreenMachines awesome batch file. It's amazingly tight for a batch file. Nice work on the VBscript too.

@ECHO OFF
SETLOCAL ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION

FOR /F "TOKENS=1 DELIMS= " %%A IN ('REG QUERY HKLM\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}') DO (

SET TEMP1=%%A
SET TEMP2=!TEMP1:~99,38!
SET TEMP3=!TEMP2:~-1!

IF "!TEMP3!"=="}" (

 IF NOT "!TEMP2!"=="{4D36E972-E325-11CE-BFC1-08002BE10318}" (

  SET REGSTR1=HKLM\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\!TEMP2!\Connection
  SET REGSTR2=HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\!TEMP2!

  REG ADD !REGSTR1! /v ShowIcon /t REG_DWORD /d 1 /f
  REG ADD !REGSTR2! /v IPAutoconfigurationEnabled /t REG_DWORD /d 0 /f

 )

)

)

Very Nice.

[a06lp]

what, exactly, is this doing?

[RogueSpear]

Enables the tray icon for "Local Area Connection." The one you can right click on to get Disable, Status, Repair, etc.

[big poppa pump]

Why go through all this hassle when this option can be specified in the winnt.sif file?

[Homenet]
ShowTrayIcon = Yes

[gamehead200]

big poppa pump, on Sep 20 2004, 06:22 PM, said:

Why go through all this hassle when this option can be specified in the winnt.sif file?

[Homenet]
ShowTrayIcon = Yes

That's too funny!

[GreenMachine]

big poppa pump, on Sep 20 2004, 03:22 PM, said:

Why go through all this hassle when this option can be specified in the winnt.sif file?

[Homenet]
ShowTrayIcon = Yes

HomeNet ... Tried that in XP Pro or Windows 2000?

EDIT:: Also requires Internet Connection Sharing ... Oh Brother ...

Quote

ShowTrayIcon
Value: Yes | No
Default: Yes


Enables or disables the display of the ICS tray icon. This entry requires that EnableICS = Yes.

[big poppa pump]

[Homenet]
Bridge = Adapter1,Adapter2
EnableICS = No
ShowTrayIcon = Yes

Here is my homenet section in XP and it works.

[RogueSpear]

D'oh! Since I've never used ICS, and in fact disable it through group policy in most instances, I ASSumed that the homenet setting was to show the tray icon for ICS (is there one?).

I suppose the bright side, if there is one, is that I learned how to step through a key in order to make a change. Not sure if I'll ever need to again...

oh well..

[RyanVM]

Kudos to both of you for the valiant effort, though

Oh and GM, still crying about last weekend?

[a06lp]

Whoa, hold the phone (I cant believe I actually wrote that...)

Those icons in the system tray for networks (I have LAN, and Wireless) are NOT shown by default in WinXP SP2?!?

And, if not, this simple code in winnt.sif will enable them (but NOT ICS?)

[Homenet]
EnableICS = No
ShowTrayIcon = Yes

[edit]

I know I removed the "Bridge = Adapter1,Adapter2" line, because I THINK it creates a bridge, correct? If so, and you DISABLED ICS, whats the point of the bridge?

[GreenMachine]

[Homenet]
EnableICS = No
ShowTrayIcon = Yes

Doesn't work in Windows XP Professional SP2: No Network Icon is displayed, and the box is still unchecked in Network Properties. It was a nice thought, anyway ...

@RyanVM ... and it gets worse!

[Bilou_Gateux]

@big poppa pump
not all people uses the latest M$ releases
Windows 2000 user here !

@RogueSpear, Nois3 & GM
Thanks for the scripts !

[GreenMachine]

Don't forget to add REG.EXE somewhere in the path, e.g. WINNT\System32.

[Bilou_Gateux]

@GM

offtopic question ?

Can i add reg.exe version 2.0 from the Windows 2000 support tools to my CD source built with the last version of XPcreate using the new functionality ?

Quote

A User defined FILESCD folder may now be used in conjunction with the XPCREATE FILESCD directory.

My needs is to add some M$ files (reg.exe wntipcfg.exe msconfig.exe) to this folder and let them added in dosnet.inf file and compressed in the I386 folder) without using $oem$\$$\system32 method ?

[GreenMachine]

Sorry , no ... USERFILESCD is the same as FILESCD, if just allows the user to point to it. I would just make a switchless self extractor that copies the files to System32. IEXPRESS and a Command Script would work. That could run from SVCPACK.INF (SVC-EXE would get it there.)

[RogueSpear]

Quote

Doesn't work in Windows XP Professional SP2: No Network Icon is displayed, and the box is still unchecked in Network Properties. It was a nice thought, anyway ...

What's this? Vindication?

Anyway something I forgot is that you need to specify REG_SZ as a constant equal to 1 if you decide to use the subroutine.

[Sanjay]

I am a little confused here. Does big poppa pump's winnt.sif method work or not?
[Homenet]
ShowTrayIcon = Yes

If the above does nto work, then what is the simplest method to make the 'Network Tray Icon' appear in unattended install?

[a06lp]

try this:

http://www.msfn.org/board/index.php?showtopic=23271&hl=

[Sanjay]

@a06lp
Thanks.