VbScript MSMQManagement - 获取消息计数

Question

任何人都可以帮我解决这个问题。 我试图用vbscript来计算msmq消息。

Dim MSMQApp 
Set MSMQApp = CreateObject("MSMQ.MSMQApplication")

Dim qFormat 
For each qFormat in MSMQApp.PrivateQueues
   WScript.Echo qFormat
   Dim Mgmt 
   Set Mgmt = CreateObject("MSMQ.MSMQManagement")
   Mgmt.Init ,,"DIRECT=OS:" & qFormat
   WScript.Echo CLng(Mgmt.MessageCount)
Next

有一个私人队列 - 我在WScript.Echo qFormat中看到。 但是当Init我有一个错误： 队列未打开或可能不存在。

请帮帮我。

Answer 1

问题是 - ＆＃34;如果指定的目标或传出队列不包含任何消息且不存在任何句柄，则抛出异常并生成非特定MQ_ERROR（0xC00E0001）错误。＆＃34; 有队列，但没有消息 - 例外。