netwrknhood.vbs - Hides/Shows Network Neighborhood icon on Desktop in
Win95/98

  Doug Knox - rev 12/03/99

This code may be freely distributed/modified.

Usage: Download netwrknhood.vbs Save the file to the folder of your choice.
Double click the VBS file. The VB Script file will check for the appropriate value
and if not found will create it. If the value was found, it will be toggled to its
opposite state and you will be informed that you need to log off/back on or restart
your computer.

Note: I assume no responsibility at all for your use of this file. You should always
ensure that you have a good working backup of your System Registry before
tampering with it.

Regards,
Doug Knox
****************
'netwrknhood.vbs - Hide/Show Network Neighborhood Icon on Desktop in 
'Win95/98 © Doug Knox - dbknox@mediaone.net - rev 12/03/99
'This code may be freely distributed/modified. Just give credit where its due.
'Thanks to Max Spyridakis for his suggestions

Option Explicit

On Error Resume Next

Dim WSHShell, itemtype, n, MyBox, p, p1, p2, t, mustboot, errnum, vers

Dim jobfunc

Set WSHShell = WScript.CreateObject("WScript.Shell")

p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"

p1 = "NoNetHood"

p2 = p  & p1

itemtype = "REG_DWORD"

t = "Toggle Folder Options"

mustboot = "Log off and back on, or restart your PC to" & vbCR & "effect the
changes"

jobfunc = "Network Neighborhood icon is now "


'This section tries to read the registry key value. If not present an  error is
'generated.  Normal error return should be 0 if value is  present

t = "Enable/Disable Folder Options"

Err.Clear

n = WSHShell.RegRead (p2)

errnum = Err.Number

if errnum <> 0 then

'Create the registry key value for NoNetHood with value 0

     WSHShell.RegWrite p2, 0, itemtype

End If

'If the key is present, or was created, it is toggled Confirmations can be disabled
'by commenting out the two MyBox lines below

If n = 0 Then

     n = 1

WSHShell.RegWrite p2, n, itemtype

Mybox = MsgBox(jobfunc & "DISABLED" & vbCR & mustboot, 4096, t)

ElseIf n = 1 then

     n = 0

Mybox = MsgBox(jobfunc & "ENABLED" & vbCR & mustboot, 4096, t)

WSHShell.RegWrite p2, n, itemtype

End If