タイトル
 メニューにないコーナーはTopからいけます
TOP覚え書きVBS → This Page
VBS(WSF)サンプル

グループの追加

グループの追加

以下のコードでは OS にグループ「TestGroup」を追加します。
(特にエラー処理はしていません)

Option Explicit

Dim strHostName, strGroupName, strPassword
Dim objDomain, objGroup

strHostName = "XXXXX"  '←ホスト名(コンピュータ名)を環境に合わせて設定して下さい
strGroupName = "TestGroup"

Set objDomain = GetObject("WinNT://" & strHostName)
Set objGroup = objDomain.Create("group", strGroupName)

objGroup.SetInfo

MsgBox "グループを登録しました"

サンプルソースのダウンロード

サンプルのダウンロード(ZIP圧縮)

更新履歴

2008/01/11 本ページ新規追加


TOP覚え書きVBS → This Page
Valid CSS!