一个利用adsi得到局域网信息的asp文件
2018-09-06 11:34
<%@ 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
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)
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
文章标题：一个利用adsi得到局域网信息的asp文件
文章链接：http://soscw.com/index.php/essay/9505.html