1

誰かが質問を手伝ってくれませんか。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.EchoqFormatにあります。しかし、Initの場合、エラーが発生します。キューが開いていないか、存在しない可能性があります。

お願い助けて。

4

1 に答える 1

2

問題は次のとおりです。「指定された宛先キューまたは送信キューにメッセージが含まれておらず、メッセージへのハンドルが存在しない場合、例外がスローされ、非特定のMQ_ERROR（0xC00E0001）エラーが生成されます。」キューはありますが、メッセージはありません-例外。

于 2012-04-06T15:10:28.317 に答える