用vbscript防止本地用户更改其密码

嗨，DC。这其中的秘密就在于神秘的 userFlags 属性。我们先向您介绍如何设置用户帐户以使用户无法更改其密码，然后介绍可以使用 userFlags 属性管理的一些其他本地用户帐户属性。运气好的话，还可以赶上吃午餐哩！

我们先来介绍可以防止用户更改其密码的脚本：

复制代码 代码如下:
Const ADS_UF_PASSWD_CANT_CHANGE = &H0040 

Set objUser = GetObject("WinNT://atl-ws-01/kenmyer") 

If Not objUser.UserFlags AND ADS_UF_PASSWD_CANT_CHANGE Then 
    objPasswordNoChangeFlag = objUser.UserFlags XOR ADS_UF_PASSWD_CANT_CHANGE 
    objUser.Put "userFlags", objPasswordNoChangeFlag  
    objUser.SetInfo 
End If

首先，定义一个常量（它有一个好记的名称 ADS_UF_PASSWD_CANT_CHANGE），我们需要用它来标识 userFlags 属性内的正确“开关”。userFlags 属性是一种位掩码属性示例，它包含多个属性和属性值。姑且将位掩码视为一组开关，每个开关表示一种不同的属性。如果将“用户不能更改密码”开关打开，则用户无法更改其密码；如果将开关关闭，则用户可以 更改其密码。这部分内容还算浅显易懂；位掩码唯一不好处理的地方是，“开关”名称可不像“用户不能更改密码”这样好记，它们使用的是类似于 &H0040 的十六进制值。要执行这项任务，我们需要切换“&H0040”开关，这就是我们定义这一常量的原因。

接下来，连接到计算机 atl-ws-01 上的 kenmyer 帐户。此时，我们检查相关开关是否已打开。在使用位掩码时，您通常会看到类似下面的代码：

If objUser.UserFlags AND ADS_UF_PASSWD_CANT_CHANGE Then

我们可以用浅显的语言来说明以上代码：如果存在 userFlags 属性，并且打开了 ADS_UF_PASSWD_CANT_CHANGE 开关，则该语句为真，并且应执行某种操作。就这项任务而言，我们并不关心处于打开状态的开关；如果设置了“不能更改密码”标志，我们的工作即告完成。我们只关心处于关闭状态的开关。因此，我们编写了下面这行代码；只有当开关未 处于打开状态时，它才会起作用：

If Not objUser.UserFlags AND ADS_UF_PASSWD_CANT_CHANGE Then

接下来的内容可就真的 要让您伤脑筋了。请看下面这行代码：