VBScript修改IIS配置映射文件，将下面代码存为mappingFile.vbs，双击执行即可（注意GetObject("IIS://LocalHost/W3SVC/1/root/ietm")中的‘ietm’改为你自己的虚拟目录名）：
Dim myValue
Dim strNothing
Dim strBuild
Dim i
Dim iValue

Set myValue = GetObject("IIS://LocalHost/W3SVC/1/root/ietm")
myArray =myValue.Get("scriptMaps")
For i=0 To Ubound(myArray)
    strBuild =strBuild & myArray(i) & "#"
Next

strBuild =strBuild & ".html,C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG" & "#"
strBuild =strBuild & ".htm,C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG" & "#"
strBuild =strBuild & ".xml,C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG" & "#"
strBuild =strBuild & ".bmp,C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG" & "#"
strBuild =strBuild & ".jpg,C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG" & "#"
strBuild =strBuild & ".tif,C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG" & "#"
strBuild =strBuild & ".gif,C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG" & "#"
strBuild =strBuild & ".cgm,C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG" & "#"
strBuild =strBuild & ".avi,C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG" & "#"
strBuild =strBuild & ".mp3,C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG" & "#"
strBuild =strBuild & ".wma,C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG" & "#"
strBuild =strBuild & ".swf,C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG" & "#"
strBuild=Split(strBuild,"#")
myValue.Put "scriptMaps",VBNull
myValue.Put "scriptMaps",strBuild
myValue.Setinfo
Set myValue =Nothing