'Option Explicit 'On Error Resume Next 'Create a constant for the HKEY_CURRENT_USER object 'HKEY_CLASSES_ROOT (2147483648 (0x80000000)) 'HKEY_CURRENT_USER (2147483649 (0x80000001)) 'HKEY_LOCAL_MACHINE (2147483650 (0x80000002)) 'HKEY_USERS (2147483651 (0x80000003)) 'HKEY_CURRENT_CONFIG (2147483653 (0x80000005)) Dim wshShell, errRun : Set wshShell = WScript.CreateObject("WScript.Shell") wshShell.Run("C:\WINDOWS\System32\RUNDLL32.EXE user32.dll IsClipboardFormatAvailable 1") errRun = wshShell.Run("taskkill /IM iexplore.exe /f",0,true) errRun = wshShell.Run("RunDll32.exe InetCpl.cpl,ResetIEtoDefaults",1,true) errRun = wshShell.Run("RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 4351",1,true) '4351 WScript.Sleep 3000 Const HKCR = &H80000000 Const HKCU = &H80000001 Const HKLM = &H80000002 'Define variables Dim strComputer Dim strRegistryKey Dim objRegistry Dim strRegistryValue Dim binValue Dim strKeyPath Dim strHexValues, arrHexValues, arrDecValues strComputer = "." 'Connect to the Registry Set objRegistry=GetObject( "winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") 'Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects" 'objReg.EnumKey HKLM, strKeyPath, arrSubKeys w=sDelRegEntry( HKLM, strKeyPath) strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains" w=sDelRegEntry( HKCU, strKeyPath) strKeyPath = "SOFTWARE\Microsoft\Internet Explorer\MAIN" objRegistry.DeleteValue HKCU,strKeyPath,"TabProcGrowth" 'objRegistry.SetDWORDValue HKCU, strRegistryKey, "TabProcGrowth", "1" strKeyPath = "SOFTWARE\Microsoft\Internet Explorer\MAIN" objRegistry.DeleteValue HKLM,strKeyPath,"TabProcGrowth" 'objRegistry.SetDWORDValue HKLM, strRegistryKey, "TabProcGrowth", "Medium" strKeyPath = "SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects" w=sDelRegEntry( HKLM, strKeyPath) strKeyPath = "SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN" objRegistry.DeleteValue HKLM,strKeyPath,"TabProcGrowth" 'objRegistry.SetDWORDValue HKLM, strRegistryKey, "TabProcGrowth", "Medium" Search_Default="Software\Microsoft\Internet Explorer\SearchScopes" Search_Naver="Software\Microsoft\Internet Explorer\SearchScopes\{D09CFF09-A42A-4EDC-9804-E61224F59CA1}" w=sDelRegEntry( HKLM, Search_Default) w=sDelRegEntry( HKCU, Search_Default) objRegistry.CreateKey HKCU, Search_Naver objRegistry.SetStringValue HKCU, Search_Default, "DefaultScope", "{D09CFF09-A42A-4EDC-9804-E61224F59CA1}" objRegistry.SetStringValue HKCU, Search_Naver, "DisplayName", "Naver" objRegistry.SetStringValue HKCU, Search_Naver, "URL", "http://search.naver.com/search.naver?where=nexearch&sm=ies_hty&ie=utf8&query={searchTerms}" objRegistry.SetDWORDValue HKCU, Search_Naver, "ShowSearchSuggestions", "1" objRegistry.SetStringValue HKCU, Search_Naver, "SuggestionsURL_JSON", "http://ac.search.naver.com/nx/ac?of=os&ie={inputEncoding}&q={searchTerms}&oe={outputEncoding}" objRegistry.SetStringValue HKCU, Search_Naver, "FaviconURL", "http://www.naver.com/favicon.ico" objRegistry.SetStringValue HKCU, Search_Naver, "FaviconURLFallback", "http://www.naver.com/favicon.ico" objRegistry.SetStringValue HKCU, Search_Naver, "FaviconPath", "%userprofile%\AppData\LocalLow\Microsoft\Internet Explorer\Services\search_{D09CFF09-A42A-4EDC-9804-E61224F59CA1}.ico" 'Retrieve the current settings. 'BinaryValue, SetDWORDValue, QWORDValue, ExpandedStringValue, MultiStringValue, SecurityDescriptor, StringValue strRegistryKey = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections" strRegistryValue = "DefaultConnectionSettings" objRegistry.GetBinaryValue HKCU, strRegistryKey, strRegistryValue, binValue 'Change the 'Automatically detect settings' box to unticked 'The value is : '09 when only 'Automatically detect settings' is enabled '03 when only 'Use a proxy server for your LAN' is enabled '0B when both are enabled '05 when only 'Use automatic configuration script' is enabled '0D when 'Automatically detect settings' and 'Use automatic configuration script' are enabled '07 when 'Use a proxy server for your LAN' and 'Use automatic configuration script' are enabled '0F when all the three are enabled. '01 when none of them are enabled. binValue(8) = 01 'binValue(8) = 13 - Enable this line to check the box instead of uncheck 'Save the changes objRegistry.SetBinaryValue HKCU, strRegistryKey, strRegistryValue, binValue strRegistryKey = "Software\Microsoft\Internet Explorer\Main" objRegistry.SetStringValue HKCU, strRegistryKey, "Start Page", "http://www.samsung.net/" objRegistry.SetStringValue HKCU, strRegistryKey, "Enable Browser Extensions", "no" objRegistry.SetStringValue HKCU, strRegistryKey, "Play_Background_Sounds", "yes" objRegistry.SetStringValue HKCU, strRegistryKey, "Play_Animations", "yes" objRegistry.SetStringValue HKCU, strRegistryKey, "DisableScriptDebuggerIE", "yes" objRegistry.SetStringValue HKCU, strRegistryKey, "Enable AutoImageResize", "yes" objRegistry.SetStringValue HKCU, strRegistryKey, "FormSuggest Passwords", "no" objRegistry.SetStringValue HKCU, strRegistryKey, "FormSuggest PW Ask", "no" strRegistryKey = "Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_LOCALMACHINE_LOCKDOWN" objRegistry.SetDWORDValue HKCU, strRegistryKey, "iexplore.exe", "0" strRegistryKey = "Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_LOCALMACHINE_LOCKDOWN\Settings" objRegistry.SetDWORDValue HKCU, strRegistryKey, "LOCALMACHINE_CD_UNLOCK", "0" strRegistryKey = "Software\Microsoft\Internet Explorer\Privacy" objRegistry.SetDWORDValue HKCU, strRegistryKey, "ClearBrowsingHistoryOnExit", "0" strRegistryKey = "Software\Microsoft\Internet Explorer\PhishingFilter" objRegistry.SetDWORDValue HKCU, strRegistryKey, "EnabledV9", "0" strRegistryKey = "Software\Microsoft\Windows\CurrentVersion\Internet Settings" objRegistry.SetDWORDValue HKCU, strRegistryKey, "PrivDiscUiShowns", "1" objRegistry.SetDWORDValue HKCU, strRegistryKey, "EnableHttp1_1", "1" objRegistry.SetDWORDValue HKCU, strRegistryKey, "ProxyHttp1.1", "0" objRegistry.SetDWORDValue HKCU, strRegistryKey, "UrlEncoding", "1" objRegistry.SetDWORDValue HKCU, strRegistryKey, "PrivacyAdvanced", "0" objRegistry.SetDWORDValue HKCU, strRegistryKey, "SyncMode5", "3" 'objRegistry.SetDWORDValue HKCU, strRegistryKey, "SecureProtocols", "2728" strRegistryKey = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\5.0\Cache" objRegistry.SetDWORDValue HKCU, strRegistryKey, "ContentLimit", "8" strRegistryKey = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\5.0\Cache\Content" objRegistry.SetStringValue HKCU, strRegistryKey, "CachePrefix", "" objRegistry.SetDWORDValue HKCU, strRegistryKey, "CacheLimit", "8192" 'strRegistryKey = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\5.0\Cache\Cookies" 'objRegistry.SetStringValue HKCU, strRegistryKey, "CachePrefix", "Cookie:" 'objRegistry.SetDWORDValue HKCU, strRegistryKey, "CacheLimit", "8192" strRegistryKey = "Software\Microsoft\Internet Explorer\BrowserEmulation" objRegistry.SetDWORDValue HKCU, strRegistryKey, "AutomaticLayoutRecovery", "1" objRegistry.SetDWORDValue HKCU, strRegistryKey, "MSCompatibilityMode", "1" objRegistry.SetDWORDValue HKCU, strRegistryKey, "AllSitesCompatibilityMode", "0" objRegistry.SetDWORDValue HKCU, strRegistryKey, "IntranetCompatibilityMode", "1" strRegistryKey = "Software\Microsoft\Internet Explorer\New Windows" objRegistry.SetDWORDValue HKCU, strRegistryKey, "PopupMgr", "0" objRegistry.SetDWORDValue HKCU, strRegistryKey, "BlockUserInit", "0" objRegistry.SetDWORDValue HKCU, strRegistryKey, "UseHooks", "1" objRegistry.SetDWORDValue HKCU, strRegistryKey, "AllowHTTPS", "0" objRegistry.SetDWORDValue HKCU, strRegistryKey, "BlockControls", "0" strRegistryKey = "Software\Microsoft\Internet Explorer\New Windows\Allow" objRegistry.SetDWORDValue HKCU, strRegistryKey, "127.0.0.1", "0" objRegistry.SetDWORDValue HKCU, strRegistryKey, "localhost", "0" strRegistryKey = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\CACHE" objRegistry.SetDWORDValue HKCU, strRegistryKey, "Persistent", "0" strRegistryKey = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" objRegistry.SetDWORDValue HKCU, strRegistryKey, "1200", "0" objRegistry.SetDWORDValue HKCU, strRegistryKey, "270C", "3" objRegistry.SetDWORDValue HKCU, strRegistryKey, "2201", "0" objRegistry.SetDWORDValue HKCU, strRegistryKey, "2702", "0" objRegistry.SetDWORDValue HKCU, strRegistryKey, "2000", "0" objRegistry.SetDWORDValue HKCU, strRegistryKey, "1004", "1" objRegistry.SetDWORDValue HKCU, strRegistryKey, "1001", "1" objRegistry.SetDWORDValue HKCU, strRegistryKey, "1209", "1" objRegistry.SetDWORDValue HKCU, strRegistryKey, "1201", "1" objRegistry.SetDWORDValue HKCU, strRegistryKey, "1405", "0" objRegistry.SetDWORDValue HKCU, strRegistryKey, "120B", "3" objRegistry.SetDWORDValue HKCU, strRegistryKey, "120A", "0" objRegistry.SetDWORDValue HKCU, strRegistryKey, "1208", "0" 'etc 'iframe objRegistry.SetDWORDValue HKCU, strRegistryKey, "1804", "1" 'ie script allow objRegistry.SetDWORDValue HKCU, strRegistryKey, "1206", "3" 'smartscreen objRegistry.SetDWORDValue HKCU, strRegistryKey, "2301", "3" 'frame search objRegistry.SetDWORDValue HKCU, strRegistryKey, "1607", "1" 'domain access objRegistry.SetDWORDValue HKCU, strRegistryKey, "1406", "3" 'run size unlimited objRegistry.SetDWORDValue HKCU, strRegistryKey, "2102", "3" 'popup objRegistry.SetDWORDValue HKCU, strRegistryKey, "1809", "3" 'XSS filter objRegistry.SetDWORDValue HKCU, strRegistryKey, "1409", "3" 'clipboard access allow objRegistry.SetDWORDValue HKCU, strRegistryKey, "1407", "0" strRegistryKey = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\iexplore.exe" objRegistry.DeleteKey HKLM, strRegistryKey 'objRegistry.CreateKey HKLM, strRegistryKey 'objRegistry.SetDWORDValue HKLM, strRegistryKey, "MitigationOptions", "256" strRegistryKey = "jpegfile\shell\open\DropTarget" objRegistry.SetStringValue HKCR, strRegistryKey, "Clsid", "{FFE2A43C-56B9-4bf5-9A79-CC6D4285608A}" strRegistryKey = "pngfile\shell\open\DropTarget" objRegistry.SetStringValue HKCR, strRegistryKey, "Clsid", "{FFE2A43C-56B9-4bf5-9A79-CC6D4285608A}" strRegistryKey = "Paint.Picture\shell\open\DropTarget" objRegistry.SetStringValue HKCR, strRegistryKey, "Clsid", "{FFE2A43C-56B9-4bf5-9A79-CC6D4285608A}" x=msgbox("Set Complete" ,64, "IE Settings") Function sDelRegEntry(sHive, KeyPath) objRegistry.EnumKey sHive, KeyPath, arrSubKeys 'if objReg.EnumKey(sHive, KeyPath, arrSubKeys) = 0 then If IsArray(arrSubKeys) Then For Each subkey In arrSubKeys sDelRegEntry sHive, KeyPath&"\"&subkey objRegistry.DeleteKey sHive, KeyPath&"\"&subkey Next end if End Function Function DecimalNumbers(arrHex) Dim i, strDecValues For i = 0 to Ubound(arrHex) If isEmpty(strDecValues) Then strDecValues = CLng("&H" & arrHex(i)) Else strDecValues = strDecValues & "," & CLng("&H" & arrHex(i)) End If next DecimalNumbers = split(strDecValues, ",") End Function