用VB写的一个组件，实现添加系统用户，并添加到指定组

    
声明部分
Option Explicit
Const NERR_Success = 0
Const ERROR_MORE_DATA = 234&
Const MAX_PREFERRED_LENGTH = -1&
Const LG_INCLUDE_INDIRECT = &H1
Const User_Priv_User = &H1
Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
Const NERR_BASE = 2100
Const MAX_NERR = NERR_BASE + 899
Const LOAD_LIBRARY_AS_DATAFILE = &H2
Const FORMAT_MESSAGE_FROM_HMODULE = &H800
Type TUser1          ’ Level 1
    ptrName As Long
    ptrPassword As Long
    dwPasswordAge As Long
    dwPriv As Long
    ptrHomeDir As Long
    ptrComment As Long
    dwFlags As Long
    ptrScriptPath As Long
End Type
Type USER_INFO_0
    usri0_name As Long
End Type
Type LOCALGROUP_INFO_0
    lgrpi0_name As Long
End Type
Type LOCALGROUP_USER_INFO_0
    lgrui0_name As Long
End Type
Type UserInfo_1
    Username As String