vbscript中怎么防止本地用户更改密码-创新互联

vbscript中怎么防止本地用户更改密码，很多新手对此不是很清楚，为了帮助大家解决这个难题，下面小编将为大家详细讲解，有这方面需求的人可以来学习下，希望你能有所收获。

为巩义等地区用户提供了全套网页设计制作服务，及巩义网站建设行业解决方案。主营业务为成都做网站、成都网站建设、巩义网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！

防止用户更改其密码的脚本：

复制代码代码如下:

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

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

objPasswordNoChangeFlag = objUser.UserFlags XOR ADS_UF_PASSWD_CANT_CHANGE

尽管看起来有点复杂，实际上这行代码确实非常简单。我们此处执行的全部操作是切换“用户不能更改密码”开关的值。这正是 XOR 命令的功能。如果开关处于打开状态，则 XOR 将其关闭；如果开关处于关闭状态，则 XOR 将其打开。我们要做的就是获取 userFlags 属性的当前值，并切换“用户不能更改密码”开关。因为我们已经知道该开关处于关闭状态（还记得我们刚才使用的“If Not”语句吗？），所以 XOR 命令将该开关打开。变量 objPasswordNoChangeFlag 中包含的值将与当前 userFlags 属性中的值完全相同，不同之处在于，“用户不能更改密码”开关此时处于打开状态，而不是处于关闭状态。

跟得上我们的思路吗？脚本的其余部分就非常简单了。下面这行代码将变量 objPasswordNoChangeFlag 的值写入 userFlags 属性：

objUser.Put "userFlags", objPasswordNoChangeFlag

然后，我们使用 SetInfo 命令将这些更改写入用户帐户。通过运行这样一个脚本，使本地用户 Ken Myer 不再拥有在计算机 atl-ws-01 上更改其密码的权限。

那么，如果您想允许 Ken Myer 更改其密码，该怎么办呢？那还不简单。只需检查“用户不能更改密码”开关是否处于打开状态，如果是，则使用 XOR 将其关闭：

Const ADS_UF_PASSWD_CANT_CHANGE = &H0040

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

If 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

不同之处在于，我们从 If-Then 语句中删除了Not 一词。这是因为，我们现在想要查找开关处于打开状态的情况，然后将其关闭。

我们承认，这些位掩码属性的确让人难懂。如果您想了解详细信息（以及一些图片），请参见“Microsoft Windows 2000 脚本编写指南”中的这一部分。正如前面所承诺的一样，我们在下面列出了可以使用 userFlags 属性进行管理的一些其他本地用户帐户属性：

属性	常量	值
将执行登录脚本	ADS_UF_SCRIPT	&H0001
禁用帐户	ADS_UF_ACCOUNTDISABLE	&H0002
帐户需要主目录	ADS_UF_HOMEDIR_REQUIRED	&H0008
锁定帐户	ADS_UF_LOCKOUT	&H0010
帐户不需要密码	ADS_UF_PASSWD_NOTREQD	&H0020
用户不能更改密码	ADS_UF_PASSWD_CANT_CHANGE	&H0040
允许加密文本密码	ADS_UF_ENCRYPTED_TEXT_PASSWORD_ALLOWED	&H0080
帐户密码永不过期	ADS_UF_DONT_EXPIRE_PASSWD	&H10000
登录需要使用智能卡	ADS_UF_SMARTCARD_REQUIRED	&H40000
密码已过期	ADS_UF_PASSWORD_EXPIRED	&H800000

看完上述内容是否对您有帮助呢？如果还想对相关知识有进一步的了解或阅读更多相关文章，请关注创新互联行业资讯频道，感谢您对创新互联网站建设公司，的支持。

网站栏目：vbscript中怎么防止本地用户更改密码-创新互联
文章位置：http://6mz.cn/article/cogjpi.html

网站建设知识

vbscript中怎么防止本地用户更改密码-创新互联

防止用户更改其密码的脚本：

其他资讯