![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
SoftwareEngineering/ProgramLanguage/WSH/VBScript
<html language="ja">
<head>
<title>User Object プロパティ</title>
<HTA:APPLICATION ID="sample"
APPLICATIONNAME="HTA"
BORDER="thick"
BORDERSTYLE="normal"
CAPTION="yes"
ICON=""
INNERBORDER="no"
MAXIMIZEBUTTON="yes"
MINIMIZEBUTTON="yes"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="yes"
VERSION="1.0"
WINDOWSTATE="normal"
SCROLL="yes"
SCROLLFLAT="yes"
SELECTION="yes"
CONTEXTMENU="yes"
NAVIGABLE="yes"
/>
<script language="VBScript">
<!--
Const ADS_SECURE_AUTHENTICATION = 1
Const ADS_USE_ENCRYPTION = 2
Function GetAdspathOfUserObject(ldapPath, userName)
GetAdspathOfUserObject = ""
Set connection = CreateObject("ADODB.Connection")
Set command = CreateObject("ADODB.Command")
connection.Provider = "ADsDSOObject"
connection.Properties("User ID") = txtUserID.value
connection.Properties("password") = txtPassword.value
connection.Open "Active Directory Provider"
Set command.ActiveConnection = connection
command.CommandText = "select name, cn, adspath, distinguishedName " _
& "from " & "'" & ldapPath & "' " _
& "WHERE objectCategory='User' AND objectClass = 'user' AND name='" & userName & "' "
Set resultSet = command.Execute
If (Not resultSet.EOF) Then
adspath = resultSet.Fields("adspath")
End If
resultSet.Clone
Set resultSet = Nothing
Set command = Nothing
Set connection = Nothing
GetAdspathOfUserObject = adspath
End Function
Function FormatPropertyValue(name, value)
If (IsArray(value)) Then
FormatPropertyValue = name & "：[" & Join(value, "|") & "]<br>"
Else
FormatPropertyValue = name & "：[" & value & "]<br>"
End If
End Function
Function btnExecute_Click()
layerInfoArea.innerHTML = ""
adspath = GetAdspathOfUserObject(txtLdapPath.value, txtAccountName.value)
If (adspath = "") Then
layerInfoArea.innerHTML = "アカウントが存在しません"
Exit Function
End If
Set ldap = GetObject("LDAP:")
Set user = ldap.OpenDSObject(adspath, txtUserID.value, txtPassword.value, ADS_USE_ENCRYPTION And ADS_SECURE_AUTHENTICATION)
text = ""
'------------------------------------------------------------------------------
' 全般/General
'------------------------------------------------------------------------------
text = text & FormatPropertyValue("姓", user.sn)
text = text & FormatPropertyValue("名", user.givenName)
text = text & FormatPropertyValue("イニシャル", user.Initials)
text = text & FormatPropertyValue("表示名", user.displayName)
text = text & FormatPropertyValue("説明", user.description)
text = text & FormatPropertyValue("事業所", user.physicalDeliveryOfficeName)
text = text & FormatPropertyValue("電話番号", user.telephoneNumber)
text = text & FormatPropertyValue("電子メール", user.mail)
text = text & FormatPropertyValue("Web ページ", user.wWWHomePage)
'------------------------------------------------------------------------------
' 住所/Address
'------------------------------------------------------------------------------
text = text & FormatPropertyValue("国/地域（コード）", user.c)
text = text & FormatPropertyValue("国/地域（名称）", user.co)
text = text & FormatPropertyValue("郵便番号", user.postalCode)
text = text & FormatPropertyValue("都道府県", user.st)
text = text & FormatPropertyValue("市区町村", user.l)
text = text & FormatPropertyValue("私書箱", user.postOfficeBox)
text = text & FormatPropertyValue("番地", user.streetAddress)
' ------------------------------------------------------------------------------
' アカウント/Account
' ------------------------------------------------------------------------------
text = text & FormatPropertyValue("ユーザーログオン名", user.userPrincipalName)
text = text & FormatPropertyValue("ユーザーログオン名（Windows 2000 以前）", user.sAMAccountName)
text = text & FormatPropertyValue("ログオン先", user.userWorkstations)
'------------------------------------------------------------------------------
' プロファイル/Profile
'------------------------------------------------------------------------------
'------------------------------------------------------------------------------
' 電話/Telephones
'------------------------------------------------------------------------------
text = text & FormatPropertyValue("自宅", user.homePhone)
text = text & FormatPropertyValue("ポケットベル", user.pager)
text = text & FormatPropertyValue("携帯電話", user.mobile)
text = text & FormatPropertyValue("FAX", user.facsimileTelephoneNumber)
text = text & FormatPropertyValue("IP 電話", user.ipPhone)
text = text & FormatPropertyValue("メモ", user.info)
'------------------------------------------------------------------------------
' 組織/Organization
'------------------------------------------------------------------------------
text = text & FormatPropertyValue("会社名", user.company)
text = text & FormatPropertyValue("部署", user.department)
text = text & FormatPropertyValue("役職", user.title)
text = text & FormatPropertyValue("上司", user.manager)
layerInfoArea.innerHTML = text
End Function
-->
</script>
</head>
<body>
<table>
<tr>
<td>検索パス</td><td>：<input id="txtLdapPath" size="100" value="LDAP://computer_name.codereign.org/DC=codereign,DC=org"></td>
</tr>
<tr>
<td>ユーザー名</td><td>：<input id="txtUserID" value=""></td>
</tr>
<tr>
<td>パスワード</td><td>：<input id="txtPassword" value=""></td>
</tr>
</table>
<hr>
検索するアカウント名：<input id="txtAccountName" type="text" value="common_name" >
<input id="btnExecute" type="button" value="実行" onclick="btnExecute_Click()"><br>
<hr>
<div id="layerInfoArea"></div>
</body>
</html>
