<%
dim obj
on error resume next
  for each obj in getObject("WinNT://.")
   err.clear%>
<!--<%=obj.path%>-->
    <%if err then
%>系统用户(组)<%else%>系统进程<%end if%>
<%=obj.Name%>
  <%if err then
  else
%>(<%=obj.DisplayName%>)<%end if%>
  <br>　　<%=obj.path%>
   <%
   next
%>