vbscript - 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 中看到。但是当初始化我有一个错误：队列未打开或可能不存在。

请帮帮我。

Answer 1

问题是 - “如果指定的目标或传出队列不包含任何消息并且不存在对它的句柄，则会引发异常并生成非特定 MQ_ERROR (0xC00E0001) 错误。” 有队列，但其中没有消息 - 异常。