我的一亩三分地 我就喜欢!
13fen  设为主页
 收藏本站
 
当前位置: > 一亩三分地：首页 > 网络学院 > 网络编程 > ASP专区 > Asp客户端/系统 > 以前收集到的一些资料---ADSI，使用ASP来完成NT管理
热门文章排行
热门文章排行 手推车”功能的实现(10-07)
八大法则防范ASP网站漏洞(10-23)
ASP教程十一、调试ASP脚本(10-23)
在JSP中访问数据库大全(10-23)
虚机服务中常见Asp.Net低级错误一览(03-21)
精采文章排行
精采文章排行 ASP.NET实现抓取网页中的链接(11-15)
ASP连接数据库的11种方法(11-10)
如何动态创建网页的RSS内容摘要(11-10)
ASP网站漏洞及入侵防范方法(11-10)
ASP自定义函数：对字符串正则替换(11-10)
技术专题推荐
网管论坛交流
　

以前收集到的一些资料---ADSI，使用ASP来完成NT管理 

作者:佚名   来源:一亩三分地   点击:   日期:2007-03-23
我上次说的是如何使用ADSI管理web server这次讨论ADSI如何对NT进行管理
使用ADSI对IIS进行管理需要OP4
而对NT要进行ADSI管理则需要NTLM
NTLM提供以下几个对象： Domain, Group, and User.
通过domain对象你可以增加groups和users.
警告：
    以下的例子都将改变NT访问权限数据库；任意增加和改变NT用户的权限
使用前请仔细阅读，请只在测试的机器上运行这些程序，只到你掌握了NTLM
的工作原理为止。千万不要危害到真正主机的安全。
    只有拥有Administrator或则Operator权限的人才能够在运行IIS机器上
更改NT的用户数据库。所以，使用Anonymous权限登录是没有权限的。
当然如果使用SSL的话也能够保证安全性。
例子如下：
新建一个用户：
可以在一个独立的服务器上，也可以在一个主域服务器上新增用户
<%

                            On Error Resume Next

                            strDomain="MACHINENAME"
                            strUser="jdoe"

                            Set oDomain = GetObject("WinNT://" & strDomain)

                            Set oUser = oDomain.Create ("user", strUser)

                            If (err.number = 0) Then
                            oUser.SetInfo
                            oUser.SetPassword "mypassword"
                            oUser.SetInfo
                            Set oUser=Nothing
                            End If

                            Set oDomain=Nothing
%>

新增加一个组：
<%

                            strDomain="MACHINENAME"
                            strGroup="Unidentified"

                            Set oDomain = GetObject("WinNT://" & strDomain)

                            Set oGroup = oDomain.Create ("group", strGroup)

                            oGroup.SetInfo

                            Set oDomain=Nothing
                            Set oGroup=Nothing
%>

把一个用户增加到一个组中.
<%
                            strDomain="MACHINENAME"
                            strUser="jdoe"
                            strGroup="Unidentified"

                            Set oDomain = GetObject("WinNT://" & strDomain)
                            Set oGroup = oDomain.GetObject("Group", strGroup)

                            oGroup.Add ("WinNT://" & strDomain & "/" & strUser)

                            Set oDomain=Nothing
                            Set oGroup=Nothing
%>
配置用户信息
<%

                            strDomain="MACHINENAME"
                            strUser="jdoe"

                            Set oUser = GetObject("WinNT://" & strDomain & "/" & strUser)

                            ' Setting the Account Expiration to 30 days from today

                            dtExpirationDate=Now()
                            dtExpirationDate=DateAdd("d",30,dtExpirationDate)

                         

【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【论坛讨论】

   相关文章:
·ASP中巧用Response属性 ·第六课:ASP脚本循环语句
·在 Web 页上使用条件数值格式 ·连接数据库查询手册（不仅仅适用于asp）
·警惕"给你的FileSystemObject对象加把锁" ·用ASP做全文检索

   文章评论:(条)
  
 请留名： 匿名评论   点击查看所有评论 网管论坛
 

  责任编辑:一分  声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。