ユーザ情報の取得

  特定のユーザ



文字列で取得するのが一般的ですが、IADsContainer の GetObject メソッドで取得する事もできます

  
Set obj = GetObject("WinNT://NT/lightbox,user")

または

Set objBase = GetObject("WinNT://NT")
Set obj = objBase.GetObject( "User", "lightbox" )
  

Name : lightbox
Class : User
プロパティ 内容
AccountExpirationDateError
AutoUnlockInterval1800
BadPasswordAttempts0
Descriptionユーザのプロパティの説明欄
FullNameライトボックス
HomeDirDrive
HomeDirectory
UserFlags66049
LockoutObservationInterval1800
LoginHoursError
LastLoginError
LastLogoffError
LoginScript
LoginWorkstationsError
MinPasswordAge0
MinPasswordLength0
MaxBadPasswordsAllowed0
MaxLoginsError
MaxPasswordAge3710851
MaxStorage-1
ObjectSidError
Parameters
PasswordAge6986
PasswordExpirationDateError
PasswordExpired0
PasswordHistoryLength0
PrimaryGroupID513
Profile

  
<SCRIPT language=VBScript>

function EnumTest()

	Set obj = GetObject("WinNT://NT/lightbox,user")

	List = List & "Name : " & obj.Name & "<BR>"
	List = List & "Class : " & obj.Class & "<BR>"

	Prop = Array( _
"AccountExpirationDate", _
"AutoUnlockInterval", _
"BadPasswordAttempts", _
"Description", _
"FullName", _
"HomeDirDrive", _
"HomeDirectory", _
"UserFlags", _
"LockoutObservationInterval", _
"LoginHours", _
"LastLogin", _
"LastLogoff", _
"LoginScript", _
"LoginWorkstations", _
"MinPasswordAge", _
"MinPasswordLength", _
"MaxBadPasswordsAllowed", _
"MaxLogins", _
"MaxPasswordAge", _
"MaxStorage", _
"ObjectSid", _
"Parameters", _
"PasswordAge", _
"PasswordExpirationDate", _
"PasswordExpired", _
"PasswordHistoryLength", _
"PrimaryGroupID", _
"Profile" _
	)

	List = List & "<TABLE border=0 cellspacing=1 cellpadding=5 bgcolor=black>"
	List = List & "<TH bgcolor=silver>プロパティ</TH>" & vbCrLf
	List = List & "<TH bgcolor=silver>内容</TH>" & vbCrLf
	For i = 0 to Ubound(Prop)
		List = List & "<TR>"
		List = List & "<TD bgcolor=white>" & Prop(i) & "</TD>"
		on error resume next
		List = List & "<TD bgcolor=white>" & obj.Get( Prop(i) ) & "</TD>"
		if Err.Number <> 0 then
			List = List & "<TD bgcolor=white>Error</TD>"
		end if
		List = List & "</TR>" & vbCrLf
	Next
	List = List & "</TABLE>"

	document.all("Result").innerHTML = List

end function

</SCRIPT>
<HTML>
<HEAD>
<META http-equiv="Content-Type" CONTENT="text/html; CHARSET=Shift_JIS">
</HEAD>
<BODY>
<INPUT type=button value="表示" onClick='Call EnumTest()'>
<INPUT type=button value="再表示" onClick='Call location.reload( true )'>
<BR><BR>
<DIV id=Result></DIV>
</BODY>
</HTML>
  



  Windows XP



Name : lightbox
Class : User
プロパティ 内容
AccountExpirationDateError
AutoUnlockInterval1800
BadPasswordAttempts0
Description
FullName
HomeDirDrive
HomeDirectory
UserFlags66081
LockoutObservationInterval1800
LoginHoursError
LastLogin2004/02/23 13:47:50
LastLogoffError
LoginScript
LoginWorkstationsError
MinPasswordAge0
MinPasswordLength0
MaxBadPasswordsAllowed0
MaxLoginsError
MaxPasswordAge-1
MaxStorage-1
ObjectSidError
Parameters
PasswordAge55534274
PasswordExpirationDateError
PasswordExpired0
PasswordHistoryLength0
PrimaryGroupID513
Profile



  Windows 2000

Name : lightbox
Class : User
プロパティ 内容
AccountExpirationDateError
AutoUnlockInterval1800
BadPasswordAttempts0
Description
FullNamelightbox
HomeDirDrive
HomeDirectory
UserFlags66049
LockoutObservationInterval1800
LoginHoursError
LastLogin2004/02/23 13:31:07
LastLogoffError
LoginScript
LoginWorkstationsError
MinPasswordAge0
MinPasswordLength0
MaxBadPasswordsAllowed0
MaxLoginsError
MaxPasswordAge3710851
MaxStorage-1
ObjectSidError
Parameters
PasswordAge72480188
PasswordExpirationDateError
PasswordExpired0
PasswordHistoryLength1
PrimaryGroupID513
Profile



  WinNT プロバイダがサポートするオブジェクトのプロパティ

LDAP プロバイダでは、もっと多くのプロパティがサポートされます

Microsoft の詳細は こちら です










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ