主页 > 知识库 > 如何取得服务器上的用户组列表?

如何取得服务器上的用户组列表?

热门标签:银行业务 美图手机 智能手机 铁路电话系统 呼叫中心市场需求 网站文章发布 服务器配置 检查注册表项

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%>内的所有组的列表/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]

标签:河南 新疆 红河 乐山 长治 沧州 上海 沈阳

巨人网络通讯声明:本文标题《如何取得服务器上的用户组列表?》,本文关键词  ;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 收缩
    • 微信客服
    • 微信二维码
    • 电话咨询

    • 400-1100-266