Fix "security improvement" nags and restrictions in Windows XP SP2. (VBScript)
| '-- This script is for disabling various
security nags in WinXP SP2. '-------------------------------------------------------------- '-- **** YOU USE THIS SCRIPT AT YOUR OWN RISK. **** '-- **** PLEASE Read the Nag Fixer.RTF FILE BEFORE PROCEEDING. '-- SOME OF THESE SETTINGS ARE NOT CONFIRMED THROUGH '-- MICROSOFT DOCUMENTATION AND THERE IS NO FUNCTION '-- IN THIS SCRIPT TO REVERSE THEM. **** '-- ----------------------------------------------------------- '-- turn off information bar prompt in IE. DWORD. 0 to turn off. (delete to enable?) Const InfoBarVis = "HKCU\Software\Microsoft\Internet Explorer\InformationBar\FirstTime" '-- override anti-virus monitoring. (Does that mean turn it off? DWORD. 1 to override. Const AVDis = "HKLM\SOFTWARE\Microsoft\Security Center\AntiVirusOverride" '-- disable AV taskbar messages. DWORD. 1 to disable. Const AVMsg = "HKLM\SOFTWARE\Microsoft\Security Center\AntiVirusDisableNotify" '-- override firewall. DWORD. 1 to disable. Const FirewallDis1 = "HKLM\SOFTWARE\Microsoft\Security Center\FirewallOverride" '-- disabl firewall. 0 to disable. Const FirewallDis2 = "HKLM\Software\Policies\Microsoft\WindowsFirewall\StandardProfile\EnableFirewall" Const FirewallDis3 = "HKLM\Software\Policies\Microsoft\WindowsFirewall\DomainProfile\EnableFirewall" '-- disable taskbar firewall messages. DWORD. 1 to disable. Const FirewallMsg = "HKLM\SOFTWARE\Microsoft\Security Center\FirewallDisableNotify" '-- disable auto-update taskbar messages. Const UpdateMsg = "HKLM\SOFTWARE\Microsoft\Security Center\UpdatesDisableNotify" '-- disable security center. DWORD. 4 to disable. Const SecCtrRun = "HKLM\SYSTEM\CurrentControlSet\Services\wscsvc\Start" '-- two settings to turn off IE warnings about digital signatures. '-- Check for EXE digital signatures when running files. STRING. "no" or "yes" Const Download1 = "HKCU\Software\Microsoft\Internet Explorer\Download\CheckExeSignatures" '-- DWORD. 1 to turn off warning. Const Download2 = "HKCU\Software\Microsoft\Internet Explorer\Download\RunInvalidSignatures" '-- block checking of zone info. for files Run in Windows. STRING. '-- sample value: ".zip;.rar;.cab;.txt;.exe;.reg;.msi;.htm;.html;.gif;.bmp;.jpg;.avi;.mov;.mp3;.wav" Const SafeFiles = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Associations\LowRiskFileTypes" Const cNAG = "Nag Fixer" Const RegD = "REG_DWORD" Const RegS = "REG_SZ" Dim sMsg, Ret, SH sMsg = "This script can disable many of the warnings and security add-ons that come with XP SP2." sMsg = sMsg & " You use this script at your own risk. Please Read the CAUTIONS in the Nag Fixer.rtf file before proceeding." sMsg = sMsg & " Do you want to continue now?" Ret = MsgBox(sMsg, 36, cNAG) If (Ret = 7) Then WScript.Quit Set SH = CreateObject("WScript.Shell") '-------- IE info bar. ------------------------------------------- sMsg = "1) Do you want to turn off the IE information bar prompt?" Ret = MsgBox(sMsg, 36, cNAG) If (Ret = 6) Then SetReg InfoBarVis, RegD, 0 End If '----------- anti-virus ------------------------- sMsg = "2) Do you want to turn off Windows Anti-virus monitoring and warnings?" Ret = MsgBox(sMsg, 36, cNAG) If (Ret = 6) Then SetReg AVDis, RegD, 1 SetReg AVMsg, RegD, 1 End If '----------- firewall ------------------------- sMsg = "3) Do you want to turn off the Windows firewall?" Ret = MsgBox(sMsg, 36, cNAG) If (Ret = 6) Then SetReg FirewallDis1, RegD, 1 SetReg FirewallDis2, RegD, 0 SetReg FirewallDis3, RegD, 0 SetReg FirewallMsg, RegD, 1 End If '----------- auto update nag ------------------------- sMsg = "4) Do you want to turn off the auto updates notification messages in the taskbar?" Ret = MsgBox(sMsg, 36, cNAG) If (Ret = 6) Then SetReg UpdateMsg, RegD, 1 End If '----------- security center ------------------------- sMsg = "5) Do you want to turn off the Security Center?" Ret = MsgBox(sMsg, 36, cNAG) If (Ret = 6) Then SetReg SecCtrRun, RegD, 4 End If '----------- digital signature nags ------------------------- sMsg = "6) Do you want to stop digital signature nags when downloading and running files?" Ret = MsgBox(sMsg, 36, cNAG) If (Ret = 6) Then SetReg Download1, RegS, "" SetReg Download1, RegS, "no" SetReg Download2, RegD, 1 SetReg SafeFiles, RegS, "" SetReg SafeFiles, RegS, ".zip;.rar;.cab;.txt;.exe;.reg;.msi;.htm;.html;.gif;.bmp;.jpg;.avi;.mov;.mp3;.wav" End If sMsg = "Those are all the settings. End of script." MsgBox sMsg, 64, cNAG Set SH = Nothing WScript.quit '--------------------- End Script. ------------------------------------ '--------------- Sub to do registry settings. ---------------------------- Sub SetReg(sPath, sType, Val) Err.clear On Error Resume Next SH.RegWrite sPath, Val, sType If (Err.Number <> 0) Then MsgBox "Error:" & VBCrLf & "Number: " & Err.Number & VBCrLf & "Description: " & Err.Description, 64, cNAG End If End Sub |