当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一个利用adsi得到局域网信息的asp文件

ASP
迁移到 ASP .NET：需考虑的重要问题(2)
ASP中优化数据库处理
结合XML, ADO, 以及ASP
在ASP中优化数据库处理
提高ASP性能的最佳选择（一）
返回UPDATE SQL语句所影响的行数的方法
ASP如何使用MYSQL数据库
安全维护 IIS asp 站点的高级技巧
也谈ASP中的RESPONSE属性
ASP提速技巧
在ASP中如何访问Novell下的数据库
改善ASP性能和外观的技巧集锦（上）
改善ASP性能和外观的技巧集锦（中）
改善ASP性能和外观的技巧集锦（下）
利用ASP在浏览器上打印输出
用ASP文件实现CPU的使用率始终保持100％
ASP 0115 Error的解决方案
Varchar与char的区别
探讨一下rs(0)和rs(fieldname)的执行效率
连接WEB数据库的ADO性能提高技巧

No. « 170 171 172 173 »

技术文章搜索

关键字

ASP 中的 一个利用adsi得到局域网信息的asp文件

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 86 ::
收藏到网摘: n/a

  <%@ Language=VBScript %>
<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