jObject.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(objComputer.Class, "computer", 1) = 0 then
            Response.Write "<a href=http://www.dvbbs.net/tech/asp/adsi.asp?domain=" & sDomain & "&computer=" & objComputer.Name & ">" & objComputer.Name & "<br>"
        end if
    Next
    
    Response.Write "<p><a href=http://www.dvbbs.net/tech/asp/adsi.asp>Back to domain list</a></p>"

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

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

	Web www.51ec.org

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

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