自分用のメモに転載させていただきました。
現在ログイン中のユーザ名からActiveDirectory上の情報を参照する値の一覧です。探し方が悪いからだと思うんだけど、この手の情報がなかなか見つからなくて、でもVBS以外書けなくて・・・。そんな時にきっと役に立ちます。
'userinfo.vbs ' Usage: ' cscript //Nologo userinfo.vbs ' List User properties as displayed in ADUC On Error Resume Next Dim objSysInfo, objUser Set objSysInfo = CreateObject("ADSystemInfo") ' Currently logged in User Set objUser = GetObject("LDAP://" & objSysInfo.UserName) ' or specific user: 'Set objUser = GetObject("LDAP://CN=hoge,OU=Users,DC=hogehoge,DC=com") WScript.Echo "DN: " & objUser.distinguishedName WScript.Echo "" WScript.Echo "GENERAL" WScript.Echo "First name: " & objUser.givenName 'WScript.Echo "First name: " & objUser.FirstName WScript.Echo "Initials: " & objUser.initials WScript.Echo "Last name: " & objUser.sn 'WScript.Echo "Last name: " & objUser.LastName WScript.Echo "Display name: " & objUser.displayName 'WScript.Echo "Display name: " & objUser.FullName WScript.Echo "Description: " & objUser.description WScript.Echo "Office: " & objUser.physicalDeliveryOfficeName WScript.Echo "Telephone number: " & objUser.telephoneNumber WScript.Echo "Other Telephone numbers: " & objUser.otherTelephone WScript.Echo "Email: " & objUser.mail ' WScript.Echo "Email: " & objUser.EmailAddress WScript.Echo "Web page: " & objUser.wWWHomePage WScript.Echo "Other Web pages: " & objUser.url WScript.Echo "" WScript.Echo "ADDRESS" WScript.Echo "Street: " & objUser.streetAddress WScript.Echo "P.O. Box: " & objUser.postOfficeBox WScript.Echo "City: " & objUser.l WScript.Echo "State/province: " & objUser.st WScript.Echo "Zip/Postal Code: " & objUser.postalCode WScript.Echo "Country/region: " & objUser.countryCode 'WScript.Echo "Country/region: " & objUser.c '(ISO 4217) WScript.Echo "" WScript.Echo "ACCOUNT" WScript.Echo "User logon name: " & objUser.userPrincipalName WScript.Echo "pre-Windows 2000 logon name: " & objUser.sAMAccountName WScript.Echo "AccountDisabled: " & objUser.AccountDisabled ' WScript.Echo "Account Control #: " & objUser.userAccountControl WScript.Echo "Logon Hours: " & objUser.logonHours WScript.Echo "Logon On To (Logon Workstations): " & objUser.userWorkstations ' WScript.Echo "User must change password at next logon: " & objUser.pwdLastSet WScript.Echo "User cannot change password: " & objUser.userAccountControl WScript.Echo "Password never expires: " & objUser.userAccountControl WScript.Echo "Store password using reversible encryption: " & objUser.userAccountControl ' WScript.Echo "Account expires end of (date): " & objUser.accountExpires WScript.Echo "" WScript.Echo "PROFILE" WScript.Echo "Profile path: " & objUser.profilePath ' WScript.Echo "Profile path: " & objUser.Profile WScript.Echo "Logon script: " & objUser.scriptPath WScript.Echo "Home folder, local path: " & objUser.homeDirectory WScript.Echo "Home folder, Connect, Drive: " & objUser.homeDrive WScript.Echo "Home folder, Connect, To:: " & objUser.homeDirectory WScript.Echo "" WScript.Echo "TELEPHONE" WScript.Echo "Home: " & objUser.homePhone WScript.Echo "Other Home phone numbers: " & objUser.otherHomePhone WScript.Echo "Pager: " & objUser.pager WScript.Echo "Other Pager numbers: " & objUser.otherPager WScript.Echo "Mobile: " & objUser.mobile WScript.Echo "Other Mobile numbers: " & objUser.otherMobile WScript.Echo "Fax: " & objUser.facsimileTelephoneNumber WScript.Echo "Other Fax numbers: " & objUser.otherFacsimileTelephoneNumber WScript.Echo "IP phone: " & objUser.ipPhone WScript.Echo "Other IP phone numbers: " & objUser.otherIpPhone WScript.Echo "Notes: " & objUser.info WScript.Echo "" WScript.Echo "ORGANISATION" WScript.Echo "Title: " & objUser.title WScript.Echo "Department: " & objUser.department WScript.Echo "Company: " & objUser.company WScript.Echo "Manager: " & objUser.manager
以下、日本語版のActive Directory表記にある程度準拠した物。利用頻度高そうなものだけ日本語にしてありますのでご了承ください。
'userinfo.vbs ' Usage: ' cscript //Nologo userinfo.vbs ' List User properties as displayed in ADUC On Error Resume Next Dim objSysInfo, objUser Set objSysInfo = CreateObject("ADSystemInfo") ' Currently logged in User Set objUser = GetObject("LDAP://" & objSysInfo.UserName) ' or specific user: 'Set objUser = GetObject("LDAP://CN=johndoe,OU=Users,DC=ss64,DC=com") WScript.Echo "DN: " & objUser.distinguishedName WScript.Echo "" WScript.Echo "GENERAL" WScript.Echo "姓: " & objUser.sn WScript.Echo "名: " & objUser.givenName 'WScript.Echo "First name: " & objUser.FirstName WScript.Echo "イニシャル: " & objUser.initials 'WScript.Echo "Last name: " & objUser.LastName WScript.Echo "表示名: " & objUser.displayName 'WScript.Echo "Display name: " & objUser.FullName WScript.Echo "説明: " & objUser.description WScript.Echo "事業所: " & objUser.physicalDeliveryOfficeName WScript.Echo "電話番号: " & objUser.telephoneNumber WScript.Echo "その他の電話番号: " & objUser.otherTelephone WScript.Echo "E-メール: " & objUser.mail ' WScript.Echo "Email: " & objUser.EmailAddress WScript.Echo "Webページ: " & objUser.wWWHomePage WScript.Echo "その他のWebページ: " & objUser.url WScript.Echo "" WScript.Echo "住所" WScript.Echo "番地: " & objUser.streetAddress WScript.Echo "私書箱: " & objUser.postOfficeBox WScript.Echo "市区町村: " & objUser.l WScript.Echo "都道府県: " & objUser.st WScript.Echo "郵便番号: " & objUser.postalCode WScript.Echo "国コード: " & objUser.countryCode 'WScript.Echo "Country/region: " & objUser.c '(ISO 4217) WScript.Echo "" WScript.Echo "ACCOUNT" WScript.Echo "ユーザーログオン名: " & objUser.userPrincipalName WScript.Echo "ユーザーログオン名(Windows 2000以前): " & objUser.sAMAccountName WScript.Echo "アカウントは無効: " & objUser.AccountDisabled ' WScript.Echo "Account Control #: " & objUser.userAccountControl WScript.Echo "ログオン時間: " & objUser.logonHours WScript.Echo "ログオン先: " & objUser.userWorkstations ' WScript.Echo "User must change password at next logon: " & objUser.pwdLastSet WScript.Echo "ユーザーはパスワードを変更できない: " & objUser.userAccountControl WScript.Echo "パスワードを無期限にする: " & objUser.userAccountControl WScript.Echo "暗号化を元に戻せる状態でパスワードを保存する: " & objUser.userAccountControl ' WScript.Echo "Account expires end of (date): " & objUser.accountExpires WScript.Echo "" WScript.Echo "プロファイル" WScript.Echo "プロファイル パス: " & objUser.profilePath ' WScript.Echo "Profile path: " & objUser.Profile WScript.Echo "ログオンスクリプト: " & objUser.scriptPath WScript.Echo "Home folder, local path: " & objUser.homeDirectory WScript.Echo "Home folder, Connect, Drive: " & objUser.homeDrive WScript.Echo "Home folder, Connect, To:: " & objUser.homeDirectory WScript.Echo "" WScript.Echo "電話" WScript.Echo "自宅: " & objUser.homePhone WScript.Echo "Other Home phone numbers: " & objUser.otherHomePhone WScript.Echo "ポケットベル: " & objUser.pager WScript.Echo "Other Pager numbers: " & objUser.otherPager WScript.Echo "携帯電話: " & objUser.mobile WScript.Echo "Other Mobile numbers: " & objUser.otherMobile WScript.Echo "FAX: " & objUser.facsimileTelephoneNumber WScript.Echo "Other Fax numbers: " & objUser.otherFacsimileTelephoneNumber WScript.Echo "IP電話: " & objUser.ipPhone WScript.Echo "Other IP phone numbers: " & objUser.otherIpPhone WScript.Echo "メモ: " & objUser.info WScript.Echo "" WScript.Echo "組織" WScript.Echo "役職: " & objUser.title WScript.Echo "部署: " & objUser.department WScript.Echo "会社: " & objUser.company WScript.Echo "上司: " & objUser.manager
[…] post: VBScriptを使ってActiveDirectoryのユーザ情報を参照する – http … By admin | category: 元に戻せません | No Related […]