No.3ベストアンサー
- 回答日時:
WSHを使って実現できます。
下記の内容をメモ帳などでコピペして「パスワード変更.vbs」などの名前で保存して下さい。
パスワード変更.vbs ユーザー名
・・という風に引数にユーザー名を与えるか、引数を与えず直接実行した場合は
入力ボックスが表示されるので、そちらからユーザー名を入力して下さい。
ユーザーの有無を確認した後、設定を変更します。
バッチ処理したい場合は「WScript.Echo」で吐いているメッセージを削除するか
コメントアウトした方が使いやすいと思います。
ちなみに本スクリプトはローカルアカウント用でADアカウントの場合は
多少手を加える必要があります。
'-----------
Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000 '「パスワードを無期限にする」
Const ADS_UF_PASSWD_CANT_CHANGE = &H40 '「ユーザーはパスワードを変更できない」
If WScript.Arguments.Count < 1 Then
' 引数がない場合にダイアログからユーザー名入力
Do Until Not strUserName = "" '入力されるまで繰り返す
strUserName = InputBox("ユーザー名を入力して下さい。")
Loop
Else
' 引数をユーザー名としてセット
strUserName = WScript.Arguments.Item(0)
End If
' ローカルコンピュータ名とローカルアカウント名取得
Set oWshNetwork = CreateObject("WScript.Network")
strComputerName = oWshNetwork.ComputerName
' ユーザーが存在すれば設定変更、存在しなければ終了
strADSIPath = "WinNT://" & strComputerName & "/" & strUserName
If ExistObject(strADSIPath) Then
Set oUser = GetObject(strADSIPath)
'「パスワードを無期限にする」を無効化
If oUser.UserFlags AND ADS_UF_DONT_EXPIRE_PASSWD Then oUser.UserFlags = oUser.UserFlags XOR ADS_UF_DONT_EXPIRE_PASSWD
'「ユーザーはパスワードを変更できない」を無効化
If oUser.UserFlags AND ADS_UF_PASSWD_CANT_CHANGE Then oUser.UserFlags = oUser.UserFlags XOR ADS_UF_PASSWD_CANT_CHANGE
'「ユーザーは次回ログオン時にパスワードの変更が必要」を有効化
oUser.PasswordExpired = 1
oUser.SetInfo
Else
WScript.echo "ユーザーが存在しません。"
WScript.Quit(2)
End If
WScript.Echo "完了"
Set oWshNetwork = Nothing: Set oUser = Nothing
Function ExistObject(strADSIPath)
' 変数定義
Dim oTemp
Dim bObjExist
On Error Resume Next
Set oTemp = GetObject(strADSIPath)
If Err.Number = 0 Then
bObjExist = True
Else
bObjExist = False
Err.Clear '初期化
End If
ExistObject = bObjExist
Set oTemp = Nothing
End Function
No.2
- 回答日時:
ドメイン環境でユーザーを大量に作成するのが大変だからGUIからではなくCUIからやりたいというのはたまに聞きますが、ローカルだとそんなに手間がかからないので。
。。う~ん。Windows2000リソースキットのaddusers.exe を入手できれば、そのようなことが実現できるかと思います。
もし、ユーザーを大量に作るだけならnet userコマンドに/add付けてバッチで流せば一括作成できるので、その後にちょこちょこGUIからチェックつけるのはダメでしょうか。
参考URL:http://www.atmarkit.co.jp/fwin2k/win2ktips/128ad …
No.1
- 回答日時:
レジストリエディタで
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon 配下に
DefaultDomainName REG_SZ・・・自動ログオンするドメイン名。ドメイン参加でない場合はマシン名
DefaultUserName REG_SZ ・・・自動ログオンするユーザー名
DefaultPassword REG_SZ ・・・自動ログオンするユーザーのパスワード
AutoAdminLogon REG_SZ 1
の値を設定すればよいらしいです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
メール添付ファイルにパスワー...
-
MacからNASに接続できず
-
OSログオンパスワードをコピペ...
-
Windows10 PC名を変更したら起...
-
リモートデスクトップでAdminis...
-
Windows2000でログオンパスワー...
-
パスワ-ドを毎回入れるのは?
-
GUI以外の方法で「ユーザーは次...
-
共有フォルダー内の一部が見えない
-
ユーザー名&パスワード変更
-
androidのタブレットでのユーザ...
-
Windows2000パソコンからの共有...
-
ネットワーク上のコンピュータ...
-
ネットワークへ接続するときの...
-
Mac OS 9.1のパスワードを忘れ...
-
macbookでBIOSパスワード
-
FTPエラー425
-
コマンドプロンプトに表示され...
-
ドメイン参加時にエラーが出て...
-
タスクマネージャのユーザー名
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
メール添付ファイルにパスワー...
-
Windows10 PC名を変更したら起...
-
ワード文書にパスワードがかけ...
-
OSログオンパスワードをコピペ...
-
「su」ログインできない
-
macbookでBIOSパスワード
-
共有フォルダにアクセスしよう...
-
Windows7とXPでファイル共有が...
-
リモートデスクトップでAdminis...
-
ユーザー名とパスワードを忘れ...
-
Windows Mac Linux で共用可能...
-
AIX(UNIX)のパスワード設定項目...
-
MacからNASに接続できず
-
パスワードの変更を検討してと...
-
パスワードポリシーによるパス...
-
Mac miniをヤフオクで売ろうと...
-
WindowsNT4.0でパスワードを忘...
-
Windows7 です。パスワードがあ...
-
共有フォルダー内の一部が見えない
-
Windows NTでAdministratorのパ...
おすすめ情報