'Downloaded from www.dougknox.com
'Enable/Disable Setting of Internet Options
'© Doug Knox - rev 08/25/01

Option Explicit

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

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Restrictions\"
p1 = "HKEY_USERS\.DEFAULT\Software\Policies\Microsoft\Internet Explorer\Restrictions\"
p2 = "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Internet Explorer\Restrictions\"
p = p & "NoBrowserOptions"
p1 = p1 & "NoBrowserOptions"
p2 = p2 & "NoBrowserOptions"

itemtype = "REG_DWORD"
mustboot = "You may need to log off and back on, or restart " & vbcr & "your pc to effect the changes"
enab = "ENABLED"
disab = "DISABLED"
jobfunc = "Internet Options setttings are 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 NoBrowserOptions with value 0
	WSHShell.RegWrite p, 0, itemtype
	WSHShell.RegWrite p1, 0, itemtype
	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 p, n, itemtype
	WSHShell.RegWrite p1, n, itemtype
	WSHShell.RegWrite p2, n, itemtype
	Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t)
ElseIf n = 1 then
	n = 0
	WSHShell.RegWrite p, n, itemtype
	WSHShell.RegWrite p1, n, itemtype
	WSHShell.RegWrite p1, n, itemtype
	Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)
End If