解锁注册表！修复IE VBS （合集）

楼层直达

exipt

级别: 光盘见习

发帖: 27

飞翔币: 335

威望: 13

飞扬币: 1554

信誉值: 0

只看楼主更多操作 0 发表于: 2007-01-26

功能:解开注册表
'注意:立即生效
'
Set wso = CreateObject("WScript.Shell")
wso.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",0,"REG_DWORD"
wso.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",0,"REG_DWORD"
msgbox"修复成功!"
'
'功能:恢复reg文件打开方式
'注意:运行后立即生效
'
Set wso = CreateObject("WScript.Shell")
wso.Regwrite "HKEY_LOCAL_MACHINE\Software\CLASSES\.reg\","regfile"
msgbox"修复成功!"
'
'功能:删除ie分级审查密码
'注意:关闭所有浏览器后生效
'
Set wso = CreateObject("WScript.Shell")
wso.regwrite "HKEY_CLASSES_ROOT\exefile\shell\open\command\","%1 %*"
msgbox"修复成功!"
'功能:恢复硬盘分区
'注意:重新启动后生效
'
Set wso = CreateObject("WScript.Shell")
wso.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policie*\**plorer\NoDrives",0,"REG_DWORD"
msgbox"修复成功!"
'
'功能:修复IE工具栏广告
'注意:运行后关闭所有IE浏览器后生效
'
msgbox"如果注册表中关于工具栏广告的项目已经删光,那么本程序将会出错."
Set wso = CreateObject("WScript.Shell")
wso.Regdelete "HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\"
wso.Regdelete "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions\"
msgbox"修复成功!"
'
'功能:恢复一系列文件名
'注意:如果还还没有改回来,请按F5刷新,或者重新启动一下
'
Set wso = CreateObject("WScript.Shell")
wso.RegWrite "HKEY_CLASSES_ROOT\CLSID\{BDEADF00-C265-11d0-BCED-00A0C90AB50F}\","Web 文件夹"
wso.RegWrite "HKEY_CLASSES_ROOT\CLSID\{BDEADF00-C265-11d0-BCED-00A0C90AB50F}\InfoTip","您可以创建快捷方式，使它们指向您公司 Intranet 或万维网上的 Web 文件夹。要将文档发布到 Web 文件夹中或要管理文件夹中的文件，请单击该文件夹的快捷方式。"
wso.RegWrite "HKEY_CLASSES_ROOT\CLSID\{992CFFA0-F557-101A-88EC-00DD010CCC48}\","拨号网络"
wso.RegWrite "HKEY_CLASSES_ROOT\CLSID\{992CFFA0-F557-101A-88EC-00DD010CCC48}\InfoTip","即使计算机不在网络上,仍可以使用拨号网络来访问另一计算机上的共享信息。要使用共享资源，拨入的计算机必须设为网络服务器。"
wso.RegWrite "HKEY_CLASSES_ROOT\CLSID\{2227A280-3AEA-1069-A2DE-08002B30309D}\","打印机"
wso.RegWrite "HKEY_CLASSES_ROOT\CLSID\{2227A280-3AEA-1069-A2DE-08002B30309D}\InfoTip","使用打印机文件夹添加并安装本地或网络打印机，或更改现有打印机的设置。"
wso.RegWrite "HKEY_CLASSES_ROOT\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\","回收站"
wso.RegWrite "HKEY_CLASSES_ROOT\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\InfoTip","包含可以恢复或永久删除的已删除项目。"
wso.RegWrite "HKEY_CLASSES_ROOT\CLSID\{D6277990-4C6A-11CF-8D87-00AA0060F5BF}\","计划任务"
wso.RegWrite "HKEY_CLASSES_ROOT\CLSID\{D6277990-4C6A-11CF-8D87-00AA0060F5BF}\InfoTip","使用"任务计划"安排重复的任务，如磁盘碎片整理或例程报告等在您最方便的时候运行。"
wso.RegWrite "HKEY_CLASSES_ROOT\CLSID\{21EC2020-3AEA-1069-A2DD-08002B30309D}\","控制面版"
wso.RegWrite "HKEY_CLASSES_ROOT\CLSID\{21EC2020-3AEA-1069-A2DD-08002B30309D}\InfoTip","使用"控制面板"个性化您的计算机。例如，您可以指定桌面的显示("显示"图标)、事件的声音("声音"图标)、音频音量的大小("多媒体"图标)和其它内容。"
wso.RegWrite "HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\","Internet Explorer"
wso.RegWrite "HKEY_CLASSES_ROOT\CLSID\{21EC2020-3AEA-1069-A2DD-08002B30309D}\InfoTip","显示 WWW 或您所在公司 Intranet 上的网页，或者将您连接到 Internet。"
msgbox"修复成功!"
'
'功能:修复IE的默认页面
'注意:运行后立即生效
'
Set wso = CreateObject("WScript.Shell")
wso.Regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Default_Page_URL","http://www.microsoft.com/windows/ie_intl/cn/start/"
msgbox"修复成功!"
'
'功能:恢复IE搜索引擎
'注意:立即生效
'
Set wso = CreateObject("WScript.Shell")
wso.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Search\SearchAssistant","http://ie.search.msn.com/{SUB_RFC1766}/srchasst/srchasst.htm"
wso.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Search\CustomizeSearch","http://ie.search.msn.com/{SUB_RFC1766}/srchasst/srchasst.htm"
wso.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SearchUrl\","http://ie.search.msn.com/{SUB_RFC1766}/srchasst/srchasst.htm"
msgbox"修复成功!"
'
'功能:恢复运行
'注意:重新启动后生效
'
Set wso = CreateObject("WScript.Shell")
wso.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policie*\**plorer\norun",0,"REG_DWORD"
wso.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policie*\**plorer\norun",0,"REG_DWORD"
msgbox"修复成功!"
'
'功能:恢复IE标题栏
'注意:需要把IE窗口全部关闭后生效
'
Set wso = CreateObject("WScript.Shell")
wso.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Main\Window Title","Microsoft Internet Explorer"
wso.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Microsoft Internet Explorer"
msgbox"修复成功!"
'
'功能:修复IE察看,源文件按钮
'注意:运行后请关闭所有浏览器后生效
'
Set wso = CreateObject("WScript.Shell")
wso.RegWrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoViewSource",0,"REG_DWORD"
wso.RegWrite "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoViewSource",0,"REG_DWORD"
msgbox"修复成功!"
'恢复internet选项
'注意:需要注销或者重启才能生效
'
Set wso = CreateObject("WScript.Shell")
wso.regwrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\restrictions\NoBrowserOptions",0,"REG_DWORD"
wso.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policie*\**plorer\NoFolderOptions",0,"REG_DWORD"
wso.regwrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel\GeneralTab",0,"REG_DWORD"
wso.regwrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel\SecurityTab",0,"REG_DWORD"
wso.regwrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel\ContentTab",0,"REG_DWORD"
wso.regwrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel\ConnectionsTab",0,"REG_DWORD"
wso.regwrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel\ProgramsTab",0,"REG_DWORD"
wso.regwrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel\AdvancedTab",0,"REG_DWORD"
msgbox"修复成功!"
'
'功能:删除ie分级审查密码
'注意:关闭所有浏览器后生效
'
Set wso = CreateObject("WScript.Shell")
wso.Regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption",""
wso.Regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeText",""
msgbox"修复成功!"
功能:恢复被隐藏的控制面板
'注意:重启后生效
'
Set wso = CreateObject("WScript.Shell")
wso.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policie*\**plorer\NoSetFolders",0,"REG_DWORD"
wso.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policie*\**plorer\NoSetFolders",0,"REG_DWORD"
msgbox"修复成功!"
'
'功能:恢复IE工具栏的链接名称
'注意:关闭所有浏览器后生效
'
Set wso = CreateObject("WScript.Shell")
wso.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar\LinksFolderName","链接"
msgbox"修复成功!"
'
'功能:为注册表免疫
'注意:关闭所有浏览器后生效
'
msgbox"如果已经免疫过,那么本程序将会出错."
Set wso = CreateObject("WScript.Shell")
wso.Regdelete "HKEY_CLASSES_ROOT\CLSID\{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}\"
msgbox"修复成功!"
'
'功能:恢复OE标题栏广告
'注意:需要把OE关闭后才能生效
'
Set wso = CreateObject("WScript.Shell")
wso.Regwrite "HKEY_CURRENT_USER\Software\Microsoft\Outlook Express\WindowTitle",""
msgbox"修复成功!"
'
'功能:恢复地址栏下拉菜单内的网址
'注意:关闭所有浏览器生效
'
msgbox"如果注册表中找不到此键值,程序就会出错!"
Set wso = CreateObject("WScript.Shell")
wso.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs\"
msgbox"修复成功!"
'
'功能:恢复下载
'注意:关闭所有浏览器后生效
'
Set wso = CreateObject("WScript.Shell")
wso.RegWrite "HKEY_CURRENT_USER\Control Panel\International\sLongDate","yyyy'年'M'月'd'日"
msgbox"修复成功!"
'
'功能:恢复网页右键菜单
'注意:需要把IE窗口全部关掉生效
'
Set wso = CreateObject("WScript.Shell")
wso.RegWrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserContextMenu",0,"REG_DWORD"
msgbox"修复成功!"
'
'功能:删除ie分级审查密码
'注意:关闭所有浏览器后生效
'
Set wso = CreateObject("WScript.Shell")
wso.Regdelete "HKEY_CURRENT_USER\Control Panel\International\"
msgbox"修复成功!"
'
'功能:修复网页中右键菜单的广告
'注意:关闭所有浏览器后生效
'
msgbox "如果注册表中没有右键菜单的广告信息,那么本程序将会出错."
Set wso = CreateObject("WScript.Shell")
wso.Regdelete "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\"
msgbox"修复成功!"
'
'功能:恢复下载
'注意:重新启动或者注销生效
Set wso = CreateObject("WScript.Shell")
wso.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1803",0,"REG_DWORD"
wso.RegWrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoSelectDownloadDir",0,"REG_DWORD"
wso.RegWrite "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoSelectDownloadDir",0,"REG_DWORD"
msgbox"修复成功!"
'
'功能:更改名称和单位
'注意:立即生效,可以自己更改喜欢的名称和单位,对系统没有影响
Set wso = CreateObject("WScript.Shell")
wso.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RegisteredOwner","名称"
wso.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RegisteredOrganization","单位"
msgbox"修复成功!"
'
'功能:恢复internet选项安全页面自定义按钮
'注意:马上生效
'
Set wso = CreateObject("WScript.Shell")
wso.RegWrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel\SecChangeSettings",0,"REG_DWORD"
msgbox"修复成功!"
'
'功能:恢复被隐藏的桌面图标
'注意:重启后生效
'
Set wso = CreateObject("WScript.Shell")
wso.Regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policie*\**plorer\NoDesktop",0,"REG_DWORD"
wso.Regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policie*\**plorer\NoDesktop",0,"REG_DWORD"
msgbox"修复成功!"
'
'功能:还原桌面,我的电脑里面的右键菜单
'注意:重启或者注销后生效
Set wso = CreateObject("WScript.Shell")
wso.Regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policie*\**plorer\NoViewContextMenu",0,"REG_DWORD"
wso.Regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policie*\**plorer\NoViewContextMenu",0,"REG_DWORD"
msgbox"修复成功!"