'将本地计算机上某个用户账户设置为密码用不过期
'可以将脚本放置到AD环境中，将所有客户机的某一个账户设置为密码永不过期
On Error Resume Next
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
Const E_User_Not_Found = &h800708AC
'设置用户名称，根据需要进行修改
UserName = "test"
'获得当前计算机名称
set networkObject=Wscript.CreateObject("Wscript.network")
strComputer = OnetworkObject.computername
Set bjUser = GetObject _
("WinNT://" & strComputer & "/" & UserName)
If err.number = E_User_Not_Found Then
WScript.Echo "The User Account Not Be Found in " & strComputer
WScript.Quit
End If
intUAC = objUser.Get("UserFlags")
If ADS_UF_DONT_EXPIRE_PASSWD AND intUAC Then
Wscript.echo "Already enabled"
Else
objUser.Put "UserFlags", intUAC XOR _
ADS_UF_DONT_EXPIRE_PASSWD
objUser.SetInfo
WScript.Echo "Password never expires is now enabled"
End If
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/23034/viewspace-246606/ ，如需转载，请注明出处，否则将追究法律责任。
