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 & ">" & ob

上一页  [1] [2] [3] [4] 下一页

在google里搜索更多一个利用adsi得到局域网信息的asp文件

	Web www.51ec.org

上一篇信息学院： 客户端脚本验证码总结

下一篇信息学院： ServerVariables 对路径的操作…