Quote:
'Restrict setting of default home page
'© Doug Knox - rev 3/29/2000
Option Explicit
'Declare variables
Dim WSHShell, n, MyBox, p, p1, p2, t, errnum, vers
Dim enab, disab, jobfunc, itemtype
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKEY_CURRENT_USER\Software\Policies\Microsoft\Int ernet Explorer\Control Panel\"
p = p & "HomePage"
itemtype = "REG_DWORD"
enab = "ENABLED"
disab = "DISABLED"
jobfunc = "Setting of default home page is "
'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 Go to 0
errnum = Err.Number
if errnum <> 0 then
'Create the registry key value for HomePage with value 0
WSHShell.RegWrite p, 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
Mybox = MsgBox(jobfunc & disab, 4096, t)
ElseIf n = 1 then
n = 0
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & enab, 4096, t)
End If
--------------------------------------