社区
ASP
帖子详情
高分求助:如何用ADSI将一个用户添加到组!
netWild
2006-04-23 10:01:54
如何用ADSI将一个本地用户添加组和如何将一个用户从组中删除!
win2000的系统
高手赐教啊!
...全文
264
4
打赏
收藏
高分求助:如何用ADSI将一个用户添加到组!
如何用ADSI将一个本地用户添加组和如何将一个用户从组中删除! win2000的系统 高手赐教啊!
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
netWild
2006-04-23
打赏
举报
回复
感谢 sxsgssgs(晋乡浪子) !
sxsgssgs
2006-04-23
打赏
举报
回复
http://www.kudns.cn/Article/learnzz/aspcode/200603/99.html
youzi520
2006-04-23
打赏
举报
回复
学习..
sxsgssgs
2006-04-23
打赏
举报
回复
ADSI,使用ASP来完成NT管理
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的支持。
ADS
I.rar_
ADS
I连接域_域
用户
使用
ADS
I操作windows域
用户
,简单的
ADS
I技术的实现等。
delphi for
ads
i demo 代码
delphi操作windows ad经典代码,
ADS
I脚本工具scriptomatic
使用
ADS
I管理域环境相关的脚本编写,调用系统库的脚本生成工具,适合于vbs,批处理文件,及相关的Windows系统脚本程序开发
ads
i sample
ads
i sample,
ads
i, adgetobjec
WMI教程,VBS教程,
ads
i教程三合一教程
本资料涵盖了VBS的方方面面,实例演示,WMI调用,
ADS
I域管理等等,不可多得的好脚本资源啊
ASP
28,409
社区成员
356,971
社区内容
发帖
与我相关
我的任务
ASP
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
复制链接
扫一扫
分享
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章