用Windows AIK做的应答文件，win用户密码42天就过期

14531212

请教下，用Windows AIK做的win7应答文件，会创建个hello 用户。 这个用户密码的有效期 为42天。 在哪设置为永不过期呢？  不然每装个系统 都要手动改为不过期。 非常感谢！！！

notepad

我也为此伤脑筋，最后采用在第一次登陆时运行一个小工具Netuser.exe来解决。
可惜这个小工具在Win8下面失效了。
Netuser.zip (21.18 KB, 下载次数: 2)

2015-5-22 18:27 上传

点击文件名下载附件
下载积分: 无忧币 -2

14531212

notepad 发表于 2015-5-22 18:27
我也为此伤脑筋，最后采用在第一次登陆时运行一个小工具Netuser.exe来解决。
可惜这个小工具在Win8下面失 ...

你好，VBS可以解决，
dim username, users
username = "你创建的用户名"
    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

14531212

notepad 发表于 2015-5-22 18:27
我也为此伤脑筋，最后采用在第一次登陆时运行一个小工具Netuser.exe来解决。
可惜这个小工具在Win8下面失 ...

你好，VBS可以解决，
dim username, users
username = "你创建的用户名"
    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

notepad

14531212 发表于 2015-7-26 12:44
你好，VBS可以解决，
dim username, users
username = "你创建的用户名"

能否增强一下，自动针对当前用户？

14531212

notepad 发表于 2015-7-26 12:52
能否增强一下，自动针对当前用户？

这样试试看
Option Explicit
Dim oFSO,oNetwork,username,users
Set oNetwork=CreateObject("Wscript.Network")
username = oNetwork.Username
     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