57、扩展用户属性和管理工具的实用指南

扩展用户属性和管理工具的实用指南

在管理 Active Directory 时，对用户属性的操作和对象的管理是常见且重要的任务。本文将介绍一系列实用的脚本和工具，帮助你更高效地完成这些任务，同时避免潜在的风险。

1. 操作属性的代码示例

在对属性进行操作时，我们常常需要确认用户的意图。以下代码用于提示用户确认删除操作，如果用户点击“是”，则执行删除操作：

If MsgBox("Do you want to delete the current value, " & _ 
    sValue, vbYesNo, "Confirm deletion") = vbYes then 
    oObject.PutEx ADS_PROPERTY_CLEAR, sAttribute, 0 
    oObject.SetInfo 
End If

支持更改和删除属性值的完整代码如下：

Const ADS_PROPERTY_CLEAR = 1 
If sNewValue <> sValue Then 
    On Error Resume Next 
    If sNewValue > "" Then 
        oObject.Put sAttribute, sNewValue 
        oObject.SetInfo 
    Else 
        If MsgBox("Do you want to delete the current value,