VBScript/ActiveDirectory/CreateUser の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• VBScript/ActiveDirectory/CreateUser へ行く。

#author("2021-11-26T08:54:12+09:00","","")
#author("2021-11-26T08:54:33+09:00","","")
[[ソフトウェア開発>SoftwareEngineering]] / [[VBScript>VBScript]] / Active Directory / [[CreateUser>./]]

 '
 ' ユーザーを作成する
 '
 Set container = GetObject("LDAP://DC01.codereign.org/CN=Users,DC=codereign,DC=org")
 
 
 
 Set user = container.Create("User", "cn=user0001")
 user.Put "sAMAccountName", "user0001"
 user.SetInfo
 
 
 '------------------------------------------------------------------------------
 ' 全般/General
 '------------------------------------------------------------------------------
 user.Put "sn", "姓"                                     ' 姓
 user.Put "givenName", "名"                              ' 名
 user.Put "Initials", "g.s"                              ' イニシャル
 user.Put "displayName", "表示名"                        ' 表示名
 user.Put "description", "説明"                          ' 説明
 user.Put "physicalDeliveryOfficeName", "事業所"         ' 事業所
 user.Put "telephoneNumber", "電話番号"                  ' 電話番号
 user.Put "mail", "user0001@codereign.org"               ' 電子メール
 user.Put "wWWHomePage", "http://www.codereign.org/"     ' Web ページ
 
 user.SetInfo
 
 
 
 '------------------------------------------------------------------------------
 ' 住所/Address
 '------------------------------------------------------------------------------
 user.Put "c", "JP"                                      ' 国/地域（コード）
 user.Put "co", "Japan"                                  ' 国/地域（名称）
 user.Put "postalCode", "郵便番号"                       ' 郵便番号
 user.Put "st", "都道府県"                               ' 都道府県
 user.Put "l", "市区町村"                                ' 市区町村
 user.Put "postOfficeBox", "私書箱"                      ' 私書箱
 user.Put "streetAddress", "番地"                        ' 番地
 
 user.SetInfo
 
 
 
 '------------------------------------------------------------------------------
 ' アカウント/Account
 '------------------------------------------------------------------------------
 user.Put "userPrincipalName", "user0001@codereign"      ' ユーザーログオン名
 user.Put "sAMAccountName", "user0001"                   ' ユーザーログオン名（Windows 2000 以前）
 user.Put "userWorkstations", "server01,server02"        ' ログオン先
 
 ' user.Put "", ""' ログオン時間
 ' user.Put "", ""' アカウントのロックを解除する
 ' user.Put "", ""' アカウント オプション
 ' user.Put "", ""' アカウント期限
 
 user.SetInfo
 
 
 
 '------------------------------------------------------------------------------
 ' プロファイル/Profile
 '------------------------------------------------------------------------------
 
 
 
 
 '------------------------------------------------------------------------------
 ' 電話/Telephones
 '------------------------------------------------------------------------------
 user.Put "homePhone", "自宅"                            ' 自宅
 user.Put "pager", "ポケットベル"                        ' ポケットベル
 user.Put "mobile", "携帯電話"                           ' 携帯電話
 user.Put "facsimileTelephoneNumber", "FAX"              ' FAX
 user.Put "ipPhone", "IP 電話"                           ' IP 電話
 user.Put "info", "メモ"                                 ' メモ
 
 user.SetInfo
 
 
 
 '------------------------------------------------------------------------------
 ' 組織/Organization
 '------------------------------------------------------------------------------
 user.Put "company", "会社名"                                    ' 会社名
 user.Put "department", "部署"                                   ' 部署
 user.Put "title", "役職"                                        ' 役職
 user.Put "manager", "CN=user0002,CN=Users,DC=codereign,DC=org"   ' 上司
 user.Put "manager", "CN=user0002,CN=Users,DC=codereign,DC=org"  ' 上司
 
 ' 直接報告者
 ' 　読み取り専用。当ユーザーを上司にしているユーザーが表示される。
 
 user.SetInfo