How to determine if an Exchange Server is a front-end server or a back-end server

'TODO: Set the following strings to reflect your environment:
SERVERNAME = "MyServer"
OrganizationName = "MyExchangeOrganization"
DomainName="MyDomain"
UpperLevelDomain = "MyUpperLevelDomain"

Set obj = CreateObject("CDOEXM.ExchangeServer")

obj.datasource.open ("LDAP://" & SERVERNAME & "/CN=" & SERVERNAME &_
",CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN="&_ 
OrganizationName &",CN=Microsoft Exchange,CN=Services, CN=Configuration,DC="&_ 
DomainName&",DC=" & UpperLevelDomain)  

If (obj.servertype = 0) Then
    msgbox obj.name & " is a back-end Exchange Server or is not configured as a front-end server or as a back-end server."  
Else   
    msgbox obj.name & " is a front-end Exchange Server."  
End If