'Remove Home Page Setting Restriction.
'© Doug Knox - 08/10/2003

Option Explicit
On Error Resume Next

'Declare variables
Dim WSHShell, p, p1, p2, itemtype, X

itemtype = "REG_DWORD"
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\"
p1 = "HKLM\Software\Policies\Microsoft\Internet Explorer\Control Panel\"

p2 = p & "HomePage"

WSHShell.RegWrite p2, 0, itemtype

p2 = p1 & "HomePage"

WSHShell.RegWrite p2, 0, itemtype

MsgBox "You should now be able to change your default home page. If not, then you need Administrator level permissions to run this script.", 4096, "Finished"