因为有使用者程式需求中有需要程式透过AD验证〜
所以需要在AD使用者内写入姓名+工号+职称+主管+部门+电话+信箱...等一堆东西〜
透过扫描枪扫条码后连线AD取得相关资料〜所以要先把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
[此贴子已经被作者于2018-8-20 18:46编辑过]