急！VB访问COM+ 万分感谢
大家好，我想做一个VB 访问COM+的项目，但是测试了好几天，都没有成功非常着急。 大家要是有什么好用ＶＢ做三层的具体解决方案，希望可以得到你的帮助。 也可以Ｅｍａｉｌ我 mingming0926@163.com下面是我在网上找的一个小例子 ，但是一直不成功。不知道问题再哪。
VB 6.0 windows server2003
1、创建一个ActiveX(DLL)工程，工程为“COM_Test”
2、添加一个类模块，名称为“ClsAdd”，并输入如下几行代码：
Option Explicit
Public x, y As Integer
Public Function myAdd() As Integer
myAdd = x + y
End Function
3、打开“工程属性”对话框，选择“生成”，选中“自动升级”；选择“部件”，选中“远程服务器文件”及“二进制兼容”，最后“确定”
4、保存并编译，生成“Com_Test.dll”
5、打开“控制面板/管理/组件服务”，在“COM+应用程序”下利用“COM+应用程序安装向导”创建一个空的COM＋应用程序，名称为“MyTest”
6、在“MyTest”下，新建“组件”，在“组件安装向导”中，选择“安装新组件”（注意：不要使用“导入已被注册的组件”）,然后将第4步生成的Com_Test.dll及Com_Test.tlb都添加进来（两个文件都要！），完成。
7、在另一台机器上 ＩＰ地址为 192.168.3.178
右击“COM+应用程序”上方的“我的电脑”，选择“属性”，然后在“属性”对话框中的“默认属性”页下，将“默认身份验证级”改为“无”，确定。
8、右击“MyTest”,导出客户端的“应用代理”。注意：在导出对话框中，必须选择“应用程序代理”而不是“服务器应用程序”！
9、将导出后的两个文件（即应用程序代理）安装到其他的机器上安装
10、启动VB,创建一个exe工程，在窗体上放置一个文本框与一个命令按钮，并在命令按钮的Click事件中加入代码：
Dim ox as object
Set ox = CreateObject("Com_Test.ClsAdd", "192.168.3.178")
ox.x=12
ox.y=13
text1.text=ox.myAdd()
错误提示
运行时错误 ‘70’，拒绝的权限
--------------------编程问答-------------------- 你的网内有192.168.3.178这个地址的机器吗,能从你的机器易做图问到那台机器? --------------------编程问答-------------------- 有这台机器 可以访问 --------------------编程问答-------------------- --------------------编程问答--------------------
ping一下,看能否ing通 --------------------编程问答-------------------- http://topic.csdn.net/t/20060911/16/5014096.html
http://topic.csdn.net/u/20080502/17/4e7fb031-6abd-4aae-bce3-a11cff459c12.html --------------------编程问答-------------------- 友情UP --------------------编程问答-------------------- 顶 --------------------编程问答-------------------- --------------------编程问答-------------------- 路过 --------------------编程问答-------------------- 给你顶 --------------------编程问答--------------------
补充：VB , COM/DCOM/COM+
