'Enable/Disable Maintain Server List
'© Kevin McDonald - rev 12/09/2008

Option Explicit

'Declare variables
Dim WSHShell, n, MyBox, p, t, mustboot, errnum, vers
Dim enab, disab, jobfunc, itemtype

'set WSHShell = CreateObject("Shell.Application")


Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Browser\Parameters\"
p = p & "MaintainServerList"
itemtype = "REG_SZ"
mustboot = "You MUST restart your pc to" & vbCR & "effect the changes!"
enab = "ENABLED"
disab = "DISABLED"
jobfunc = "Maintain Server List 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 = "Confirmation"
Err.Clear
On Error Resume Next
n = WSHShell.RegRead (p)
On Error Goto 0
errnum = Err.Number

if errnum <> 0 then
'Create the registry key value for MaintainServerList with value AUTO
	WSHShell.RegWrite p, "AUTO", 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 = "No" Then
	n = "Auto"
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)
ElseIf n = "Auto" then
	n = "No"
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t)
End If