Broker Information Services

, ,
1

Hello,
Using Tor files and vbscript, I successfully retrieve Information about active servers from the Broker Information Services. However, I have no success with object-type 2 for information on active clients using the same TOR file. I receive ErrorCode 4 “Nothing was found for this request”. The vbscript is pasted below and I have attached the TOR file for your review.
Thanks in advance for insight and help.
Rabia
<%
Set CLI = CreateObject(“EntireX.Broker.ACI”)
BlockLength = 280
Version = 1
ObjectType=2
CLI.ApiVersion = 1
Set torcliobj = CLI.CreateTransObject(“\irvweb01\dcs\tsv\TorFilesAndDCOMDlls\ExbProd.tor”)

'On Error Resume Next
Set cliobj = torcliobj.ClientServer(BlockLength,Version,NotUsed,ObjectType,UserId,PUserId,Token,ServerClass,ServerName,Service,ConvId,Reserved,NotUsed)
Response.Write (cliobj.ErrorCode & “–” & CLI.ErrorCode)

On Error Resume Next
Do
Set recvobj = torcliobj.ClientServer(BlockLength,Version,NotUsed,ObjectType,UserId,PUserId,Token,ServerClass,ServerName,Service,ConvId,Reserved,NotUsed)
'Response.Write (recvobj.Userid & “–” recvobj.ErrorCode & “–” & CLI.ErrorCode )
Loop Until CLI.ErrorCode = “00030005”
%>

Tor File
ExbProd.tor (20.5 KB)

2

Hello Rabia,

is this still an issue for you ?
If yes and if this is reproducable can you produce a stub log for the error situation ?
BTW what version of Broker are you using ?

Kind regards,
Rolf

3

Rolf,
Many Thanks…
Broker version is 7.1.1.30
Stublog is attached.
Viele Gruesse,
Rabia
02044.etb (13.3 KB)

4

Hello Rabia,

try to initialize the PUserId field with binary zeroes instead of using blanks. Docu says: Any value different from low value will be treated as selection value.

Good luck,
Rolf

5

Rolf,
That was it!
Thank you very much.
Greetings,
Rabia