WINDOWS用户密码永不过期

最新推荐文章于 2025-12-06 18:15:59 发布

原创最新推荐文章于 2025-12-06 18:15:59 发布 · 1.7k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#windows

本文提供两种VBS脚本实现方式：一种用于指定特定用户设置密码永不过期；另一种批量设置所有用户密码永不过期。通过WMI操作Windows用户账号。

用户密码永不过期

两个版本，第一个VBS是用来指定修改某个用户的，第二个是批量设置所有用户的。

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,双击执行即可。