VB Script - almost there, get managers samaccountname?

Question

Howdy,
I am trying to finish a script and I can't work out how to get the managers sAmAccountName for the users after running the script below.
I have pulled some of the attributes this pulls out for testing, but it does work and it populates MS SQL DB fine. I am not sure how to get the managers info aside from the DN which I can't use.
Can anyone help?
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("defaultNamingContext")
strBase = "<LDAP://" & "localdomain" & ">"
strFilter = "(&(objectCategory=person)(objectClass=user)(company=*))"
strAttributes = "sAMAccountName,sn,GivenName,distinguishedName,"
strAttributes = strAttributes & "Department"
strAttributes = strAttributes & "manager"
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
Set adoRecordset = CreateObject("ADODB.Recordset")
Set adoRecordset.ActiveConnection = adoConnection
adoRecordset.Properties("Page Size") = 1000
adoRecordset.Source = strQuery
adoRecordset.Open
Do Until adoRecordset.EOF
   SQLRecordset.AddNew
    SQLRecordset.Fields("sAMAccountName") = adoRecordset.Fields("sAMAccountName")
    SQLRecordset.Fields("department") = adoRecordset.Fields("department")
sDesc = ""
    If IsNull(adoRecordset.Fields("description")) = False Then
        For Each item In adoRecordset.Fields("Description").Value
               sDesc = sDesc & Trim(item)
        Next
         SQLRecordset.Fields("description") = sDesc
    Else
        SQLRecordset.Fields("description") = Null
    End If
    SQLRecordset.Fields("displayName") = adoRecordset.Fields("displayName")

Answer 1

Start here:
https://gallery.technet.microsoft.com/site/search?f%5B0%5D.Type=RootCategory&f%5B0%5D.Value=activedirectory&f%5B0%5D.Text=Active%20Directory&f%5B1%5D.Type=SubCategory&f%5B1%5D.Value=useraccounts&f%5B1%5D.Text=User%20Accounts
¯\_(ツ)_/¯