为 ADSI 开发设置 Visual Basic 6.0
为 Visual Basic 设置 Microsoft Visual Studio 2010 开发环境
启动 Visual Studio 2010。
创建新的 Visual Basic 项目。
添加对 Active DS 类型库的引用。
注意
如果不需要早期 COM 对象绑定,请忽略此步骤。
- 选择项目 | 添加引用。
- 选择 COM 选项卡。
- 选择活动 DS 类型库。
开始使用 ADSI 进行编程。
在开始之前,请登录到 Windows 域。 必须具有修改 Active Directory 数据库的权限。 默认情况下,管理员拥有此权限。
Visual Basic 6.0 应用程序示例:修改用户的全名和描述
按照前面的步骤创建标准的可执行 Visual Basic 项目。
双击窗体。 在 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
按 <F5> 运行程序。
若要验证更改,请使用 Active Directory 用户和计算机管理工具。 有关使用 ADSI 和 Visual Basic 的详细信息,请参阅使用 Visual Basic 访问 Active Directory。