Question

win10 64位Microsoft VBScript运行时错误800A01AD

win10 64位 Microsoft VBScript运行时错误800A01AD,ActiveX 部件不能创建对象: 'Netbox.HttpServer 怎么解决？

Answer 1

错误提示
Microsoft VBScript 运行时错误 错误 '800a01ad'
ActiveX 部件不能创建对象: 'scripting.FileSystemObject'
/adminyyy/jingtai.asp，行 10
ActiveX 部件不能创建对象: 'server.createobject'
查了源码，是不能成功创建fso,源码是这样的：set fso=server.createobject("scripting.filesystemobject")
解决方法：
开始运行里输入:
代码如下 复制代码
regsvr32 scrrun.dll
如果上面方法无效，大家可参考下面
FSO组件的开启和关闭方法
Dll 文件的注册和注销：
运行cmd命令
代码如下 复制代码
先注消FSO组件：RegSvr32 /u %windir%SYSTEM32scrrun.dll
再启用FSO命令：RegSvr32 %windir%SYSTEM32scrrun.dll

多次注消、启动后还是出现错误，原因是没权限，下边提供解决方法

权限出现了问题，打开注册表加入权限!
在 开始-运行中敲入regedit,然后找到HKEY_CLASSES_ROOTScripting.FileSystemObject

右击权限，加入everyone,internet来宾帐号(IUSR...)用户确定，然后重新启动IIs即可搞定！

如果你们遇到跟我们一样，你们可以找对应的字段修改

放网站程序的目录文件夹没权限，请检查NTFS权限，至少要有来宾帐号的修改级别权限。

追问

这种办法试过了，这种办法是解决ActiveX 部件不能创建对象: 'scripting.FileSystemObject'
我现在出现的问题是：ActiveX 部件不能创建对象: 'Netbox.HttpServer，用这种办法不行，您有没有其他的解决办法？谢谢~

Answer 2

这个问题在于你使用CreatObject函数创建httpd对象时没有在前面加上NetBox.调用如果是win7及以下版本调用就没问题，这主要是win10会出现这个问题，在CreatObject("NetBox.HttpServer")前加上NetBox. 就好了，这问题我在用NetBox建asp服务器的时候写main.box遇到过，也搞了很久才从一个博客看到了

Answer 3

Set httpd = CreateObject("Netbox.HttpServer")
改成：
Set httpd = Netbox.CreateObject("Netbox.HttpServer")