泊まりで研修 - ひらいて

昨日今日と、泊まりで会社の研修。自分発見系の研修は内面が弱い人間にはつらい。
最近は会社の同期と会うのも緊張するしな。

夜中にCOM+への興味の延長でMSMQの使い方とか、ベッドにノートPC置いて調べていたら次の日寝坊した。
MSMQ、VBScriptでも使えたのか。SDKのヘルプには載ってないけどコンピュータの管理コンソールからでもキューを作れることを発見。あー、なんか便利そう。

(追記)
うーん・・トランザクション付き専用キューへ送信するVBScriptのサンプルが無くえらい手間取ったのでメモ。



set qi = CreateObject("MSMQ.MSMQQueueInfo")

set msg = CreateObject("MSMQ.MSMQMessage")

set trd = CreateObject("MSMQ.MSMQTransactionDispenser")
qi.PathName = ".\private$\Sample"

set dst = qi.Open(2,0)
if dst.IsOpen then

  set trn = trd.BeginTransaction

  

  msg.Label = "sample label"

  msg.Body = "message body"

  msg.Delivery = 1

  msg.Send dst, trn

  

  trn.Commit

  dst.Close

end if