ユーザ情報の取得

  特定のユーザ



文字列で取得するのが一般的ですが、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   管理者用   
このエントリーをはてなブックマークに追加





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

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ