| 网站首页 | VB.Net实例分析 | .Net技术文摘 | 下载中心 | VB.Net书籍笔记 | .Net源码 | VBS脚本与组件调用 | Windows2008技术文摘 | 给我们留言 | 
最新公告:

  没有公告

您现在的位置: 乐博网 >> VB.Net实例分析 >> 系统管理编程 >> 实例分析正文
最新推荐 更多内容
VB.Net管理系统帐号的实例
VB.Net管理系统帐号的实例
作者:Ilu    来源:乐博网整理     更新时间:2009-10-11

VB.Net管理系统帐号的实例 

乐博网lob.cn提示:调试环境为 vs2005 +  windows2003 / windows2008 / xp / vista

 Public Shared Sub Lob_AddUser(ByVal MyUser As String,Byval MyPassword as String)

        
Dim LocalMachine As New DirectoryEntry("WinNT://" & Environment.MachineName)

        
Dim newUser = localMachine.Children.Add(MyUser)    '增加用户名
        'Dim newUser = localMachine.Children.Find(MyUser)    '查找用户,修改时用
        'LocalMachine.Children.Remove(MyUser)       '删除用户

        newUser.Properties(
"FullName").Add(MyUser)                                            '用户全称
        newUser.Invoke("SetPassword", MyPassword)                                  '用户密码
        newUser.Invoke("Put""Description", Add(MyUser)          '用户详细描述
        newUser.Invoke("Put""PasswordExpired"0)                                             '用户下次登录不需更改密码
        newUser.Invoke("Put""UserFlags"66113)                                               '密码永不过期
         '设置标记位,&H40  Nochange   &H10000 Noexpire

        newUser.CommitChanges()

        
Dim grp As DirectoryEntry = localMachine.Children.Find("Users""Group")               'Group组
        grp.Invoke("Add", newUser.Path.ToString()) '将用户添加到Users组

        newUser.Close()
        LocalMachine.Close()

    
End Sub

  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    没有相关实例分析

    | 设为首页 | 加入收藏 | 联系站长 | | 友情链接 | 版权申明 |
    乐博网欢迎各种媒体转载我们的原创作品[转载请注明出处];我们鼓励更多VB.Net开发者一起加入研究与探讨;如发现文章访问错误、内容错误或版权疑问、内容有违相关法律(如涉及政治、色情、反动或散布虚假有害信息)等情况,请及时向我们举报,我们将及时纠正!
    联系邮箱:Shiny#vip.qq.com (#替换为@) QQ交流群: 40797788 [闽ICP备05014267号]