If objRS.RecordCount = 1 Then
  WScript.Echo objRS.Fields("DistinguishedName")
End If