'╭──────╮
'│www.sduw.com│
'╰──────╯
'恢复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\Policies\Explorer\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"修复成功!"