ASP、VB、VBScript创建Windows用户


关键词

ASP、VB、VBScript创建Windows用户

摘要

本文介绍使用ASP、VB、VBScript创建Windows用户


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

本文介绍使用ASP、VB、VBScript创建Windows用户


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

 

要饭二维码

洪哥写文章很苦逼，如果本文对您略有帮助，可以扫描下方二维码支持洪哥！金额随意，先行谢过！大家的支持是我前进的动力！

文章的版权

本文属于“洪哥笔记”原创文章，转载请注明来源地址：ASP、VB、VBScript创建Windows用户：http://www.splaybow.com/post/asp-create-windows-user.html

如果您在服务器运维、网络管理、网站或系统开发过程有需要提供收费服务，请加QQ：8771947！十年运维经验，帮您省钱、让您放心！
亲，如果有需要，先存起来，方便以后再看啊！加入收藏夹的话，按Ctrl+D！

Tags: ASP  Windows  
发布时间：2013/4/29 22:18:07 | 编辑:洪哥 | 分类:ASP | 浏览:
« ASP、VB、VBScript设置站点解析脚本函数 ASP、VB、VBScript修改Windows用户信息 »

相关文章:

asp中的split函数  (2015/7/17 20:51:43)

生成csv时怎么确保身份证不会被当成数字  (2015/5/18 13:22:21)

ueditor在虚拟主机中不能上传图片的问题  (2014/12/10 16:03:22)

验证货币金额的正则表达式  (2014/11/26 16:39:52)

各种验证数字类的正则表达式  (2014/9/23 8:43:11)

ASP中Null，Empty，Nothing的区别  (2014/8/9 12:38:17)

ASP获取客户端IP地址  (2014/8/4 8:39:20)

ASP获取最新插入行的ID（标识）  (2014/7/18 8:44:05)

editplus另存为utf-8时不成功  (2014/7/13 9:09:46)

UTF-8编码的ASP页面报错信息是乱码  (2014/7/12 9:23:03)