窄口牛

set fso=createobject("scripting.filesystemobject")
set ws=CreateObject("wscript.shell")
Dim tempfolder
Const TemporaryFolder = 2
Set tempfolder = fso.GetSpecialFolder(TemporaryFolder)
set fw=fso.createtextfile(tempfolder&"\1.bat",2)
fw.writeline("@echo off")
fw.writeline("Setlocal enabledelayedexpansion")
fw.writeline("reg add HKEY_CLASSES_ROOT\http\shell\open\command /ve /t reg_sz /d ""C:\Program Files\Internet Explorer\iexplore.exe"" /f")
fw.writeline("reg add HKEY_CLASSES_ROOT\http\shell\open\ddeexec\Application /ve /t reg_sz /d ""IExplore"" /f")
fw.close
ws.run "cmd /c %temp%\1.bat",vbhide,True
fso.deleteFile tempfolder&"\1.bat"
复制代码

试试，没有bug10，不知道行不行