-
您的位置：首页 → 网页设计 → ASP实例 → 一个利用adsi得到局域网信息的asp文件
一个利用adsi得到局域网信息的asp文件
时间：2004/11/7 3:02:00来源：本站整理作者：蓝点我要评论(0)
-
<%@ Language=VBScript %>
ADSI Domain browser
<%
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
Response.Write objUser.Name & "
" & vbCrLf
Next
Response.Write "Back to " & sComputer & "
"
elseif len(trim(sGroup)) > 0 then
Set objGroup = GetObject("WinNT://" & sDomain & "/" & sComputer & "/" & sGroup)
For Each objUser In objGroup.Members
Response.Write objUser.Name & "
" & vbCrLf
Next
Response.Write "Back to " & sComputer & "
"
elseif len(trim(sComputer)) > 0 then
Set objComputer = GetObject("WinNT://" & sDomain & "/" & sComputer)
Response.Write ""
For Each objObject In objComputer
if strcomp(objObject.Class, "group", 1) = 0 then
Response.Write "| " & objObject.Class & " | " & objObject.Name & " |
" & vbCrLf
elseif strcomp(objObject.Class, "user", 1) = 0 then
Response.Write "| " & objObject.Class & " | " & objObject.Name & " |
" & vbCrLf
else
Response.Write "| " & objObject.Class & " | " & objObject.Name & " |
" & vbCrLf
end if
Next
Response.Write "
Back to " & sDomain & "
"
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 "" & objComputer.Name & "
"
end if
Next
Response.Write "Back to domain list
"
else
Set objWinNT = GetObject("WinNT:")
For Each objDomain In objWinNT
if strcomp(objDomain.Class, "domain", 1) = 0 then
Response.Write "" & objDomain.Name & "
"
end if
Next
end if
%>
相关阅读
Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么
-
热门文章
没有查询到任何记录。
最新文章
迅雷新手完全入门手册
asp下面javascript上传图片限制格式大小方法告诉大家网页弹出窗口应用总结ASP常见错误类型大全asp常见错误分析和解决办法
人气排行
总是弹出visual studio 实时调试器 三种解决SQLSERVER存储过程及调用详解Asp获取真实IP地址ASP中连接Mssql的几种方法一个简单好用的UBB编辑器(含代码)如何用Split将字符串转换为数组并获取数组下ASP防止表单重复提交的办法告诉你免费的简单聊天室源代码
查看所有0条评论>>