Function
  
  Function Course()
   SI="<br><table width='600' bgcolor='menu' border='0' cellspacing='1' cellpadding='0' align='center'>"
   SI=SI&"<tr><td height='20' colspan='3' align='center' bgcolor='menu'>系统用户与服务</td></tr>"
   on error resume next
   for each obj in getObject("WinNT://.")
   err.clear
   if OBJ.StartType="" then
   SI=SI&"<tr>"
   SI=SI&"<td height=""20"" bgcolor=""#FFFFFF""> "
   SI=SI&obj.Name
   SI=SI&"</td><td bgcolor=""#FFFFFF""> "
   SI=SI&"系统用户(组)"
   SI=SI&"</td></tr>"
   SI0="<tr><td height=""20"" bgcolor=""#FFFFFF"" colspan=""2""> </td></tr>"
   end if
   if OBJ.StartType=2 then lx="自动"
   if OBJ.StartType=3 then lx="手动"
   if OBJ.StartType=4 then lx="禁用"
   if LCase(mid(obj.path,4,3))<>"win" and OBJ.StartType=2 then
   SI1=SI1&"<tr><td height=""20"" bgcolor=""#FFFFFF""> "&obj.Name&"</td><td height=""20"" bgcolor=""#FFFFFF""> "&obj.DisplayName&"<tr><td height=""20"" bgcolor=""#FFFFFF"" colspan=""2"">[启动类型:"&lx&"]<font color=#FF0000> "&obj.path&"</font></td></tr>"
   else
   SI2=SI2&"<tr><td height=""20"" bgcolor=

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

在google里搜索更多ASP站长助手源代码

	Web www.51ec.org

上一篇信息学院： 在ASP中结合对象和组件

下一篇信息学院： 解析ASP的Application和Session对象