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

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

'可以将脚本放置到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