分享
 
 
 

ADSI,使用ASP来完成NT管理

王朝asp·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

ADSI,使用ASP来完成NT管理

关键词:ASP

我上次说的是如何使用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)

oUser.AccountExpirationDate = dtExpirationDate

' Setting the Full Name of the User

oUser.FullName="Joe Doe"

oUser.SetInfo()

Set oUser=Nothing

%>

继承用户

<%

strDomain="MACHINENAME"

strGroup="Unidentified"

Set Group = GetObject("WinNT://" & strDomain & "/" & strGroup)

For Each Member in Group.Members

If (Member.Class="User") Then

' Here is where you would do

' something with the user

End If

Next

%>

当你是使用的NT5.0时,就不需要安装NTLM了,因为NT5.0提供对ADSI的支持。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有