- '=============================================================
- ' 感谢您使用ASPKU工作室开发的实用函数程序
- ' HTTP://WWW.ASPKU.NET
- '============================================================= 'ASPKU工作室为您提供订制程序开发、企业互联网拓展服务
- 'QQ:
- 'E-Mail:
- '更多程序下载请到HTTP://WWW.ASPKU.NET
- '=============================================================
- '函数介绍:通过ASP管理NT帐号
- '本函数使用ADSI,需要Administrators组用户权限
- '程序开发:ASPKU工作室 ChuQi
- '=============================================================
- '填加用户
- '函数用法:AddUser(Computer,UserName,PassWord,FullName,Info)
- '参数:计算机名,帐号名称,帐号密码,帐号全名,帐号说明
- '例:AddUser "127.0.0.1","Test","Test","测试管理员帐号","本帐号通过ASP填加"
- '修改指定用户基本信息
- '函数用法:EditUser(Computer,UserName,OldPassWord,PassWord,FullName,Info)
- '参数:计算机名,帐号名称,帐号密码,帐号全名,帐号说明
- '例:EditUser "127.0.0.1","Test","Test2","测试管理员帐号修改","本帐号通过ASP修改过"
- '删除指定用户
- '函数用法:DelUser(Computer,UserName)
- '参数:计算机名,用户名'
- '例:DelUser "127.0.0.1","Test"
- =============================================================
- Function AddUser(Computer,UserName,PassWord,FullName,Info)
- '执行创建帐号命令
- Set ComputerObj = GetObject("WinNT://"&Computer)
- Set NewUser = ComputerObj.Create( "User" , UserName )
- NewUser.SetInfo
- '进行帐号设置
- NewUser.SetPassword ( PassWord ) '帐号密码
- NewUser.FullName = FullName '帐号全名
- NewUser.Description = Info '帐号说明
- NewUser.UserFlags = &H10000 '&H20000(使用者下次登入时须变更密码) &H0040(使用者不得变更密码) &H10000(密码永久正确) &H0002(帐户暂时停用)
- NewUser.SetInfo
- response.write "帐号"&UserName&"创建成功!"
- Set ComputerObj=nothing
- End Function
- Function EditUser(Computer,UserName,OldPassWord,PassWord,FullName,Info)
- '读取用户信息
- Set ChangeUserObj = GetObject("WinNT://"&Computer&"/"&UserName&",User")
- '修改帐号密码
- if PassWord<>"" then
- ChangeUserObj.SetPassword PassWord
- response.write "帐号密码修改成功!<br>"
- end if
- '修改帐号全名
- if FullName<>"" then
- UserFullName = ChangeUserObj.get("FullName")
- ChangeUserObj.FullName = FullName
- ChangeUserObj.SetInfo
- response.write "帐号全名修改成功!<br>"
- end if
- '修改帐号说明
- if Info<>"" then
- UserFullName = ChangeUserObj.get("Description")
- ChangeUserObj.Description = Info
- ChangeUserObj.SetInfo
- response.write "帐号说明修改成功!<br>"
- end if
- Set ChangeUserObj=nothing
- End Function
- Function DelUser(Computer,UserName)
- Set DelUserObj = GetObject("WinNT://"&Computer&"/"&UserName)
- If Err = &H800401E4 Then
- Response.Write "用户"&UserName&"不存在"
- Response.End
- End If
- Set DelObj = GetObject(DelUserObj.Parent)
- DelObj.Delete "User", DelUserObj.Name
- Set DelUserObj = Nothing
- Set DelObj = Nothing
- Response.Write "删除成功"
- End Function
如何通过ASP管理NT帐号
2019-10-26 12:13asp技术网 ASP教程
如何通过ASP管理NT帐号
延伸 · 阅读
- 2019-10-26使用ASP列出NT用户组及用户
- 2019-10-26ASP高级技巧精选集
- 2019-10-26ASP调用存储过程的技巧
- 2019-10-26使用ASP获得服务器网卡的MAC地址信息
- 2019-10-26ASP提速技巧
- 2019-10-26ASP网页模板的应用: 让程序和界面分离,让ASP脚本
精彩推荐
- ASP教程
ASP页面随机添加字符实现防复制的代码
ASP页面随机添加字符实现防复制的代码...
- ASP教程
ASP开发准则是什么
应用程序服务器被,或最终将被 Web 服务器所使用,它通常是运行 ASP 页面的 IIS 计算机。ASP 是您的对象的唯一客户机。它带来了专门的线程和安全考虑。本...
- ASP教程
实例讲解实现抓取网上房产信息的ASP程序
实例讲解实现抓取网上房产信息的ASP程序 ...
- ASP教程
asp下去除超链接的函数
有时候我们需要去除网页中的超链接,那么就可以使用下面的代码了 ...
- ASP教程
P3P 和 跨域 (cross-domain) cookie 访问(读取和设置)
在IE 里面跨域去设置 cookie跨域的实现,尝试了n中方法都不行,查了一下资料,可以通过设置header中的p3p值来实现,真不错:)...
- ASP教程
Ajax+asp应用实例 注册模块,表单提交
Ajax+asp应用实例 注册模块,表单提交...
- ASP教程
asp 采集实战代码
最近实在是太流行采集了,本人是不喜欢采集的,但对采集的原理我却很有兴趣进行研究,拿到了网上采集常用函数,对其进行了一番研究,并实战,结果...
- ASP教程
asp 动态生成rss(不成生xml文件)代码
为你的网站添加rss阅读功能 把以下文件保存为 rss.asp 放在网站的根目录下 修改里面的几个参数就可以 ...