关于封装ＤＬＬ调用失败

[11-wangcaiwen]

Public Function WebVirtualDir(ByVal strWebSite As String, ByVal strFriendlyName As String, ByVal strWebPath As String, ByVal strDefaultDoc As String) As Boolean
Dim objADSI As Object
Dim objWebVDir As Object
On Error GoTo Lib_Err
Set objADSI = GetObject("IIS://LocalHost/W3SVC/1/Root")
Set objWebVDir = objADSI.Create("IIsWebVirtualDir", strWebSite)
objWebVDir.SetInfo
Set objWebVDir = objADSI.GetObject("IIsWebVirtualDir", strWebSite)
objWebVDir.AppCreate True
objWebVDir.Put "AppFriendlyName", strFriendlyName
objWebVDir.Put "AppRoot", "/LM/W3SVC/1/Root/" & strWebSite
objWebVDir.Put "Path", strWebPath
objWebVDir.Put "AppIsolated", 0
objWebVDir.Put "DefaultDoc", strDefaultDoc
objWebVDir.Put "AccessFlags", 535
objWebVDir.SetInfo
WebVirtualDir = True
Lib_End:
Set objWebVDir = Nothing
Set objADSI = Nothing
Exit Function
Lib_Err:
WebVirtualDir = False
strError = Err.Description
Err.Clear
Resume Lib_End
End Function

这是我的Class1类模块中的函数

我将它编译成abc.dll
然后在本机注册abc.dll
在ＡＳＰ页面中调用
Dim CreateIIS
Set CreateIIS = Server.CreateObject("abc.Class1")

显示
Server 对象 错误 'ASP 0177 : 800401f3'

Server.CreateObject 失败

这是咋回事呢？

[11-wangcaiwen]

谢谢，楼上zyg0
那么不能调用，那些asp虚拟主机空间怎么处理别人申请空间，自动开通呢？
先给分～

[zyg0]

这个对象不支持asp中调用的

[zyg0]

asp中没法创建 iis的站点

[zyg0]

只能在服务武器放一个exe让他执行你的操作