命令行设置windows用户永不过期

 脚本user_neverexpire.vbs如下

dim users'获取所有用户Set uArgs = WScript.Arguments
For Each uarg In uArgsnewuser=uargNext
set users = getobject("winmgmts:{impersonationlevel=impersonate}").instancesof("win32_useraccount")for each user in usersif user.name = newuser then'如果和参数指定的用户名相同，则设置密码永不过期user.PasswordExpires = False'提交刚才的修改user.Put_()end ifnext

设置用户密码永不过期

./user_neverexpire.vbs 用户名