不過若是利用程式來做這件事的話, 可以利用 vbs 來操作, 可以先參考文章:
http://www.markwilson.co.uk/blog/2004/0 ... ry-for.htm
實作如下:
代碼: 選擇全部
domainname = "." '本機
username = "user" '帳號
Const ufDONT_EXPIRE_PASSWD = &H10000
Set objUser = GetObject("WinNT://" & domainname & "/" & username & ",user")
' Examine flags set against account
objUserFlags = objUser.Get("UserFlags")
' If password expiry is allowed, then set password never to expire.
If (objUserFlags And ufDONT_EXPIRE_PASSWD) = 0 Then
' Password does expire
' WScript.Echo objUserFlags
objUserFlags = objUserFlags Or ufDONT_EXPIRE_PASSWD
' WScript.Echo objUserFlags
objUser.Put "UserFlags", objUserFlags
objUser.SetInfo
'WScript.Echo domainname & "" & username & " password has been set never to expire."
Else
' Password does not expire
' WScript.Echo objUserFlags
'WScript.Echo domainname & "" & username & " password was already set never to expire."
End If