ADO存取AD数据库

Option Explicit

Public Type ADUserInfo
    objectClass As String
    distinguishedName As String
    instanceType As String
    whenCreated As String
    whenChanged As String
    uSNCreated As String
    memberOf As String
    uSNChanged As String
    iname As String
    objectGUID As String
    userAccountControl As String
    codePage As String
    countryCode As String
    badPasswordTime As String
    LastLogoff As String
    LastLogon As String
    pwdLastSet As String
    primaryGroupID As String
    objectSid As String
    accountExpires As String
    logonCount As String
    sAMAccountType As String
    objectCategory As String
    dSCorePropagationData As String
    lastLogonTimestamp As String
End Type

Public Type LDAPUserInfo
    cn As String 'FullName
    Detailed As ADUserInfo 'User Detailed Data
   
    '一般/General
    sn As String '姓氏 First name
    givenName As String '名字 Last name
    initials As String '英文缩写 Initials
    displayName As String '显示名称 Display name
    description As String '描述 description
   
    '地址/Address
    physicalDeliveryOfficeName As String '办公室 Office
    telephoneNumber As String '电话号码 Telephone Number
    mail As String '电子邮件 E-mail
    wWWHomePage As String '网页 Web page
    co As String '国家(地区) Country/region
    st As String '省份 State/province
    l As String '县/市 City
    streetAddress As String '街道 Street
    postalCode As String '邮递区号 Zip/Postal Code
    postOfficeBox As String '邮政信箱 P.O. Box
   
    '帐户/Account
    userPrincipalName As String '使用者登入名称 User logon name
    sAMAccountName As String '使用者登入名称(Windows 2000前版) User logonname(pre-Windows 2000)
   
    '设定档/Profile
    profilePath As String '设定档路径 Profile path
    scriptPath As String '登入指令档 Logon script
    homeDirectory As String '主资料夹 Home folder
   
    '电话/Telephones
    homePhone As String '住宅 Home
    pager As String '呼叫器 Pager
    mobile As String '行动电话 Mobile
    facsimileTelephoneNumber As String '传真 Fax
    ipPhone As String 'IP电话 IP phone
    info As String '注意事项 Notes
   
    '组织/Organization
    title As String '职称 Title
    EmployeeID As String '工号 EmployeeID
    department As String '部门 Department
    company As String '公司 Company
    manager As String '主管 Manager
    directReports As String '属下 Direct report
   
    'Others
    localeID As String '位置 Locale
    msRTCSIP_PrimaryUserAddress As String ' SipAddress
    objectSid As String ' SID
    Domain As String '网域 omain
End Type