タイトル
 メニューにないコーナーはTopからいけます
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
Valid CSS!