VBScript是否可以调用COM组件？

Question

我是开发C++的 我现在急需要 一个VBScript调用COM组件的例子 没有做过，所以我请各位大哥献出一片真心，给我一个例子！最好是有服务器端 和客户端， 高分给！呵呵 希望得到大家的支持

Answer 1

懒得写，抄段网络蚂蚁调用的例子：
<script language="VBScript"> On Error Resume Next
set NetAntsApi = CreateObject( "NetAnts.API" )
if err<>0 then
Alert("NetAnts not properly installed on this PC!")
else
set links = external.menuArguments.document.links
ReDim params(links.length*2)
params(0)=external.menuArguments.document.Url
for i = 0 to links.length-1
params(i*2+1)=links(i).href
params(i*2+2)=links(i).innerText
next 
NetAntsApi.AddUrlList params
        end if
</script>

Answer 2

VBScript好像就是靠COM吃饭的，没COM它还能干吗？VBScript里面所有变量都是Variant型，可以引用一个COM接口。使用CreateObject()创建对象的引用，之后要Set Nothing。

Answer 3

当然可以，而且非常方便。
我写的COM组件，都是用VBS来测试。

Answer 4

我现在有一个问题：
下面的脚本语言的功能我怎么实现不了！请各位指教！
Set oFreePP = WScript.CreateObject("FreePP4COM.FreePP","FreePP_")
If Not oFreePP.Client.IsRunning Then oFreePP.Client.Start() End IfoFreePP.Client.Focus //将界面显示在桌面上
oFreePP.Client.OpenContactsTab() // 打开所有联系人的表单oFreePP.Client.ButtonPressed "YES" //发送一个按键消息
oFreePP.Client.ButtonReleased "YES"
WScript.Sleep(10000)
oFreePP.Client.ButtonPressed "NO"
oFreePP.Client.ButtonReleased "NO"Public Sub FreePP_AttachmentStatus(ByVal aStatus)
   WScript.Echo ">Attachment status " & oFreePP.Convert.AttachmentStatusToText(aStatus)
   If aStatus = oFreePP.Convert.TextToAttachmentStatus("AVAILABLE") Then oFreePP.Attach() End If
End Sub
怎么运行的时候就是出现“OK! CClient Method ButtonPressed” 是不是应该出现“YES”or"NO"