Returning Managed By Information for an OU

Returns information about the account assigned as managed of the Sales OU in Active Directory.

On Error Resume Next
 
Set objContainer = GetObject _
   ("LDAP://ou=Sales,dc=NA,dc=fabrikam,dc=com")
 
strManagedBy = objContainer.Get("managedBy")
 
If IsEmpty(strManagedBy) = TRUE Then
    WScript.Echo "No user account is assigned to manage " & _
    "this OU."
Else
    Set objUser = GetObject("LDAP://" & strManagedBy)
    strPhysicalDeliveryOfficeName = _
      objUser.Get("physicalDeliveryOfficeName")
    strStreetAddress = objUser.Get("streetAddress")
    strLocalityName = objUser.Get("l")
    strStateProvince = objUser.Get("st")
    strCountryName = objUser.Get("c")
    strTelephoneNumber = objUser.Get("telephoneNumber")
    strFacsimileTelephoneNumber = _
      objUser.Get("facsimileTelephoneNumber")
 
    WScript.Echo "managedBy: " & strManagedBy
    WScript.echo "physicalDeliveryOfficeName: " & _
      strPhysicalDeliveryOfficeName  
    WScript.echo "streetAddress: " & strStreetAddress
    WScript.echo "l: " & strLocalityName
    WScript.echo "state/province: " & strStateProvince
    WScript.echo "c: " & strCountryName
    WScript.echo "telephoneNumber: " & strTelephoneNumber
    WScript.echo "facsimileTelephoneNumber: " & _
      strFacsimileTelephoneNumber
End If

This is a VB Script, this can be used by saving the file in .vbs file