TOP →
覚え書き →
VBS → This Page
VBS(WSF)サンプル
ユーザーの追加
ユーザーの追加
以下のコードでは OS にユーザー「TestUser」を追加します。
(特にエラー処理はしていません)
Option Explicit
Dim strHostName, strUserName, strPassword
Dim objDomain, objUser
strHostName = "XXXXX" '←ホスト名(コンピュータ名)を環境に合わせて設定して下さい
strUserName = "TestUser"
strPassword = "password"
Set objDomain = GetObject("WinNT://" & strHostName)
Set objUser = objDomain.Create("user", strUserName)
objUser.SetPassword strPassword
objUser.SetInfo
MsgBox "ユーザを登録しました"
|
サンプルソースのダウンロード
サンプルのダウンロード(ZIP圧縮)
更新履歴
2008/01/11 本ページ新規追加
TOP →
覚え書き →
VBS → This Page