VBScript/ActiveDirectory/CreateGroup の履歴(No.1)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• VBScript/ActiveDirectory/CreateGroup へ行く。
  • 1 (2010-05-31 (月) 09:48:08)

SoftwareEngineering/ProgramLanguage/WSH/VBScript

'
' グループを作成する
'
' 定数定義
Const ADS_GROUP_TYPE_GLOBAL_GROUP = &H2                 ' グローバル グループ
Const ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP = &H4           ' ドメイン ローカル グループ
Const ADS_GROUP_TYPE_UNIVERSAL_GROUP = &H8              ' ユニバーサル グループ
Const ADS_GROUP_TYPE_SECURITY_ENABLED = &H80000000      ' セキュリティ グループ



Set container = GetObject("LDAP://DC01.codereign.org/CN=Users,DC=codereign,DC=org")



Set group = container.Create("Group", "cn=group0001")
group.Put "sAMAccountName", "group0001"
group.Put "groupType", (ADS_GROUP_TYPE_GLOBAL_GROUP + ADS_GROUP_TYPE_SECURITY_ENABLED)  ' グループの種類／スコープ
group.SetInfo



'------------------------------------------------------------------------------
' 全般/General
'------------------------------------------------------------------------------
group.Put "description", "説明"                         ' 説明
group.Put "mail", "group0001@codereign.org"             ' 電子メール
group.Put "info", "メモ"                                ' メモ

group.SetInfo