Re: Simple registry edit through a script

'=======================================================================
===
'
' NAME: DisableGoMicrosoftCom.vbs
'
' AUTHOR: Mark D. MacLachlan , The Spider's Parlor
' URL: http://www.thespidersparlor.com
' DATE  : 7/10/2009
' COPYRIGHT © 2009, All Rights Reserved
'
' COMMENT:
'    THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
'    ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED To
'    THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
'    PARTICULAR PURPOSE.
'
'    IN NO EVENT SHALL THE SPIDER'S PARLOR AND/OR ITS RESPECTIVE
SUPPLIERS
'    BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY
'    DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
'    WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
'    ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
'    OF THIS CODE OR INFORMATION.
'
'=======================================================================
===
Dim WSHShell
Set WSHShell = CreateObject("Wscript.Shell")

Dim FirstRunCustomizeArray(4)
FirstRunCustomizeArray(0) = "HKLM\Software\Policies\Microsoft\Internet
Explorer\Main\"
FirstRunCustomizeArray(1) = "HKCU\Software\Policies\Microsoft\Internet
Explorer\Main\"
FirstRunCustomizeArray(2) = "HKCU\Software\Microsoft\Internet
Explorer\Main\"
FirstRunCustomizeArray(3) = "HKLM\Software\Microsoft\Internet
Explorer\Main\"

For Each Key In FirstRunCustomizeArray
WSHShell.RegWrite Key & "DisableFirstRunCustomize", 1, "REG_DWORD"
Next

Dim RunOnceArray(2)
RunOnceArray(0) = "HKLM\Software\Policies\Microsoft\Internet
Explorer\Main\"
RunOnceArray(1) = "HKCU\Software\Policies\Microsoft\Internet
Explorer\Main\"

For Each Key In RunOnceArray
WSHShell.RegWrite Key & "RunOnceComplete ", 1, "REG_DWORD"
WSHShell.RegWrite Key & "RunOnceHasShown ", 1, "REG_DWORD"
Next

Path = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet
Settings\ZoneMap\Domains\microsoft.com\go\"
WSHShell.RegWrite Path & "http", 4, "REG_DWORD"