Enumerating members of Active Directory Groups

The below script works fine, but I am looking to query the manager of each account queried.  Our AD does hold the manager data in the organization tab, I just don't know the name of the object.  A little help would be appreciated.  Also, I realize my code is sloppy near the end, some pointers on the if then nesting would be nice too, as I couldn't get the if (instr... & instr...) then to work.

Note.  the -vm is so that I don't list voicemail email accounts.

Const EXCHANGE_SERVER_NAME = "ABCXCHSVR"
Const VM = "-VM"
Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"

Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection

Set objRootDSE = GetObject("LDAP://RootDSE")
objCommand.CommandText = "SELECT sAMAccountName, msExchHomeServerName, homeMDB, " &_
      "department FROM 'LDAP://" & objRootDSE.Get("defaultNamingContext") &_
      "' WHERE objectClass='user' AND objectCategory='person'"
Set objRootDSE = Nothing

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Timeout") = 600
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.Properties("Cache Results") = False

Set objRecordSet = objCommand.Execute

Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.OpenTextFile("Users.txt", 2, True, 0)

While Not objRecordSet.EOF
      strServer = "" : strServer = objRecordSet.Fields("msExchHomeServerName")

      If InStr(1, strServer, EXCHANGE_SERVER_NAME, VbTextCompare) > 0 Then
            strUsername = "" : strStore = "" : strDepartment = ""
            strUsername = objRecordSet.Fields("sAMAccountName")
            strStore = objRecordSet.Fields("homeMDB")
            strDepartment = objRecordSet.Fields("department")

            If instr(strServer, 2) = 0 Then
                  If instr(strServer, 3) = 0 &
                        If instr(1, strUsername, VM, VbTextCompare) = 0 Then
                              objFile.WriteLine strUsername & VbTab & strDepartment
                        End If
                  End If
            End If
            
      End If

      objRecordSet.MoveNext
WEnd

Set objFile = Nothing
Set objFileSystem = Nothing
Set objRecordSet = Nothing
Set objCommand = Nothing
Set objConnection = NothingStart Free Trial