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

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• VBScript/ActiveDirectory/CreateUser へ行く。
  • 1 (2010-05-08 (土) 21:06:45)

SoftwareEngineering/ProgramLanguage/WSH/VBScript

'
' ユーザーを作成する
'
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.SetInfo