|
<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>
| |