- 締切済み
WMIでPCにユーザーを作る方法は?
WMIでPCローカルに新たにユーザー(パスワード付、管理者権限)を作りたいのですが、作成方法がわかりません。私が調べた限りでは既存ユーザのRenameは出来そうですが・・。 どなたかご教授頂けないでしょうか? よろしくお願い致します。
- みんなの回答 (2)
- 専門家の回答
みんなの回答
- SHIMAPEE
- ベストアンサー率75% (154/203)
ANo.1 補足への回答です。 下のvbsを実行するとパスワードを無期限にできます。Win XP Proで、NET USERで作成したユーザの表示が変更できることを確認しました。 ----- Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000 set usr = GetObject("WinNT://コンピュータ名/ユーザ名") oldFlags = usr.UserFlags newFlags = oldFlags Or ADS_UF_DONT_EXPIRE_PASSWD usr.UserFlags = newFlags usr.SetInfo WScript.Echo "UserFlagsに &H" & HEX(newFlags) & " を書き込みました。" ----- 参考にしたのは下記です。 Hey, Scripting Guy! ‐ ローカル アカウント http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/local.mspx Password Never Expires (WinNT Provider) http://msdn.microsoft.com/en-us/library/aa746537(VS.85).aspx ADS_USER_FLAG_ENUM Enumeration http://msdn.microsoft.com/en-us/library/aa772300(VS.85).aspx ADS_UF_DONT_EXPIRE_PASSWDで検索しましたら、なんと作成する方法も見つかりました! 非AD環境の Windows Server 2003 にユーザーアカウントを一括登録する方法 http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=35017&forum=6&16
- SHIMAPEE
- ベストアンサー率75% (154/203)
Windows XPではユーザー作成、グループの変更などはNET USER、NET GROUP、NET LOCALGROUPコマンドでできます。あえて「WMI」で行うならWin32_ProcessのCreateメソッドが使えます。これならリモートPCに対しても実行できます。 例えば下のWSH VBScriptはtestpcにtest01を作成します。ワークグループのVista Ultimate機で実行し、XP Pro機にユーザが作成できることを確認しました。 ----- strComputer = "testpc" 'コンピュータ名 strCommand = "net user test01 testpass01 /add" '実行するコマンド set objProcess = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process") objProcess.Create strCommand,null,null,intProcessID ----- 参考にしたのは下記です。 リモート コンピュータ上にフォルダを作成する方法はありますか http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/sept04/hey0901.mspx 1 つのアプリケーションが終了するのを待機してから別のアプリケーションを開く方法はありますか http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/may07/hey0531.mspx
補足
回答ありがとうございました。 お礼が遅くなりましてすみません。 ご指摘にありますが、 あえてNETUSERを使用しないのは、作成と同時に”パスワードを無期限にする”にチェックを付けることが出来ないからです。で、WMIならば、それが可能かな?・・と思ったからです。 WMIでもNETUSERの使用が必須なら結果は恐らく同じでしょうね・・。 (方法は何でも良いのですが、コマンドでユーザを作成時に同時に”パスワードを無期限にする”にチェックを付ける手段があれば、教えていただけると、有り難いです。)