使いどころは微妙だけどちょっと仕事で必要だったのでこのへん参考につくってみた。 '####################################### ' パスワードを無期限に変更する ' cscript passwd.vbs //Nologo account1 account2 ... '####################################### ' パスワード無期限フラグ Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000 ' コンピュータ名 Set objWshNetwork = CreateObject("WScript.Network") strComputerName = objWshNetwork.ComputerName ' 引数より対象アカウント Set objAccounts = Wscript.Argume