如何使得账户密码永不过期

 dim users
    '获取所有用户
    set users = getobject("winmgmts:{impersonationlevel=impersonate}").instancesof("win32_useraccount")
    for each user in users
        if user.name = "需要设置的账户名" then
            '如果和参数指定的用户名相同，则设置密码永不过期
            user.PasswordExpires = False
            '提交刚才的修改
            user.Put_()
        end if
    next