繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一个利用adsi得到局域网信息的asp文件
- ASP
- asp调用存储过程
- 利用批处理文件和 vbs 脚本实现网站视频自动录制
- ASP、vbscript编码模板
- FileSystem对象常用的文件操作函数有哪些？
- asp显示日历效果
- sql语句的一些集合
- ASP语法注释
- 函数名称 函数功能
- 万能数据库连接程序
- 记录集内随机取记录的代码
- 分页代码
- 如何在数据库中用好Transaction？
- 用Command对象和RecordSet对象向数据库增加记录哪一个更好
- 为什么在存储过程中用OLEDB方式不能返回记录集
- 如何查询日期类型的数据？
- ASP如何获取真实IP地址
- 两种小偷程序的比较
- 使用xmlHttp结合ASP实现网页的异步调用
- 用ASP开"多线程"
- 整理了一个editplus的剪辑文件（ASP方面的内容）
ASP 中的 一个利用adsi得到局域网信息的asp文件
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 119 ::
收藏到网摘: n/a
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<title>ADSI Domain browser</title>
</HEAD>
<BODY>
<!-- Author: Adrian Forbes -->
<%
sDomain = Request("Domain")
sComputer = Request("Computer")
sGroup = Request("Group")
sUser = Request("User")
if len(trim(sUser)) > 0 then
Set objGroup = GetObject("WinNT://" & sDomain & "/" & sComputer & "/" & sUser)
For Each objUser In objGroup.Groups
Response.Write objUser.Name & "<br>" & vbCrLf
Next
Response.Write "</table><p><a href=adsi.asp?Domain=" & sDomain & "&Computer=" & sComputer & ">Back to " & sComputer & "</a></p>"
elseif len(trim(sGroup)) > 0 then
Set objGroup = GetObject("WinNT://" & sDomain & "/" & sComputer & "/" & sGroup)
For Each objUser In objGroup.Members
Response.Write objUser.Name & "<br>" & vbCrLf
Next
Response.Write "</table><p><a href=adsi.asp?Domain=" & sDomain & "&Computer=" & sComputer & ">Back to " & sComputer & "</a></p>"
elseif len(trim(sComputer)) > 0 then
Set objComputer = GetObject("WinNT://" & sDomain & "/" & sComputer)
Response.Write "<table border=0>"
For Each objObject In objComputer
if strcomp(objObject.Class, "group", 1) = 0 then
Response.Write "<tr><td>" & objObject.Class & "</td><td> <a href=adsi.asp?Domain=" & sDomain & "&Computer=" & sComputer & "&Group=" & objObject.Name & ">" & objObject.Name & "</a></td></tr>" & vbCrLf
elseif strcomp(objObject.Class, "user", 1) = 0 then
Response.Write "<tr><td>" & objObject.Class & "</td><td> <a href=adsi.asp?Domain=" & sDomain & "&Computer=" & sComputer & "&User=" & objObject.Name & ">" & objObject.Name & "</a></td></tr>" & vbCrLf
else
Response.Write "<tr><td>" & objObject.Class & "</td><td> " & objObject.Name & "</td></tr>" & vbCrLf
end if
Next
Response.Write "</table><p><a href=adsi.asp?Domain=" & sDomain & ">Back to " & sDomain & "</a></p>"
elseif len(trim(sDomain)) > 0 then
Set objDomain = GetObject("WinNT://" & sDomain)
For Each objComputer In objDomain
if strcomp(objComp
评论 (0) All
