'将本地计算机上某个用户账户设置为密码用不过期
'可以将脚本放置到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