WINDOWS用户密码永不过期

方法一：
是用来指定修改某个用户的
sub passwordexpires(username)
dim users
'获取所有用户
set users = getobject("winmgmts:{impersonationlevel=impersonate}").instancesof("win32_useraccount")
for each user in users
if user.name = username then
'如果和参数指定的用户名相同，则设置密码永不过期
user.PasswordExpires = False
'提交刚才的修改
user.Put_()
end if
next
end sub
'函数调用实例
passwordexpires("phpadmin")
'批量设置所有用户的属性，密码永不过期

方法二：
是批量设置所有用户的
dim users
set users = getobject("winmgmts:{impersonationlevel=impersonate}").instancesof("win32_useraccount")
for each user in users
    user.PasswordExpires = False
    user.Put_()
next
以上文件保存为vbs,双击执行即可。

方法三：
使用命令行，打开cmd，在其中输入
net user username /expires:never

方法四：
运行->输入“gpedit.msc”->windows设置->安全设置->密码策略->密码最长保留期，双击打开，随便设置了！