vb.net 建立系统本地帐号

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

 

 

   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