Set objArray= CreateObject("hdCOMInterface.hdCOMClass.1")

Dim ip,port,bakip,bakport,timeout

ip= "127.0.0.1"

port= 5678

bakip = "1.2.3.4"

bakport = 1234

timeout= 3

Dim ret

objArray.com_nt_connect ip,port,bakip,bakport,timeout

Dim recnum

recnum = 3

Dim tagnames,name1,name2,name3

name1="hdsys_cpu"

name2="hdsys_mem"

name3="h"

tagnames = Array(name1,name2,name3)

Dim x,showname

showname = "调用前Tagnames:"

for x= LBound(tagnames) to UBound(tagnames)

showname = showname & tagnames(x) &  ";  "

next

MsgBox showname

Dim tagids,nerrcode,result

result = CLng(objArray.com_pt_query_tagids (recnum,tagnames,tagids, nerrcode))

Msgbox "com_pt_query_tagids错误码是：" &result

if result=0 or result=119707 then

Dim x6,showerrcode

showerrcode = "调用后errcode:"

for x6= LBound(nerrcode) to UBound(nerrcode)

showerrcode = showerrcode & nerrcode(x6) &  ";  "

next

MsgBox showerrcode

Dim x1,showsec

showsec = "调用后TagIDs:"

for x1= LBound(tagids) to UBound(tagids)

showsec = showsec & tagids(x1) &  ";  "

next            

MsgBox showsec

end if

objArray.com_nt_disconnect

Set objArray= nothing