使用ASP列出NT用户组及用户


=============================================================
' 感谢您使用ASP001工作室开发的实用函数程序
' HTTP://WWW.ASP001.NET
'============================================================= 'ASP001工作室为您提供订制程序开发、企业互联网拓展服务
'QQ:1974229
'E-Mail:Shenyangchuqi@tom.com
'更多程序下载请到HTTP://WWW.ASP001.NET
'=============================================================
'函数介绍:列出NT用户组及用户
'本函数使用ADSI,需要Administrators组用户权限
'函数名称:ListGroup(Computer)
'程序开发:ASP001工作室 ChuQi
'用法:ListGroup(计算机名称)
'例:显示127.0.0.1计算机NT用户组及用户
'ListGroup "127.0.0.1"
'=============================================================

Function ListGroup(Computer)
response.write "<p><b>以下为计算机"&Computer&"系统用户组及用户列表</b></p>"
Set ComputerObj = GetObject("WinNT://"&Computer)
ComputerObj.Filter = Array("Group")
For Each Member in ComputerObj
Response.Write "用户组:"&Member.Name&"<br>"
ListUser Computer,Member.Name
Next
end Function

'列出指定用户组用户
Function ListUser(Computer,Group)
Set UserObj = GetObject("WinNT://"&Computer&"/"&Group)
For Each Member in UserObj.Members
Response.write " 组中用户:"&Member.Name &"<br>"
Next
End Function



相关阅读:
只允许用来代理上网的SSH账号的方法
类似GMAIL的Ajax信息反馈显示
linux系统优化
PHP 编码规范-源文件的编码规范
不用Cookie的仿刷新二级高亮菜单
jquery中eq和get的区别与使用方法
WIN XP更改分辨率就蓝屏的原因
asp.net ubb使用代码
dede实现类似ADMIN5按天归类的新闻检索功能
使用XHTML1.0 Strict中需要特别注意的地方
如何清除Windows 7通知区无效图标解决系统运行缓慢的问题
正规化的表格设计能提升应用性能(二)
windows 7中的hosts文件被修改后如何修复
Ajax PHP简单入门教程代码
快速导航

Copyright © 2016 phpStudy | 皖ICP备18014864号-4