将现有用户移至该组织单位

  • 项目

当企业管理员 Joe Worden 将 Windows NT 4.0 域升级到 Active Directory 时，所有用户和组都被迁移到 Fabrikam 域中的用户容器中。 Joe 现在可以将这些用户和组移动到相应的组织单位。 还可以使用 ADSI 在相关 Windows 2000 域之间移动对象。

在下面的代码示例中，Joe 将“jeffsmith”移到 Sales 组织。

Set usr = salesOU.MoveHere("LDAP://CN=jeffsmith,CN=Users,DC=fabrikam,DC=com", vbNullString)

IADsContainer.MoveHere 方法采用要移动对象的 ADsPath 和新对象名称 (RDN)。 要保持名称不变，可以为 bstrNewName 参数指定 NULL (vbNullString)。 要在移动对象时重命名对象，请为 bstrNewName 参数指定新的相对可分辨名称。 例如，要将 jeffsmith 移至销售组织，并在同一操作中将“jeffsmith”对象重命名为“jeff_smith”，Joe 将执行以下代码：

Set usr = salesOU.MoveHere("LDAP://CN=jeffsmith,CN=Users,DC=Fabrikam,DC=com", "CN=jeff_smith")

在组织单位中创建新用户