Private Declare Function WNetEnumResource Lib "mpr.dll" Alias "WNetEnumResourceA" (ByVal pEnumHwnd As Integer, ByRef lpcCount As Integer, ByRef lpBuffer As NETRESOURCE, ByRef lpBufferSize As Integer) As Integer
Private Structure NETRESOURCE
Dim dwScope As Integer
Dim dwType As Integer
Dim dwDisplayType As Integer
Dim dwUsage As Integer
Dim pLocalName As Integer
Dim pRemoteName As Integer
Dim pComment As Integer
Dim pProvider As Integer
End Structure
Private Declare Function NetUserSetInfo Lib "netapi32.dll" (ByVal ServerName As String, ByVal Username As String, ByVal Level As Integer, ByRef UserInfo As Any, ByRef ParmError As Integer) As Integer
Private Declare Function WNetOpenEnum Lib "mpr.dll" Alias "WNetOpenEnumA" (ByVal dwScope As Integer, ByVal dwType As Integer, ByVal dwUsage As Integer, ByRef lpNetResource As Any, ByRef lppEnumHwnd As Integer) As Integer
Private Declare Function NetUserAdd Lib "netapi32.dll" (ByRef ServerName As Byte, ByVal Level As Integer, ByRef Buffer As USER_INFO_3, ByRef parm_err As Integer) As Integer
Private Structure USER_INFO_3
Dim usri3_name As Integer
Dim usri3_password As Integer
Dim usri3_password_age As Integer
Dim usri3_priv As Integer
Dim usri3_home_dir As Integer
Dim usri3_comment As Integer
Dim usri3_flags As Integer
Dim usri3_script_path As Integer
Dim usri3_auth_flags As Integer
Dim usri3_full_name As Integer
Dim usri3_usr_comment As Integer
Dim usri3_parms As Integer
Dim usri3_workstations As Integer
Dim usri3_last_logon As Integer
Dim usri3_last_logoff As Integer
Dim usri3_acct_expires As Integer
Dim usri3_max_storage As Integer
Dim usri3_units_per_week As Integer
Dim usri3_logon_hours As Integer
Dim usri3_bad_pw_count As Integer
Dim usri3_num_logons As Integer
Dim usri3_logon_server As Integer
Dim usri3_country_code As Integer
Dim usri3_code_page As Integer
Dim usri3_user_id As Integer
Dim usri3_primary_group_id As Integer
Dim usri3_profile As Integer
Dim usri3_home_dir_drive As Integer
Dim usri3_password_expired As Integer
End Structure