COM+简单示例（03）

本篇文章介绍了如何写一个简单的COM+客户端（VBS）。

1、testCOMP.vbs

'发生错误时，继续运行
On Error Resume Next

'清除错误状态
Err.Clear

Set Obj=CreateObject("CSCOMTest.JustATestCOM")

'输出错误信息
If Err.Number <> 0 Then
    WScript.Echo "Error: " & Err.Number
    WScript.Echo "Error (Hex): " & Hex(Err.Number)
    WScript.Echo "Source: " &  Err.Source
    WScript.Echo "Description: " &  Err.Description
    'Err.Clear
    '退出程序
    WScript.Quit(Err.Number)
End If

'On Error Goto 0

WScript.Echo obj.Add(1,2)
WScript.Echo obj.SayHiTo("dcom")


set obj=Nothing

2、运行

cscript testCOMP.vbs

3、如果是本机测试（带IP），一般不会遇到权限问题

PS：
用了一晚上时间，只能调通Win7与Win7之间远程调用，无法调通Win7与XP之间远程调用（总是各种提示Access is Denied）。
如果有谁调通过，麻烦留言告诉我一下。谢谢！