Visual Basic Code Example: Retrieving MSMQQueueInfo.ServiceTypeGuid

 

Updated: July 19, 2016

Applies To: Windows 10, Windows 7, Windows 8, Windows 8.1, Windows Server 2008, Windows Server 2008 R2, Windows Server 2012, Windows Server 2012 R2, Windows Server Technical Preview, Windows Vista

This example provides a function that receives the path name of an existing queue and returns the MSMQQueueInfo.ServiceTypeGuid property for it, which can be used to display the service type identifier of the queue.

This function can return the service type GUID of a local private queue from information stored on the local computer, but must retrieve information stored in the directory service to return the service type GUID of a local or remote public queue. This function cannot be used to obtain the service type GUID of a remote private queue.

To retrieve MSMQQueueInfo.ServiceTypeGuid

  1. Declare the objects needed to retrieve queue properties. This routine declares an MSMQQueueInfo object.

  2. Create the MSMQQueueInfo object. This example then uses MSMQQueueInfo.PathName to set the path name to the string passed to the function.

  3. Call MSMQQueueInfo.Refresh to obtain the current registered settings of the queue properties.

    System_CAPS_ICON_note.jpg Note

    This call retrieves the settings of all properties of the queue with the path name set. If no such queue exists, an error message is displayed.

  4. Return the local setting of MSMQQueueInfo.ServiceTypeGuid.

The following code example can be run on all versions of Message Queuing.

Function GetServiceType( _  
                        strPathname As String _  
                        ) As String  
  Dim qinfo As MSMQQueueInfo  
  
  ' Create the MSMQQueueInfo object.  
  Set qinfo = New MSMQQueueInfo  
  qinfo.PathName = strPathname  
  On Error GoTo ErrorHandler  
  
  ' Retrieve the internally registered property values.  
  qinfo.Refresh  
  
  ' Return the local setting of MSMQQueueInfo.ServiceTypeGuid.  
  GetServiceType = qinfo.ServiceTypeGuid  
  Exit Function  
  
ErrorHandler:  
  MsgBox "Error " + Hex(Err.Number) + " was returned." _  
          + Chr(13) + Err.Description  
End Function  

Community Additions

ADD
Show: