绿茶HOME版系统命令修改用户名密码不过期

dim users

set users = getobject("winmgmts:{impersonationlevel=impersonate}").instancesof("win32_useraccount")

for each user in users

user.PasswordExpires = False

user.Put_()

next

将以上内容保存为a.vbs，然后运行就行了。
VBS附件下载