两个版本,第一个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,双击执行即可。