ユーザーのパスワードを無期限にする
てことを自動化したかったので、googleあたりで調べたところ、
- アカウントの有効期限を無期限にする
- 全部のユーザーのを無期限にする
といった、ちょっとはずれてるものばかり、引っかかる。それでもようやくたどり着いたのが、
てやつ。これをちょいちょいと変更すればよいよね。 こんなかんじかな。
Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000
Const TargetHostname = "hoge"
Const TargetUsername = "hogehoge"
Set objuser = GetObject("WinNT://" & TargetHostname & "/" & TargetUsername)
objflag = objuser.UserFlags Or ADS_UF_DONT_EXPIRE_PASSWD
objuser.Put "userFlags", objflag
objuser.SetInfo
MsgBox "Account password never expire!"
夏休み中ということで大サービスです？
| 固定リンク
コメント
こんにちわぁー、大連開発区日記よみましたぁ＾＾。掲示板なかったので、どこにカキコしていいのか、わからなかったので関係ないけどｺｺに書かせてもらいます！ あたし、開発区ずっと住んでるんですよー、だから今日街で見た景色ばっかりでそれをネットでみるってすごい新鮮でたのしかったですー。いま、いろんな新しい店とか、沢山できたので、また遊びに来てくださいねー！！ 相変わらず安全な街ですよー＾＾！ 日本人の赴任されてるひとって、結構遊んでるのに、すっごい仕事だけできてらっしゃって、いいなーって思いました！お仕事忙しいみたいですけど、頑張ってくださいー＾＾
投稿： Mｉ♪♪ | 2005年8月 4日 (木) 20時08分
書込みありがとうございます。掲示板は設置しても閑古鳥が鳴くだけなので設置できません(^^;。ここに書いていただいて大正解です。
大連に遊びにはいけませんが、仕事で来年の春節ごろに行く予定です。一ヶ月くらいかな。今から楽しみにしていたりします。仕事はやっぱりキツイの間違いなしなんですけどね。。。
投稿： あきひろ | 2005年8月 4日 (木) 21時12分
ありがとうございました。
おかげユーザーアカウント別のパスワードを無期限にするスクリプトを完成することができました。
投稿： satoshi | 2007年12月16日 (日) 01時10分
お役に立ててなによりです。管理系のスクリプトは痒いところに手が届く系が意外と晒されてないことも多いので、satoshiさんも秘蔵のスクリプトをblog等検索エンジンにひっかかる所においていただければ、未来の私が助かるかもです。
投稿： あきひろ | 2007年12月16日 (日) 14時31分