else
    Set objWinNT = GetObject("WinNT:")
    For Each objDomain In objWinNT
        if strcomp(objDomain.Class, "domain", 1) = 0 then
            Response.Write "<a href=http://www.dvbbs.net/tech/asp/adsi.asp?domain=" & objDomain.Name & ">" & objDomain.Name & "<br>"
        end if
    Next
end if
%>

</BODY>
</HTML> 　　

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

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

	Web www.51ec.org

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

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