IIS与GetObject

[flyinweb]

Const THIS_SERVERS_NAME = "localhost"
Set objW3SVC = GetObject("IIS://" & THIS_SERVERS_NAME & "/W3SVC")
For Each objSITE In objW3SVC

If objSITE.Class = "IIsWebServer" Then

Set serverRoot = GetObject("IIS://" & THIS_SERVERS_NAME &
"/W3SVC/" & objSITE.Name & "/ROOT")
sRootPath = serverRoot.Path

End If
Next

End If
Next

在一些机器上执行没有问题,而有的机器上不可以,运行时抛出
438错误, "Object doesn't support this property or method",还有一台机器,前半
部分执行正常,但到后面也出错了

[chenyu5188]

Object doesn't support this property or method
你的程序中用的对象的有些方法不支持。

好好查查不能正常运行机子的软件配置。

[flyinweb]

出错是这句sRootPath = serverRoot.Path,如果有错误,那么应该一个都不能执行,但有一台执行一半后出错,不得其解