Question

windows脚本宿主问题

行：3
字符：1
错误：系统未找到指定的资源
代码：800c0005
源：msxml3.dll

Answer 1

（一）那就是最基本的了，你的服务器不支持xmlhttp或组件版本态低，需要下载相应的组件。这个一般服务器都不需要的，大多数情况下都支持xmlhttp，所以这个情况较少。
（二）msxml3.dll文件可能损坏或该文件使用权限不够(权限这个情况可能性较小)，如果是文件损坏的话，你可以到网上下载相应系统环境的msxml3.dll文件替换下(2003系统好像在c:\\windows\system32下)，需要关闭相应的服务例如iis等才能覆盖。
（三）防火强或杀毒软件禁用了相应的端口，具体该怎么设置要根据不同的软件而定，你可以试着关闭防火墙或杀毒软件后再测试确定是否是这个问题。
（四）重新注册下该组件试试看。
（五）DNS解析错误，检查你的网络设置或正确的域名解析访问
（六）检查你的IP筛选的设置（这个不是太了解）
（七）对方资源失效，比如采集某条信息时，对方该条信息不存在导致程序终止错误，也可能是这种情况。这种错误都是出现在调用了 xmlhttp 组件的 Open方法，接着再用Send方法后造成的。当open方法的的 url 参数无法访问时，就会造成 8000005 错误。并且一旦产生这种错误，就会导致应用程序终止，无法继续操作。大多说的程序是这样写的:
Function functionName(pararm ...)
Dim Http
Set Http=Server.CreateObject("MSXML2.XMLHTTP.4.0")
With Http
.open "GET",HttpUrl,False
.Send
End With
If Http.Readystate<>4 then
Set Http=Nothing
......
Exit function
End if
End Function

大多数的程序都是运用xmlhttp的 Readystate 属性判断从服务器的返回状态。其实这样未必适合，很多时候用ReadyState 属性判断并不能真正检测到程序流程中的错误。当遇到错误的时候，仍然会致使程序终止。其实修改一下上面的代码，完全可以实现跳过程序执行过程中遇到的错误，使程序继续运行。修改代码如下:
Function functionName(pararm ...)
Dim Http
Set Http=Server.CreateObject("MSXML2.XMLHTTP.4.0")
With Http
.open "GET",HttpUrl,False
.Send
End With
On Error Resume Next
If Http.Status<>200 then
Set Http=Nothing
......
Exit function
End if
End Function
Send 方法产生错误的时候，ReadyState的值或许为4，但Status的返回值就一定不是200的。呵呵，我经过多次跟踪ReadyState和Status的值得到以前结果。可能会有差错，目前我还没有发现。
希望以上程序解决方案能够帮到你!!如果朋友你有更好的解决方法，请一定告诉我哟。
我是以MSXML2.XMLHTTP.4.0为例说明的程序，也适合其它版本的XMLHTTP组件。想检查的你系统中已经安装了哪些版本的XMLHTTP组件，请到注册表的 HKEY_CLASSES_ROOT 下查找。
（八）进入服务器设置您的IE安全选项（把等级设中或低试试看），在受信任网站里加入您要获取的域名即可。
（九）以上方法我基本都看过之后也试过了，不过都没解决。于是去微软下载了MSXML 4.0 Service Pack 2 (Microsoft XML Core Services)和Hotfix for MSXML 4.0 Service Pack 2 - KB832414 - 简体中文（KB832414_MSXML4.0_x86.exe安装后，问题终于解决了！！！
（十）如果你的情况，在我上面方法都解决不了，那就太背了，你继续到网上找其它可能出现的情况吧，如果不想继续找了就重装你的iis或干脆重装系统
转载。。。。

Answer 2

去别人的好的电脑上把硬盘系统复制一套，然后在拷贝在自己的硬盘上就好了