|
<SCRIPT language=VBScript>
function EnumTest()
Set obj = GetObject("WinNT://NT")
List = List & "Name : " & obj.Name & "<BR>"
List = List & "Class : " & obj.Class & "<BR>"
' フィルタの設定
obj.Filter = Array("User", "Group")
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 Each objTarget In obj
List = List & "<TR>"
List = List & "<TD bgcolor=white>" & objTarget.Name & "</TD>"
List = List & "<TD bgcolor=white>" & objTarget.Class & "</TD>"
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>
| |