neaugj

博客园 首页 新随笔 联系 订阅 管理

Set a = CreateObject("WScript.Shell")
a.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1803",0,"REG_DWORD"
a.RegWrite "HKCU\Software\Policies\Microsoft\Internet Explorer\","Res"
a.RegDelete "HKCU\Software\Policies\Microsoft\Internet Explorer\"
a.run"rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl"
将以上内容另存为VBS文件运行即可

WWW.ByPro.NET
http://www.chinaaspx.com/
http://www.cnblogs.com/

http://www.moon-soft.com/program/doc/readelite623651.htm

posted on 2005-03-12 20:25  YES  阅读(262)  评论(0)    收藏  举报