option explicit MsgBox "This will remove the NLAmerica browser branding" & chr(13) & "and current homepage.",0,"Notice" MsgBox "If you get a warning from your anti-virus software." & chr(13) & "Please authorize this script and it will complete successfully.",0,"Notice" 'deletes custom IE & OE window titles (tested on IE6 - should also work on IE5) Dim WshShell,lastuser, OEtitle Const IEtitle = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\" const OElastuser = "HKCU\Identities\Last User ID" const OErep = "HKCU\Identities\{IDENTITY}\Software\Microsoft\Outlook Express\5.0\WindowTitle" const RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\" Set WshShell = WScript.CreateObject("WScript.Shell") 'delete IE Title on error resume next WshShell.RegWrite IEtitle & "Window Title","Microsoft" WSHShell.RegWrite regkey & "Start page", "http://www.msn.com" 'Oe (has a Title for each identity!) so find last user ID Err.Clear lastuser = WshShell.RegRead(OElastuser) 'insert last ID in place of {IDENTITY} if Err.Number = 0 and lastuser <>"" then oetitle = replace(OErep,"{IDENTITY}",lastuser,1,1,0) 'nuke it WshShell.RegDelete(oetitle) end if 'Option Explicit 'Dim WSHShell, RegKey, Regkey2 'Set WSHShell = CreateObject("WScript.Shell") 'RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\" 'RegKey2 = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Help_Menu_URLs\" 'WSHShell.RegWrite regkey & "Start page", "http://www.msn.com"; 'WSHShell.RegWrite regkey2 & "Online_Support", "http://Support.microsoft.com"; MsgBox "Your Browser has been unbranded " & chr(13) & "and your homepage has been returned to MSN.",0,"Success"