MSMQ trial

ReceiveMQ.vbs

Const MQ_RECEIVE_ACCESS = 1
Const MQ_SEND_ACCESS = 2
Const MQ_PEEK_ACCESS = 32
Const MQ_ADMIN_ACCESS = 128
Const MQ_DENY_NONE = 0
Const MQ_DENY_RECEIVE_SHARE = 1

set objQueueInfo = CreateObject("MSMQ.MSMQQueueInfo")
set objMsgQueue = CreateObject("MSMQ.MSMQQueue")
set objMessage = CreateObject("MSMQ.MSMQMessage")

objQueueInfo.PathName = ".\private$\Input"

set objDist = objQueueInfo.Open(MQ_RECEIVE_ACCESS ,MQ_DENY_NONE)

Set objMessage = objDist.Receive()
Wscript.Echo objMessage.Body

objDist.Close

SendMQ.vbs

Const MQ_RECEIVE_ACCESS = 1
Const MQ_SEND_ACCESS = 2
Const MQ_PEEK_ACCESS = 32
Const MQ_ADMIN_ACCESS = 128
Const MQ_DENY_NONE = 0
Const MQ_DENY_RECEIVE_SHARE = 1

set objQueueInfo = CreateObject("MSMQ.MSMQQueueInfo")
set objMsgQueue = CreateObject("MSMQ.MSMQQueue")
set objMessage = CreateObject("MSMQ.MSMQMessage")

objQueueInfo.PathName = ".\private$\Input"

set objDist = objQueueInfo.Open(MQ_SEND_ACCESS ,MQ_DENY_NONE)

objMessage.Label = "IDM" & date & time
objMessage.Body = "メッセージボディ"
objMessage.Delivery = 1
objMessage.Send(objDist)

objDist.Close