asp查看系统用户和进程的代码

<%
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%>
　　<%=obj.path%>
<%
next
%>