<%@ LANGUAGE="VBSCRIPT" %> Queue List Page [Home]

MSMQ ASP Sample Queue List

<% Set query=CreateObject ( "MSMQ.MSMQQuery" ) Set qinfos=query.LookupQueue qinfos.reset set qinfo=qinfos.next while Not qinfo is Nothing %> <% set qinfo=qinfos.next Wend %>

Machine Name	Queue Name	Open	Delete
<%= Left ( qinfo.PathName, Instr ( qinfo.PathName, "\" ) - 1) %>	<%= Right ( qinfo.PathName, Len ( qinfo.PathName ) - Instr ( qinfo.PathName, "\" )) %>	Open	Delete