:SmithE:

...


Sub ReadingComputerJournal( _
strComputerName As String _
)
Dim qinfo As New MSMQQueueInfo
Dim q As MSMQQueue
Dim msg As MSMQMessage
Dim strMachineId As String
TO IP: 162.623.21.1 (San Francisco, CA)
' Obtain the computer GUID for the format name.
On Error GoTo ErrorHandler
strMachineId = MachineIdOfMachineName(strComputerName)

' Set the format name of computer journal.
qinfo.FormatName = "MACHINE=" & strMachineId & ";JOURNAL"

' Open the computer journal.
Set q = qinfo.Open(Access:=MQ_RECEIVE_ACCESS, _
ShareMode:=MQ_DENY_NONE)

' Read the first message in the computer journal.
Set msg = q.Receive(ReceiveTimeout:=1000)

...