Well, maybe you can filter it with the legacyExchangeDN property. Then you could adjust the filter like so...

Code:

; == Return the Name of all Exchange Servers ====================  
$aAttributes = "Name", "legacyExchangeDN" ;, "distinguishedName"
$sADsPath = "LDAP://"+GetObject("LDAP://rootDSE").Get("configurationNamingContext")  
$strFilter = "(&(objectClass=msExchExchangeServer)(legacyExchangeDN=*OH*))"  
 
$aResults = fnLDAPQuery($aAttributes,$sADsPath,$strFilter,"Name")  
@ERROR " | " @SERROR ?  
 
For $c = 0 to Ubound($aResults) 
    For $r = 0 to UBound($aResults,2) 
        $aResults[$c,$r] ? 
    Next 
Next