vb.net 建立系统本地帐号

最新推荐文章于 2022-07-13 09:59:48 发布

weixin_33964094

最新推荐文章于 2022-07-13 09:59:48 发布

阅读量118

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/tltgg/archive/2008/11/03/1325165.html

本文介绍了一个用于创建网站管理用户的程序片段。该程序使用Visual Basic语言实现，通过DirectoryEntry类操作本地Windows用户账户，包括创建新用户、设置密码及权限等，并将用户添加到指定组中。

做个网站管理的软件，首先是建立独立的帐号

   Public Shared Sub Create(ByVal user As String,Byval password as String)

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

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

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

        newUser.CommitChanges()

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

        newUser.Close()
        localMachine.Close()

    End Sub

转载于:https://www.cnblogs.com/tltgg/archive/2008/11/03/1325165.html