能通过互联网连接服务器上的COM组件？(代码如下)

Question

DLL代码：Option Explicit
Public x, y As Integer
Public Function myAdd() As Integer
  myAdd = x + y
End Function客户机代码：
Dim ox as object
set ox=createobject("Com_Test.ClsAdd","win2000 server 的IP地址")
ox.x=12
ox.y=13
text1.text=ox.myAdd() 
以上代码在局域网调试通过，但把COM组件安装在服务器上，把IP改为服务器IP，想通过互联网来连
接COM组件，则连接不上，为什么？可以这样做的吗？

Answer 1

Dim ox as object
dim RDS as Object
set RDS=CreateObject("RDS.DataSpace")
set ox=RDS.createobject("Com_Test.ClsAdd","win2000 server 的IP地址")'COMWEB发布：
'只需要将COM的ProgID(例Com_Test.ClsAdd")以Key写入到
'HKEY_LOCAL_MACHINE\System\CurrentControlSet
'\Services\W3SVC\parameters\ADCLaunch
'下，并执行服务器
'%Program Files%\Common Files\System\msadc\handsafe.reg
'即可
'
'调用方法(必须是通过http调用)：
'set ox=RDS.createobject("Com_Test.ClsAdd","http://win2000 server 的IP地址") ox.x=12
ox.y=13
text1.text=ox.myAdd()

Answer 2

以上述方式访问几乎不需要做什么COM+配置，只将需要通过WEB发布的加入到该键下即可，不需要则删除。

Answer 3

IIS里面的MSADC虚拟目录的权限原只允许127.0.0.1访问，请把IP过滤选项拿掉。

Answer 4

IIS里面的MSADC虚拟目录的权限原只允许127.0.0.1访问，请把IP过滤选项拿掉。
-----------------------------------------------------------------------
请问如何去掉啊,谢谢了

Answer 5

更正一下，需要执行的注册表文件是handunsf.reg

Answer 6

晕...WIN2K3默认没有虚拟路径啊?怎么配置呢?