<script language="VBScript">
 
 
Dim RequestQ
Dim RequestEvent
Dim QI
 
Set QI = CreateObject("MSMQ.MSMQQueueInfo")
QI.PathName = ".\private$\test"
Set RequestQ = QI.Open(1, 0)
Set RequestEvent = CreateObject("MSMQ.MSMQEvent")
RequestQ.EnableNotification RequestEvent
 
 
Sub RequestEvent_Arrived(Queue,Cursor)
	MsgBox "angekommen"
End Sub
Sub RequestEvent_ArrivedError(Queue,ErrorCode,Cursor)
	MsgBox "Fehler"
End Sub
 
 
</Script>