当前位置：首页 -> 技术开发 -> ASP专区 -> 不知道这里贴过没有：一个利用adsi得到局域网信息的asp文件（转）

不知道这里贴过没有：一个利用adsi得到局域网信息的asp文件（转）

时间： 2021-07-31 作者：daque

<%@ language=vbscript %><html><head><meta name="generator" content="microsoft visual studio 6.0"><title>adsi domain browser</title></head><body><%sdomain = request("domain")scomputer = request("computer")sgroup = request("group")suser = request("user")if len(trim(suser)) > 0 thenset objgroup = getobject("winnt://" & sdomain & "/" & scomputer & "/" & suser)for each objuser in objgroup.groupsresponse.write objuser.name & " " & vbcrlfnextresponse.write "<a href=adsi.asp?domain=" & sdomain & "&computer=" & scomputer & ">back to " & scomputer & "</a>"elseif len(trim(sgroup)) > 0 thenset objgroup = getobject("winnt://" & sdomain & "/" & scomputer & "/" & sgroup)for each objuser in objgroup.membersresponse.write objuser.name & " " & vbcrlfnextresponse.write "<a href=adsi.asp?domain=" & sdomain & "&computer=" & scomputer & ">back to " & scomputer & "</a>"elseif len(trim(scomputer)) > 0 thenset objcomputer = getobject("winnt://" & sdomain & "/" & scomputer)response.write "<table border=0>"for each objobject in objcomputerif strcomp(objobject.class, "group", 1) = 0 thenresponse.write "<tr><td>" & objobject.class & "</td><td><a href=adsi.asp?domain=" & sdomain & "&computer=" & scomputer & "&group=" & objobject.name & ">" & objobject.name & "</a></td></tr>" & vbcrlfelseif strcomp(objobject.class, "user", 1) = 0 thenresponse.write "<tr><td>" & objobject.class & "</td><td><a href=adsi.asp?domain=" & sdomain & "&computer=" & scomputer & "&user=" & objobject.name & ">" & objobject.name & "</a></td></tr>" & vbcrlfelseresponse.write "<tr><td>" & objobject.class & "</td><td>" & objobject.name & "</td></tr>" & vbcrlfend ifnextresponse.write "<a href=adsi.asp?domain=" & sdomain & ">back to " & sdomain & "</a>"elseif len(trim(sdomain)) > 0 thenset objdomain = getobject("winnt://" & sdomain)for each objcomputer in objdomainif strcomp(objcomputer.class, "computer", 1) = 0 thenresponse.write "<a href=adsi.asp?domain=" & sdomain & "&computer=" & objcomputer.name & ">" & objcomputer.name & " "end ifnextresponse.write "<a href=adsi.asp>back to domain list</a>"elseset objwinnt = getobject("winnt:")for each objdomain in objwinntif strcomp(objdomain.class, "domain", 1) = 0 thenresponse.write "<a href=adsi.asp?domain=" & objdomain.name & ">" & objdomain.name & " "end ifnextend if%></body></html>

不知道这里贴过没有：一个利用adsi得到局域网信息的asp文件（转）

相关推荐

推荐下载

热门阅览

最新排行