Windowsマシンで管理者用のパスワードを追加する、という作業をWSHで自動化した場合、「パスワードを無期限にする」にもチェックを入れたいケースが結構ある。 方法が載ってたのでメモ。 敗北日記: ユーザーのパスワードを無期限にする http://aki-itou.cocolog-nifty.com/diary/2005/08/post_9a13.html てやつ。これをちょいちょいと変更すればよいよね。 こんなかんじかな。 Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000 Const TargetHostname = "hoge" Const TargetUsername = "hogehoge" Set objuser = GetObject("WinNT://" & TargetHostname & "/" & TargetUsername) obj