Question

我正在尝试为登录的本地用户运行一个脚本，让用户帐户要求他们在登录后更改密码然后重新登录。我有大约40个不同的用户都有自己的本地互联网连接所以我没有这些计算机的活动目录，我可以轻松地设置它。我希望能够通过远程访问推出一个脚本来执行此操作（必须重置密码）。

我尝试运行脚本的用户帐户名称为：Ual-Lab-Tech 我正在运行的脚本是：

' Bind to local user object.  
Set objUser = GetObject("Ual-Lab-Tech")

' Require password change at next logon.  
objUser.PasswordExpired = 1  
objUser.SetInfo

然而，当我运行脚本时，我收到一个错误：

Script:  C:\\Users\UAL-Lab-Tech\Desktop\change password at logon.vbs  
Line:   2  
Char:   1  
Error:  Invalid syntax  
Code:   800401E4  
Source   (null)

我做错了什么？

Answer 1

你会找到一个工作样本here：

strComputer = "atl-win2k-01"
Set objUser = GetObject("WinNT://" & strComputer & "/kenmyer ")
objUser.Put "PasswordExpired", 1
objUser.SetInfo

Answer 2

以上示例适用于本地帐户。对于AD帐户，您必须使用ADSI，如下所示：

Set objUser = GetObject ("LDAP://CN=username,CN=Users,DC=domain,DC=local")
objUser.Put "PasswordExpired", 1
objUser.SetInfo

VBScript在下次登录时有本地用户更改密码？

2 个答案: