将本地计算机上的某个账户设置为密码永不过期

'将本地计算机上某个用户账户设置为密码用不过期
'可以将脚本放置到AD环境中，将所有客户机的某一个账户设置为密码永不过期

On Error Resume Next
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
Const E_User_Not_Found = &h800708AC

'设置用户名称，根据需要进行修改
UserName = "test"

'获得当前计算机名称
set OnetworkObject=Wscript.CreateObject("Wscript.network")
strComputer = OnetworkObject.computername

Set objUser = 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