'Downloaded from www.dougknox.com
'Fix Internet Options Restrictions
'© Doug Knox - rev 05/21/2003

Option Explicit

'Declare variables
Dim WSHShell, n, MyBox, p, p1, p2, itemtype
itemtype = "REG_DWORD"

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

p = "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserOptions"
p1 = "HKEY_USERS\.DEFAULT\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserOptions"
p2 = "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserOptions"

'Create/modify the registry key value for NoBrowserOptions with value 0
WSHShell.RegWrite p, 0, itemtype
WSHShell.RegWrite p1, 0, itemtype
WSHShell.RegWrite p2, 0, itemtype

p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions"
p1 = "HKEY_USERS\.Default\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions"
p2 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions"

'Create/modify the registry key value for NoFolderOptions with value 0
WSHShell.RegWrite p, 0, itemtype
WSHShell.RegWrite p1, 0, itemtype
WSHShell.RegWrite p2, 0, itemtype

MsgBox "Done.  You may need to log off/log on or reboot for the change to take effect.",4096,"Finished!"