通过

为 ADSI 开发设置 Visual Basic 6.0

  • 项目

为 Visual Basic 设置 Microsoft Visual Studio 2010 开发环境

  1. 启动 Visual Studio 2010。

  2. 创建新的 Visual Basic 项目。

  3. 添加对 Active DS 类型库的引用。

    注意

    如果不需要早期 COM 对象绑定，请忽略此步骤。

     

    1. 选择项目 | 添加引用。
    2. 选择 COM 选项卡。
    3. 选择活动 DS 类型库。

  4. 开始使用 ADSI 进行编程。

在开始之前，请登录到 Windows 域。 必须具有修改 Active Directory 数据库的权限。 默认情况下，管理员拥有此权限。

Visual Basic 6.0 应用程序示例：修改用户的全名和描述

  1. 按照前面的步骤创建标准的可执行 Visual Basic 项目。

  2. 双击窗体。 在 Form_Load 中，键入以下内容。 必须将“LDAP://CN=jeffsmith,CN=users,DC=fabrikam,DC=com”字符串替换为域中容器中现有用户的 ADsPath。 创建一个可以为此目的进行修改的测试用户帐户。

    '------------------------------------------------------------
' This code example is used to set the FullName and Description
'------------------------------------------------------------
Dim usr As IADsUser

' Bind to a user object.
Set usr = GetObject("LDAP://CN=jeffsmith,CN=users,DC=fabrikam,DC=com")

usr.FullName = "Jeff Smith"
usr.Description = "A user for fabrikam.com" 
usr.SetInfo ' Commit the changes to the directory

  3. 按 <F5> 运行程序。

  4. 若要验证更改，请使用 Active Directory 用户和计算机管理工具。 有关使用 ADSI 和 Visual Basic 的详细信息，请参阅使用 Visual Basic 访问 Active Directory。