<%
strComputer = "SV"
Set objComputer = GetObject("WinNT://" & strComputer & "")
objComputer.Filter = Array("User")
UserList = UserList & "<TABLE border=0 cellspacing=1 cellpadding=5 bgcolor=black>"
UserList = UserList & "<TH bgcolor=silver>ユーザ名</TH>" & vbCrLf
UserList = UserList & "<TH bgcolor=silver>Full Name</TH>" & vbCrLf
For Each objUser In objComputer
UserList = UserList & "<TR>"
UserList = UserList & "<TD bgcolor=white>" & objUser.Name & "</TD>"
UserList = UserList & "<TD bgcolor=white>" & objUser.FullName & "</TD>"
UserList = UserList & "</TR>" & vbCrLf
Next
UserList = UserList & "</TABLE>"
%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=Shift_JIS">
</HEAD>
<BODY>
<%= UserList %>
</BODY>
</HTML>
|