如何取得服務(wù)器上的用戶組列表？
domainname.asp
<form method="POST">
請輸入域名:<input type="text" name="DomainName" size="20">
<input type="submit" value="提交" name="B1">
<input type="reset" value="重寫" name="B2">
</form>
<%
if isempty(request("domainname")) or trim(request("domainname"))="" then
response.end
end if
DomainString =request("domainname")
on error resume next
Set DomainObj = GetObject("WinNT://" & DomainString)
tmp= DomainObj.MinPasswordLength
' 校驗有效域.
if err<>0 then
response.write "<Font Color=Red>噢,連接域"&domainstring&"出錯!</Font><br>"
response.end
end if
%>
<Table border=1 cellpadding=4 width=90% bgcolor=ffffcc>
<tr Align=Center>
<td valign=top><B><Font Size=5 Color=Blue>域<%=DomainString%>內(nèi)的所有組的列表</B></Font>
</td>
</tr>
</table>
<Table border=0 cellpadding=5><tr><td><B><Font Size=3>組名</Font></B></td><td><B><Font Size=3>描述</Font></B></td></tr>
<%
DomainObj.Filter = Array("group")
For Each GroupObj In DomainObj
If GroupObj.Class = "Group" Then
strInfo=strInfo&"<tr><td><B><Font Size=3>"&GroupObj.Name&"</Font>
</B></td><td><B><Font Size=3>"&GroupObj.Description&"</Font>
</B></td></tr>"
End If
Next
set DomainObj = Nothing
set GroupObj = Nothing
strInfo=strInfo & "</Table>"
response.write strInfo & "<br>"
response.write "<font size=3><I>" & Now & "</I></Font>"
%>
[1]
相關(guān)文章
如何用攔截表單的方法上傳圖片？...2006-11-11
如何實現(xiàn)文件上傳并自動歸類功能？...2006-11-11
如何對一個文件夾進(jìn)行創(chuàng)建和刪除？...2006-11-11
如何對文件進(jìn)行操作？...2006-11-11
如何做一個只搜索本網(wǎng)站的引擎？...2006-11-11
如何讓用戶再次訪問我的網(wǎng)站時不需再提交相關(guān)信息？
如何讓用戶再次訪問我的網(wǎng)站時不需再提交相關(guān)信息？...2006-11-11
不用Global.asa也能實現(xiàn)統(tǒng)計在線人數(shù)嗎？
不用Global.asa也能實現(xiàn)統(tǒng)計在線人數(shù)嗎？...2006-11-11
如何防止計數(shù)器刷新計數(shù)？...2006-11-11
如何動態(tài)添加Form項？...2006-11-11
怎樣使用Cookie跟蹤來訪者？...2006-11-11