开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
JwaLmAccess.pas
资源名称：win32api.zip　[点击查看]
上传用户：davidchvip
上传日期：2009-07-28
资源大小：1749k
文件大小：92k
源码类别：

Windows编程

开发平台：

Delphi

JwaLmAccess.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Lan Manager Access API interface Unit for Object Pascal                      }
  4. {                                                                       }
  5. { Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft          }
  6. { Corporation. All Rights Reserved.                                            }
  7. {                 }
  8. { The original file is: lmaccess.h, released November 2001. The original Pascal}
  9. { code is: LmAccess.pas, released Februari 2002. The initial developer of the  }
  10. { Pascal code is Marcel van Brakel (brakelm@chello.nl).                        }
  11. {                                                                              }
  12. { Portions created by Marcel van Brakel are Copyright (C) 1999-2001            }
  13. { Marcel van Brakel. All Rights Reserved.                                      }
  14. {                 }
  15. { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
  16. {                }
  17. { You may retrieve the latest version of this file at the Project JEDI home    }
  18. { page, located at http://delphi-jedi.org or my personal homepage located at   }
  19. { http://members.chello.nl/m.vanbrakel2                                        }
  20. {                }
  21. { The contents of this file are used with permission, subject to the Mozilla   }
  22. { Public License Version 1.1 (the "License"); you may not use this file except }
  23. { in compliance with the License. You may obtain a copy of the License at      }
  24. { http://www.mozilla.org/MPL/MPL-1.1.html                                      }
  25. {                                                                              }
  26. { Software distributed under the License is distributed on an "AS IS" basis,   }
  27. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  28. { the specific language governing rights and limitations under the License.    }
  29. {                                                                              }
  30. { Alternatively, the contents of this file may be used under the terms of the  }
  31. { GNU Lesser General Public License (the  "LGPL License"), in which case the   }
  32. { provisions of the LGPL License are applicable instead of those above.        }
  33. { If you wish to allow use of your version of this file only under the terms   }
  34. { of the LGPL License and not to allow others to use your version of this file }
  35. { under the MPL, indicate your decision by deleting  the provisions above and  }
  36. { replace  them with the notice and other provisions required by the LGPL      }
  37. { License.  If you do not delete the provisions above, a recipient may use     }
  38. { your version of this file under either the MPL or the LGPL License.          }
  39. {                 }
  40. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  41. {                 }
  42. {******************************************************************************}
  44. unit JwaLmAccess;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "lmaccess.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57.   JwaWinNT, JwaWinType, JwaLmCons;
  59. //
  60. // Function Prototypes - User
  61. //
  63. function NetUserAdd(servername: LPCWSTR; level: DWORD; buf: LPBYTE; parm_err: LPDWORD): NET_API_STATUS; stdcall;
  64. {$EXTERNALSYM NetUserAdd}
  66. function NetUserEnum(servername: LPCWSTR; level, filter: DWORD; var bufptr: LPBYTE; prefmaxlen: DWORD; entriesread, totalentries, resume_handle: LPDWORD): NET_API_STATUS; stdcall;
  67. {$EXTERNALSYM NetUserEnum}
  69. function NetUserGetInfo(servername, username: LPCWSTR; level: DWORD; bufptr: LPBYTE): NET_API_STATUS; stdcall;
  70. {$EXTERNALSYM NetUserGetInfo}
  72. function NetUserSetInfo(servername, username: LPCWSTR; level: DWORD; buf: LPBYTE; parm_err: LPDWORD): NET_API_STATUS; stdcall;
  73. {$EXTERNALSYM NetUserSetInfo}
  75. function NetUserDel(servername: LPCWSTR; username: LPCWSTR): NET_API_STATUS; stdcall;
  76. {$EXTERNALSYM NetUserDel}
  78. function NetUserGetGroups(servername, username: LPCWSTR; level: DWORD; var bufptr: LPBYTE; prefmaxlen: DWORD; entriesread, totalentries: LPDWORD): NET_API_STATUS; stdcall;
  79. {$EXTERNALSYM NetUserGetGroups}
  81. function NetUserSetGroups(servername, username: LPCWSTR; level: DWORD; buf: LPBYTE; num_entries: DWORD): NET_API_STATUS; stdcall;
  82. {$EXTERNALSYM NetUserSetGroups}
  84. function NetUserGetLocalGroups(servername, username: LPCWSTR; level, flags: DWORD; var bufptr: LPBYTE; prefmaxlen: DWORD; entriesread, totalentries: LPDWORD): NET_API_STATUS; stdcall;
  85. {$EXTERNALSYM NetUserGetLocalGroups}
  87. function NetUserModalsGet(servername: LPCWSTR; level: DWORD; var bufptr: LPBYTE): NET_API_STATUS; stdcall;
  88. {$EXTERNALSYM NetUserModalsGet}
  90. function NetUserModalsSet(servername: LPCWSTR; level: DWORD; buf: LPBYTE; parm_err: LPDWORD): NET_API_STATUS; stdcall;
  91. {$EXTERNALSYM NetUserModalsSet}
  93. function NetUserChangePassword(domainname, username, oldpassword, newpassword: LPCWSTR): NET_API_STATUS; stdcall;
  94. {$EXTERNALSYM NetUserChangePassword}
  96. //
  97. //  Data Structures - User
  98. //
  100. type
  101.   LPUSER_INFO_0 = ^USER_INFO_0;
  102.   {$EXTERNALSYM LPUSER_INFO_0}
  103.   PUSER_INFO_0 = ^USER_INFO_0;
  104.   {$EXTERNALSYM PUSER_INFO_0}
  105.   _USER_INFO_0 = record
  106.     usri0_name: LPWSTR;
  107.   end;
  108.   {$EXTERNALSYM _USER_INFO_0}
  109.   USER_INFO_0 = _USER_INFO_0;
  110.   {$EXTERNALSYM USER_INFO_0}
  111.   TUserInfo0 = USER_INFO_0;
  112.   PUserInfo0 = PUSER_INFO_0;
  114.   LPUSER_INFO_1 = ^USER_INFO_1;
  115.   {$EXTERNALSYM LPUSER_INFO_1}
  116.   PUSER_INFO_1 = ^USER_INFO_1;
  117.   {$EXTERNALSYM PUSER_INFO_1}
  118.   _USER_INFO_1 = record
  119.     usri1_name: LPWSTR;
  120.     usri1_password: LPWSTR;
  121.     usri1_password_age: DWORD;
  122.     usri1_priv: DWORD;
  123.     usri1_home_dir: LPWSTR;
  124.     usri1_comment: LPWSTR;
  125.     usri1_flags: DWORD;
  126.     usri1_script_path: LPWSTR;
  127.   end;
  128.   {$EXTERNALSYM _USER_INFO_1}
  129.   USER_INFO_1 = _USER_INFO_1;
  130.   {$EXTERNALSYM USER_INFO_1}
  131.   TUserInfo1 = USER_INFO_1;
  132.   PUserInfo1 = PUSER_INFO_1;
  134.   LPUSER_INFO_2 = ^USER_INFO_2;
  135.   {$EXTERNALSYM LPUSER_INFO_2}
  136.   PUSER_INFO_2 = ^USER_INFO_2;
  137.   {$EXTERNALSYM PUSER_INFO_2}
  138.   _USER_INFO_2 = record
  139.     usri2_name: LPWSTR;
  140.     usri2_password: LPWSTR;
  141.     usri2_password_age: DWORD;
  142.     usri2_priv: DWORD;
  143.     usri2_home_dir: LPWSTR;
  144.     usri2_comment: LPWSTR;
  145.     usri2_flags: DWORD;
  146.     usri2_script_path: LPWSTR;
  147.     usri2_auth_flags: DWORD;
  148.     usri2_full_name: LPWSTR;
  149.     usri2_usr_comment: LPWSTR;
  150.     usri2_parms: LPWSTR;
  151.     usri2_workstations: LPWSTR;
  152.     usri2_last_logon: DWORD;
  153.     usri2_last_logoff: DWORD;
  154.     usri2_acct_expires: DWORD;
  155.     usri2_max_storage: DWORD;
  156.     usri2_units_per_week: DWORD;
  157.     usri2_logon_hours: PBYTE;
  158.     usri2_bad_pw_count: DWORD;
  159.     usri2_num_logons: DWORD;
  160.     usri2_logon_server: LPWSTR;
  161.     usri2_country_code: DWORD;
  162.     usri2_code_page: DWORD;
  163.   end;
  164.   {$EXTERNALSYM _USER_INFO_2}
  165.   USER_INFO_2 = _USER_INFO_2;
  166.   {$EXTERNALSYM USER_INFO_2}
  167.   TUserInfo2 = USER_INFO_2;
  168.   PUserInfo2 = PUSER_INFO_2;
  170.   LPUSER_INFO_3 = ^USER_INFO_3;
  171.   {$EXTERNALSYM LPUSER_INFO_3}
  172.   PUSER_INFO_3 = ^USER_INFO_3;
  173.   {$EXTERNALSYM PUSER_INFO_3}
  174.   _USER_INFO_3 = record
  175.     usri3_name: LPWSTR;
  176.     usri3_password: LPWSTR;
  177.     usri3_password_age: DWORD;
  178.     usri3_priv: DWORD;
  179.     usri3_home_dir: LPWSTR;
  180.     usri3_comment: LPWSTR;
  181.     usri3_flags: DWORD;
  182.     usri3_script_path: LPWSTR;
  183.     usri3_auth_flags: DWORD;
  184.     usri3_full_name: LPWSTR;
  185.     usri3_usr_comment: LPWSTR;
  186.     usri3_parms: LPWSTR;
  187.     usri3_workstations: LPWSTR;
  188.     usri3_last_logon: DWORD;
  189.     usri3_last_logoff: DWORD;
  190.     usri3_acct_expires: DWORD;
  191.     usri3_max_storage: DWORD;
  192.     usri3_units_per_week: DWORD;
  193.     usri3_logon_hours: PBYTE;
  194.     usri3_bad_pw_count: DWORD;
  195.     usri3_num_logons: DWORD;
  196.     usri3_logon_server: LPWSTR;
  197.     usri3_country_code: DWORD;
  198.     usri3_code_page: DWORD;
  199.     usri3_user_id: DWORD;
  200.     usri3_primary_group_id: DWORD;
  201.     usri3_profile: LPWSTR;
  202.     usri3_home_dir_drive: LPWSTR;
  203.     usri3_password_expired: DWORD;
  204.   end;
  205.   {$EXTERNALSYM _USER_INFO_3}
  206.   USER_INFO_3 = _USER_INFO_3;
  207.   {$EXTERNALSYM USER_INFO_3}
  208.   TUserInfo3 = USER_INFO_3;
  209.   PUserInfo3 = PUSER_INFO_3;
  211.   LPUSER_INFO_4 = ^USER_INFO_4;
  212.   {$EXTERNALSYM LPUSER_INFO_4}
  213.   PUSER_INFO_4 = ^USER_INFO_4;
  214.   {$EXTERNALSYM PUSER_INFO_4}
  215.   _USER_INFO_4 = record
  216.     usri4_name: LPWSTR;
  217.     usri4_password: LPWSTR;
  218.     usri4_password_age: DWORD;
  219.     usri4_priv: DWORD;
  220.     usri4_home_dir: LPWSTR;
  221.     usri4_comment: LPWSTR;
  222.     usri4_flags: DWORD;
  223.     usri4_script_path: LPWSTR;
  224.     usri4_auth_flags: DWORD;
  225.     usri4_full_name: LPWSTR;
  226.     usri4_usr_comment: LPWSTR;
  227.     usri4_parms: LPWSTR;
  228.     usri4_workstations: LPWSTR;
  229.     usri4_last_logon: DWORD;
  230.     usri4_last_logoff: DWORD;
  231.     usri4_acct_expires: DWORD;
  232.     usri4_max_storage: DWORD;
  233.     usri4_units_per_week: DWORD;
  234.     usri4_logon_hours: PBYTE;
  235.     usri4_bad_pw_count: DWORD;
  236.     usri4_num_logons: DWORD;
  237.     usri4_logon_server: LPWSTR;
  238.     usri4_country_code: DWORD;
  239.     usri4_code_page: DWORD;
  240.     usri4_user_sid: PSID;
  241.     usri4_primary_group_id: DWORD;
  242.     usri4_profile: LPWSTR;
  243.     usri4_home_dir_drive: LPWSTR;
  244.     usri4_password_expired: DWORD;
  245.   end;
  246.   {$EXTERNALSYM _USER_INFO_4}
  247.   USER_INFO_4 = _USER_INFO_4;
  248.   {$EXTERNALSYM USER_INFO_4}
  249.   TUserInfo4 = USER_INFO_4;
  250.   PUserInfo4 = PUSER_INFO_4;
  252.   LPUSER_INFO_10 = ^USER_INFO_10;
  253.   {$EXTERNALSYM LPUSER_INFO_10}
  254.   PUSER_INFO_10 = ^USER_INFO_10;
  255.   {$EXTERNALSYM PUSER_INFO_10}
  256.   _USER_INFO_10 = record
  257.     usri10_name: LPWSTR;
  258.     usri10_comment: LPWSTR;
  259.     usri10_usr_comment: LPWSTR;
  260.     usri10_full_name: LPWSTR;
  261.   end;
  262.   {$EXTERNALSYM _USER_INFO_10}
  263.   USER_INFO_10 = _USER_INFO_10;
  264.   {$EXTERNALSYM USER_INFO_10}
  265.   TUserInfo10 = USER_INFO_10;
  266.   PUserInfo10 = PUSER_INFO_10;
  268.   LPUSER_INFO_11 = ^USER_INFO_11;
  269.   {$EXTERNALSYM LPUSER_INFO_11}
  270.   PUSER_INFO_11 = ^USER_INFO_11;
  271.   {$EXTERNALSYM PUSER_INFO_11}
  272.   _USER_INFO_11 = record
  273.     usri11_name: LPWSTR;
  274.     usri11_comment: LPWSTR;
  275.     usri11_usr_comment: LPWSTR;
  276.     usri11_full_name: LPWSTR;
  277.     usri11_priv: DWORD;
  278.     usri11_auth_flags: DWORD;
  279.     usri11_password_age: DWORD;
  280.     usri11_home_dir: LPWSTR;
  281.     usri11_parms: LPWSTR;
  282.     usri11_last_logon: DWORD;
  283.     usri11_last_logoff: DWORD;
  284.     usri11_bad_pw_count: DWORD;
  285.     usri11_num_logons: DWORD;
  286.     usri11_logon_server: LPWSTR;
  287.     usri11_country_code: DWORD;
  288.     usri11_workstations: LPWSTR;
  289.     usri11_max_storage: DWORD;
  290.     usri11_units_per_week: DWORD;
  291.     usri11_logon_hours: PBYTE;
  292.     usri11_code_page: DWORD;
  293.   end;
  294.   {$EXTERNALSYM _USER_INFO_11}
  295.   USER_INFO_11 = _USER_INFO_11;
  296.   {$EXTERNALSYM USER_INFO_11}
  297.   TUserInfo11 = USER_INFO_11;
  298.   PUserInfo11 = PUSER_INFO_11;
  300.   LPUSER_INFO_20 = ^USER_INFO_20;
  301.   {$EXTERNALSYM LPUSER_INFO_20}
  302.   PUSER_INFO_20 = ^USER_INFO_20;
  303.   {$EXTERNALSYM PUSER_INFO_20}
  304.   _USER_INFO_20 = record
  305.     usri20_name: LPWSTR;
  306.     usri20_full_name: LPWSTR;
  307.     usri20_comment: LPWSTR;
  308.     usri20_flags: DWORD;
  309.     usri20_user_id: DWORD;
  310.   end;
  311.   {$EXTERNALSYM _USER_INFO_20}
  312.   USER_INFO_20 = _USER_INFO_20;
  313.   {$EXTERNALSYM USER_INFO_20}
  314.   TUserInfo20 = USER_INFO_20;
  315.   PUserInfo20 = PUSER_INFO_20;
  317.   LPUSER_INFO_21 = ^USER_INFO_21;
  318.   {$EXTERNALSYM LPUSER_INFO_21}
  319.   PUSER_INFO_21 = ^USER_INFO_21;
  320.   {$EXTERNALSYM PUSER_INFO_21}
  321.   _USER_INFO_21 = record
  322.     usri21_password: array [0..ENCRYPTED_PWLEN - 1] of BYTE;
  323.   end;
  324.   {$EXTERNALSYM _USER_INFO_21}
  325.   USER_INFO_21 = _USER_INFO_21;
  326.   {$EXTERNALSYM USER_INFO_21}
  327.   TUserInfo21 = USER_INFO_21;
  328.   PUserInfo21 = PUSER_INFO_21;
  330.   LPUSER_INFO_22 = ^USER_INFO_22;
  331.   {$EXTERNALSYM LPUSER_INFO_22}
  332.   PUSER_INFO_22 = ^USER_INFO_22;
  333.   {$EXTERNALSYM PUSER_INFO_22}
  334.   _USER_INFO_22 = record
  335.     usri22_name: LPWSTR;
  336.     usri22_password: array [0..ENCRYPTED_PWLEN - 1] of BYTE;
  337.     usri22_password_age: DWORD;
  338.     usri22_priv: DWORD;
  339.     usri22_home_dir: LPWSTR;
  340.     usri22_comment: LPWSTR;
  341.     usri22_flags: DWORD;
  342.     usri22_script_path: LPWSTR;
  343.     usri22_auth_flags: DWORD;
  344.     usri22_full_name: LPWSTR;
  345.     usri22_usr_comment: LPWSTR;
  346.     usri22_parms: LPWSTR;
  347.     usri22_workstations: LPWSTR;
  348.     usri22_last_logon: DWORD;
  349.     usri22_last_logoff: DWORD;
  350.     usri22_acct_expires: DWORD;
  351.     usri22_max_storage: DWORD;
  352.     usri22_units_per_week: DWORD;
  353.     usri22_logon_hours: PBYTE;
  354.     usri22_bad_pw_count: DWORD;
  355.     usri22_num_logons: DWORD;
  356.     usri22_logon_server: LPWSTR;
  357.     usri22_country_code: DWORD;
  358.     usri22_code_page: DWORD;
  359.   end;
  360.   {$EXTERNALSYM _USER_INFO_22}
  361.   USER_INFO_22 = _USER_INFO_22;
  362.   {$EXTERNALSYM USER_INFO_22}
  363.   TUserInfo22 = USER_INFO_22;
  364.   PUserInfo22 = PUSER_INFO_22;
  366.   LPUSER_INFO_23 = ^USER_INFO_23;
  367.   {$EXTERNALSYM LPUSER_INFO_23}
  368.   PUSER_INFO_23 = ^USER_INFO_23;
  369.   {$EXTERNALSYM PUSER_INFO_23}
  370.   _USER_INFO_23 = record
  371.     usri23_name: LPWSTR;
  372.     usri23_full_name: LPWSTR;
  373.     usri23_comment: LPWSTR;
  374.     usri23_flags: DWORD;
  375.     usri23_user_sid: PSID;
  376.   end;
  377.   {$EXTERNALSYM _USER_INFO_23}
  378.   USER_INFO_23 = _USER_INFO_23;
  379.   {$EXTERNALSYM USER_INFO_23}
  380.   TUserInfo23 = USER_INFO_23;
  381.   PUserInfo23 = PUSER_INFO_23;
  383.   LPUSER_INFO_1003 = ^USER_INFO_1003;
  384.   {$EXTERNALSYM LPUSER_INFO_1003}
  385.   PUSER_INFO_1003 = ^USER_INFO_1003;
  386.   {$EXTERNALSYM PUSER_INFO_1003}
  387.   _USER_INFO_1003 = record
  388.     usri1003_password: LPWSTR;
  389.   end;
  390.   {$EXTERNALSYM _USER_INFO_1003}
  391.   USER_INFO_1003 = _USER_INFO_1003;
  392.   {$EXTERNALSYM USER_INFO_1003}
  393.   TUserInfo1003 = USER_INFO_1003;
  394.   PUserInfo1003 = PUSER_INFO_1003;
  396.   LPUSER_INFO_1005 = ^USER_INFO_1005;
  397.   {$EXTERNALSYM LPUSER_INFO_1005}
  398.   PUSER_INFO_1005 = ^USER_INFO_1005;
  399.   {$EXTERNALSYM PUSER_INFO_1005}
  400.   _USER_INFO_1005 = record
  401.     usri1005_priv: DWORD;
  402.   end;
  403.   {$EXTERNALSYM _USER_INFO_1005}
  404.   USER_INFO_1005 = _USER_INFO_1005;
  405.   {$EXTERNALSYM USER_INFO_1005}
  406.   TUserInfo1005 = USER_INFO_1005;
  407.   PUserInfo1005 = PUSER_INFO_1005;
  409.   LPUSER_INFO_1006 = ^USER_INFO_1006;
  410.   {$EXTERNALSYM LPUSER_INFO_1006}
  411.   PUSER_INFO_1006 = ^USER_INFO_1006;
  412.   {$EXTERNALSYM PUSER_INFO_1006}
  413.   _USER_INFO_1006 = record
  414.     usri1006_home_dir: LPWSTR;
  415.   end;
  416.   {$EXTERNALSYM _USER_INFO_1006}
  417.   USER_INFO_1006 = _USER_INFO_1006;
  418.   {$EXTERNALSYM USER_INFO_1006}
  419.   TUserInfo1006 = USER_INFO_1006;
  420.   PUserInfo1006 = PUSER_INFO_1006;
  422.   LPUSER_INFO_1007 = ^USER_INFO_1007;
  423.   {$EXTERNALSYM LPUSER_INFO_1007}
  424.   PUSER_INFO_1007 = ^USER_INFO_1007;
  425.   {$EXTERNALSYM PUSER_INFO_1007}
  426.   _USER_INFO_1007 = record
  427.     usri1007_comment: LPWSTR;
  428.   end;
  429.   {$EXTERNALSYM _USER_INFO_1007}
  430.   USER_INFO_1007 = _USER_INFO_1007;
  431.   {$EXTERNALSYM USER_INFO_1007}
  432.   TUserInfo1007 = USER_INFO_1007;
  433.   PUserInfo1007 = PUSER_INFO_1007;
  435.   LPUSER_INFO_1008 = ^USER_INFO_1008;
  436.   {$EXTERNALSYM LPUSER_INFO_1008}
  437.   PUSER_INFO_1008 = ^USER_INFO_1008;
  438.   {$EXTERNALSYM PUSER_INFO_1008}
  439.   _USER_INFO_1008 = record
  440.     usri1008_flags: DWORD;
  441.   end;
  442.   {$EXTERNALSYM _USER_INFO_1008}
  443.   USER_INFO_1008 = _USER_INFO_1008;
  444.   {$EXTERNALSYM USER_INFO_1008}
  445.   TUserInfo1008 = USER_INFO_1008;
  446.   PUserInfo1008 = PUSER_INFO_1008;
  448.   LPUSER_INFO_1009 = ^USER_INFO_1009;
  449.   {$EXTERNALSYM LPUSER_INFO_1009}
  450.   PUSER_INFO_1009 = ^USER_INFO_1009;
  451.   {$EXTERNALSYM PUSER_INFO_1009}
  452.   _USER_INFO_1009 = record
  453.     usri1009_script_path: LPWSTR;
  454.   end;
  455.   {$EXTERNALSYM _USER_INFO_1009}
  456.   USER_INFO_1009 = _USER_INFO_1009;
  457.   {$EXTERNALSYM USER_INFO_1009}
  458.   TUserInfo1009 = USER_INFO_1009;
  459.   PUserInfo1009 = PUSER_INFO_1009;
  461.   LPUSER_INFO_1010 = ^USER_INFO_1010;
  462.   {$EXTERNALSYM LPUSER_INFO_1010}
  463.   PUSER_INFO_1010 = ^USER_INFO_1010;
  464.   {$EXTERNALSYM PUSER_INFO_1010}
  465.   _USER_INFO_1010 = record
  466.     usri1010_auth_flags: DWORD;
  467.   end;
  468.   {$EXTERNALSYM _USER_INFO_1010}
  469.   USER_INFO_1010 = _USER_INFO_1010;
  470.   {$EXTERNALSYM USER_INFO_1010}
  471.   TUserInfo1010 = USER_INFO_1010;
  472.   PUserInfo1010 = PUSER_INFO_1010;
  474.   LPUSER_INFO_1011 = ^USER_INFO_1011;
  475.   {$EXTERNALSYM LPUSER_INFO_1011}
  476.   PUSER_INFO_1011 = ^USER_INFO_1011;
  477.   {$EXTERNALSYM PUSER_INFO_1011}
  478.   _USER_INFO_1011 = record
  479.     usri1011_full_name: LPWSTR;
  480.   end;
  481.   {$EXTERNALSYM _USER_INFO_1011}
  482.   USER_INFO_1011 = _USER_INFO_1011;
  483.   {$EXTERNALSYM USER_INFO_1011}
  484.   TUserInfo1011 = USER_INFO_1011;
  485.   PUserInfo1011 = PUSER_INFO_1011;
  487.   LPUSER_INFO_1012 = ^USER_INFO_1012;
  488.   {$EXTERNALSYM LPUSER_INFO_1012}
  489.   PUSER_INFO_1012 = ^USER_INFO_1012;
  490.   {$EXTERNALSYM PUSER_INFO_1012}
  491.   _USER_INFO_1012 = record
  492.     usri1012_usr_comment: LPWSTR;
  493.   end;
  494.   {$EXTERNALSYM _USER_INFO_1012}
  495.   USER_INFO_1012 = _USER_INFO_1012;
  496.   {$EXTERNALSYM USER_INFO_1012}
  497.   TUserInfo1012 = USER_INFO_1012;
  498.   PUserInfo1012 = PUSER_INFO_1012;
  500.   LPUSER_INFO_1013 = ^USER_INFO_1013;
  501.   {$EXTERNALSYM LPUSER_INFO_1013}
  502.   PUSER_INFO_1013 = ^USER_INFO_1013;
  503.   {$EXTERNALSYM PUSER_INFO_1013}
  504.   _USER_INFO_1013 = record
  505.     usri1013_parms: LPWSTR;
  506.   end;
  507.   {$EXTERNALSYM _USER_INFO_1013}
  508.   USER_INFO_1013 = _USER_INFO_1013;
  509.   {$EXTERNALSYM USER_INFO_1013}
  510.   TUserInfo1013 = USER_INFO_1013;
  511.   PUserInfo1013 = PUSER_INFO_1013;
  513.   LPUSER_INFO_1014 = ^USER_INFO_1014;
  514.   {$EXTERNALSYM LPUSER_INFO_1014}
  515.   PUSER_INFO_1014 = ^USER_INFO_1014;
  516.   {$EXTERNALSYM PUSER_INFO_1014}
  517.   _USER_INFO_1014 = record
  518.     usri1014_workstations: LPWSTR;
  519.   end;
  520.   {$EXTERNALSYM _USER_INFO_1014}
  521.   USER_INFO_1014 = _USER_INFO_1014;
  522.   {$EXTERNALSYM USER_INFO_1014}
  523.   TUserInfo1014 = USER_INFO_1014;
  524.   PUserInfo1014 = PUSER_INFO_1014;
  526.   LPUSER_INFO_1017 = ^USER_INFO_1017;
  527.   {$EXTERNALSYM LPUSER_INFO_1017}
  528.   PUSER_INFO_1017 = ^USER_INFO_1017;
  529.   {$EXTERNALSYM PUSER_INFO_1017}
  530.   _USER_INFO_1017 = record
  531.     usri1017_acct_expires: DWORD;
  532.   end;
  533.   {$EXTERNALSYM _USER_INFO_1017}
  534.   USER_INFO_1017 = _USER_INFO_1017;
  535.   {$EXTERNALSYM USER_INFO_1017}
  536.   TUserInfo1017 = USER_INFO_1017;
  537.   PUserInfo1017 = PUSER_INFO_1017;
  539.   LPUSER_INFO_1018 = ^USER_INFO_1018;
  540.   {$EXTERNALSYM LPUSER_INFO_1018}
  541.   PUSER_INFO_1018 = ^USER_INFO_1018;
  542.   {$EXTERNALSYM PUSER_INFO_1018}
  543.   _USER_INFO_1018 = record
  544.     usri1018_max_storage: DWORD;
  545.   end;
  546.   {$EXTERNALSYM _USER_INFO_1018}
  547.   USER_INFO_1018 = _USER_INFO_1018;
  548.   {$EXTERNALSYM USER_INFO_1018}
  549.   TUserInfo1018 = USER_INFO_1018;
  550.   PUserInfo1018 = PUSER_INFO_1018;
  552.   LPUSER_INFO_1020 = ^USER_INFO_1020;
  553.   {$EXTERNALSYM LPUSER_INFO_1020}
  554.   PUSER_INFO_1020 = ^USER_INFO_1020;
  555.   {$EXTERNALSYM PUSER_INFO_1020}
  556.   _USER_INFO_1020 = record
  557.     usri1020_units_per_week: DWORD;
  558.     usri1020_logon_hours: LPBYTE;
  559.   end;
  560.   {$EXTERNALSYM _USER_INFO_1020}
  561.   USER_INFO_1020 = _USER_INFO_1020;
  562.   {$EXTERNALSYM USER_INFO_1020}
  563.   TUserInfo1020 = USER_INFO_1020;
  564.   PUserInfo1020 = PUSER_INFO_1020;
  566.   LPUSER_INFO_1023 = ^USER_INFO_1023;
  567.   {$EXTERNALSYM LPUSER_INFO_1023}
  568.   PUSER_INFO_1023 = ^USER_INFO_1023;
  569.   {$EXTERNALSYM PUSER_INFO_1023}
  570.   _USER_INFO_1023 = record
  571.     usri1023_logon_server: LPWSTR;
  572.   end;
  573.   {$EXTERNALSYM _USER_INFO_1023}
  574.   USER_INFO_1023 = _USER_INFO_1023;
  575.   {$EXTERNALSYM USER_INFO_1023}
  576.   TUserInfo1023 = USER_INFO_1023;
  577.   PUserInfo1023 = PUSER_INFO_1023;
  579.   LPUSER_INFO_1024 = ^USER_INFO_1024;
  580.   {$EXTERNALSYM LPUSER_INFO_1024}
  581.   PUSER_INFO_1024 = ^USER_INFO_1024;
  582.   {$EXTERNALSYM PUSER_INFO_1024}
  583.   _USER_INFO_1024 = record
  584.     usri1024_country_code: DWORD;
  585.   end;
  586.   {$EXTERNALSYM _USER_INFO_1024}
  587.   USER_INFO_1024 = _USER_INFO_1024;
  588.   {$EXTERNALSYM USER_INFO_1024}
  589.   TUserInfo1024 = USER_INFO_1024;
  590.   PUserInfo1024 = PUSER_INFO_1024;
  592.   LPUSER_INFO_1025 = ^USER_INFO_1025;
  593.   {$EXTERNALSYM LPUSER_INFO_1025}
  594.   PUSER_INFO_1025 = ^USER_INFO_1025;
  595.   {$EXTERNALSYM PUSER_INFO_1025}
  596.   _USER_INFO_1025 = record
  597.     usri1025_code_page: DWORD;
  598.   end;
  599.   {$EXTERNALSYM _USER_INFO_1025}
  600.   USER_INFO_1025 = _USER_INFO_1025;
  601.   {$EXTERNALSYM USER_INFO_1025}
  602.   TUserInfo1025 = USER_INFO_1025;
  603.   PUserInfo1025 = PUSER_INFO_1025;
  605.   LPUSER_INFO_1051 = ^USER_INFO_1051;
  606.   {$EXTERNALSYM LPUSER_INFO_1051}
  607.   PUSER_INFO_1051 = ^USER_INFO_1051;
  608.   {$EXTERNALSYM PUSER_INFO_1051}
  609.   _USER_INFO_1051 = record
  610.     usri1051_primary_group_id: DWORD;
  611.   end;
  612.   {$EXTERNALSYM _USER_INFO_1051}
  613.   USER_INFO_1051 = _USER_INFO_1051;
  614.   {$EXTERNALSYM USER_INFO_1051}
  615.   TUserInfo1051 = USER_INFO_1051;
  616.   PUserInfo1051 = PUSER_INFO_1051;
  618.   LPUSER_INFO_1052 = ^USER_INFO_1052;
  619.   {$EXTERNALSYM LPUSER_INFO_1052}
  620.   PUSER_INFO_1052 = ^USER_INFO_1052;
  621.   {$EXTERNALSYM PUSER_INFO_1052}
  622.   _USER_INFO_1052 = record
  623.     usri1052_profile: LPWSTR;
  624.   end;
  625.   {$EXTERNALSYM _USER_INFO_1052}
  626.   USER_INFO_1052 = _USER_INFO_1052;
  627.   {$EXTERNALSYM USER_INFO_1052}
  628.   TUserInfo1052 = USER_INFO_1052;
  629.   PUserInfo1052 = PUSER_INFO_1052;
  631.   LPUSER_INFO_1053 = ^USER_INFO_1053;
  632.   {$EXTERNALSYM LPUSER_INFO_1053}
  633.   PUSER_INFO_1053 = ^USER_INFO_1053;
  634.   {$EXTERNALSYM PUSER_INFO_1053}
  635.   _USER_INFO_1053 = record
  636.     usri1053_home_dir_drive: LPWSTR;
  637.   end;
  638.   {$EXTERNALSYM _USER_INFO_1053}
  639.   USER_INFO_1053 = _USER_INFO_1053;
  640.   {$EXTERNALSYM USER_INFO_1053}
  641.   TUserInfo1053 = USER_INFO_1053;
  642.   PUserInfo1053 = PUSER_INFO_1053;
  644. //
  645. //  Data Structures - User Modals
  646. //
  648.   LPUSER_MODALS_INFO_0 = ^USER_MODALS_INFO_0;
  649.   {$EXTERNALSYM LPUSER_MODALS_INFO_0}
  650.   PUSER_MODALS_INFO_0 = ^USER_MODALS_INFO_0;
  651.   {$EXTERNALSYM PUSER_MODALS_INFO_0}
  652.   _USER_MODALS_INFO_0 = record
  653.     usrmod0_min_passwd_len: DWORD;
  654.     usrmod0_max_passwd_age: DWORD;
  655.     usrmod0_min_passwd_age: DWORD;
  656.     usrmod0_force_logoff: DWORD;
  657.     usrmod0_password_hist_len: DWORD;
  658.   end;
  659.   {$EXTERNALSYM _USER_MODALS_INFO_0}
  660.   USER_MODALS_INFO_0 = _USER_MODALS_INFO_0;
  661.   {$EXTERNALSYM USER_MODALS_INFO_0}
  662.   TUserModalsInfo0 = USER_MODALS_INFO_0;
  663.   PUserModalsInfo0 = PUSER_MODALS_INFO_0;
  665.   LPUSER_MODALS_INFO_1 = ^USER_MODALS_INFO_1;
  666.   {$EXTERNALSYM LPUSER_MODALS_INFO_1}
  667.   PUSER_MODALS_INFO_1 = ^USER_MODALS_INFO_1;
  668.   {$EXTERNALSYM PUSER_MODALS_INFO_1}
  669.   _USER_MODALS_INFO_1 = record
  670.     usrmod1_role: DWORD;
  671.     usrmod1_primary: LPWSTR;
  672.   end;
  673.   {$EXTERNALSYM _USER_MODALS_INFO_1}
  674.   USER_MODALS_INFO_1 = _USER_MODALS_INFO_1;
  675.   {$EXTERNALSYM USER_MODALS_INFO_1}
  676.   TUserModalsInfo1 = USER_MODALS_INFO_1;
  677.   PUserModalsInfo1 = PUSER_MODALS_INFO_1;
  679.   LPUSER_MODALS_INFO_2 = ^USER_MODALS_INFO_2;
  680.   {$EXTERNALSYM LPUSER_MODALS_INFO_2}
  681.   PUSER_MODALS_INFO_2 = ^USER_MODALS_INFO_2;
  682.   {$EXTERNALSYM PUSER_MODALS_INFO_2}
  683.   _USER_MODALS_INFO_2 = record
  684.     usrmod2_domain_name: LPWSTR;
  685.     usrmod2_domain_id: PSID;
  686.   end;
  687.   {$EXTERNALSYM _USER_MODALS_INFO_2}
  688.   USER_MODALS_INFO_2 = _USER_MODALS_INFO_2;
  689.   {$EXTERNALSYM USER_MODALS_INFO_2}
  690.   TUserModalsInfo2 = USER_MODALS_INFO_2;
  691.   PUserModalsInfo2 = PUSER_MODALS_INFO_2;
  693.   LPUSER_MODALS_INFO_3 = ^USER_MODALS_INFO_3;
  694.   {$EXTERNALSYM LPUSER_MODALS_INFO_3}
  695.   PUSER_MODALS_INFO_3 = ^USER_MODALS_INFO_3;
  696.   {$EXTERNALSYM PUSER_MODALS_INFO_3}
  697.   _USER_MODALS_INFO_3 = record
  698.     usrmod3_lockout_duration: DWORD;
  699.     usrmod3_lockout_observation_window: DWORD;
  700.     usrmod3_lockout_threshold: DWORD;
  701.   end;
  702.   {$EXTERNALSYM _USER_MODALS_INFO_3}
  703.   USER_MODALS_INFO_3 = _USER_MODALS_INFO_3;
  704.   {$EXTERNALSYM USER_MODALS_INFO_3}
  705.   TUserModalsInfo3 = USER_MODALS_INFO_3;
  706.   PUserModalsInfo3 = PUSER_MODALS_INFO_3;
  708.   LPUSER_MODALS_INFO_1001 = ^USER_MODALS_INFO_1001;
  709.   {$EXTERNALSYM LPUSER_MODALS_INFO_1001}
  710.   PUSER_MODALS_INFO_1001 = ^USER_MODALS_INFO_1001;
  711.   {$EXTERNALSYM PUSER_MODALS_INFO_1001}
  712.   _USER_MODALS_INFO_1001 = record
  713.     usrmod1001_min_passwd_len: DWORD;
  714.   end;
  715.   {$EXTERNALSYM _USER_MODALS_INFO_1001}
  716.   USER_MODALS_INFO_1001 = _USER_MODALS_INFO_1001;
  717.   {$EXTERNALSYM USER_MODALS_INFO_1001}
  718.   TUserModalsInfo1001 = USER_MODALS_INFO_1001;
  719.   PUserModalsInfo1001 = PUSER_MODALS_INFO_1001;
  721.   LPUSER_MODALS_INFO_1002 = ^USER_MODALS_INFO_1002;
  722.   {$EXTERNALSYM LPUSER_MODALS_INFO_1002}
  723.   PUSER_MODALS_INFO_1002 = ^USER_MODALS_INFO_1002;
  724.   {$EXTERNALSYM PUSER_MODALS_INFO_1002}
  725.   _USER_MODALS_INFO_1002 = record
  726.     usrmod1002_max_passwd_age: DWORD;
  727.   end;
  728.   {$EXTERNALSYM _USER_MODALS_INFO_1002}
  729.   USER_MODALS_INFO_1002 = _USER_MODALS_INFO_1002;
  730.   {$EXTERNALSYM USER_MODALS_INFO_1002}
  731.   TUserModalsInfo1002 = USER_MODALS_INFO_1002;
  732.   PUserModalsInfo1002 = PUSER_MODALS_INFO_1002;
  734.   LPUSER_MODALS_INFO_1003 = ^USER_MODALS_INFO_1003;
  735.   {$EXTERNALSYM LPUSER_MODALS_INFO_1003}
  736.   PUSER_MODALS_INFO_1003 = ^USER_MODALS_INFO_1003;
  737.   {$EXTERNALSYM PUSER_MODALS_INFO_1003}
  738.   _USER_MODALS_INFO_1003 = record
  739.     usrmod1003_min_passwd_age: DWORD;
  740.   end;
  741.   {$EXTERNALSYM _USER_MODALS_INFO_1003}
  742.   USER_MODALS_INFO_1003 = _USER_MODALS_INFO_1003;
  743.   {$EXTERNALSYM USER_MODALS_INFO_1003}
  744.   TUserModalsInfo1003 = USER_MODALS_INFO_1003;
  745.   PUserModalsInfo1003 = PUSER_MODALS_INFO_1003;
  747.   LPUSER_MODALS_INFO_1004 = ^USER_MODALS_INFO_1004;
  748.   {$EXTERNALSYM LPUSER_MODALS_INFO_1004}
  749.   PUSER_MODALS_INFO_1004 = ^USER_MODALS_INFO_1004;
  750.   {$EXTERNALSYM PUSER_MODALS_INFO_1004}
  751.   _USER_MODALS_INFO_1004 = record
  752.     usrmod1004_force_logoff: DWORD;
  753.   end;
  754.   {$EXTERNALSYM _USER_MODALS_INFO_1004}
  755.   USER_MODALS_INFO_1004 = _USER_MODALS_INFO_1004;
  756.   {$EXTERNALSYM USER_MODALS_INFO_1004}
  757.   TUserModalsInfo1004 = USER_MODALS_INFO_1004;
  758.   PUserModalsInfo1004 = PUSER_MODALS_INFO_1004;
  760.   LPUSER_MODALS_INFO_1005 = ^USER_MODALS_INFO_1005;
  761.   {$EXTERNALSYM LPUSER_MODALS_INFO_1005}
  762.   PUSER_MODALS_INFO_1005 = ^USER_MODALS_INFO_1005;
  763.   {$EXTERNALSYM PUSER_MODALS_INFO_1005}
  764.   _USER_MODALS_INFO_1005 = record
  765.     usrmod1005_password_hist_len: DWORD;
  766.   end;
  767.   {$EXTERNALSYM _USER_MODALS_INFO_1005}
  768.   USER_MODALS_INFO_1005 = _USER_MODALS_INFO_1005;
  769.   {$EXTERNALSYM USER_MODALS_INFO_1005}
  770.   TUserModalsInfo1005 = USER_MODALS_INFO_1005;
  771.   PUserModalsInfo1005 = PUSER_MODALS_INFO_1005;
  773.   LPUSER_MODALS_INFO_1006 = ^USER_MODALS_INFO_1006;
  774.   {$EXTERNALSYM LPUSER_MODALS_INFO_1006}
  775.   PUSER_MODALS_INFO_1006 = ^USER_MODALS_INFO_1006;
  776.   {$EXTERNALSYM PUSER_MODALS_INFO_1006}
  777.   _USER_MODALS_INFO_1006 = record
  778.     usrmod1006_role: DWORD;
  779.   end;
  780.   {$EXTERNALSYM _USER_MODALS_INFO_1006}
  781.   USER_MODALS_INFO_1006 = _USER_MODALS_INFO_1006;
  782.   {$EXTERNALSYM USER_MODALS_INFO_1006}
  783.   TUserModalsInfo1006 = USER_MODALS_INFO_1006;
  784.   PUserModalsInfo1006 = PUSER_MODALS_INFO_1006;
  786.   LPUSER_MODALS_INFO_1007 = ^USER_MODALS_INFO_1007;
  787.   {$EXTERNALSYM LPUSER_MODALS_INFO_1007}
  788.   PUSER_MODALS_INFO_1007 = ^USER_MODALS_INFO_1007;
  789.   {$EXTERNALSYM PUSER_MODALS_INFO_1007}
  790.   _USER_MODALS_INFO_1007 = record
  791.     usrmod1007_primary: LPWSTR;
  792.   end;
  793.   {$EXTERNALSYM _USER_MODALS_INFO_1007}
  794.   USER_MODALS_INFO_1007 = _USER_MODALS_INFO_1007;
  795.   {$EXTERNALSYM USER_MODALS_INFO_1007}
  796.   TUserModalsInfo1007 = USER_MODALS_INFO_1007;
  797.   PUserModalsInfo1007 = PUSER_MODALS_INFO_1007;
  799. //
  800. // Special Values and Constants - User
  801. //
  803. //
  804. //  Bit masks for field usriX_flags of USER_INFO_X (X = 0/1).
  805. //
  807. const
  808.   UF_SCRIPT                          = $0001;
  809.   {$EXTERNALSYM UF_SCRIPT}
  810.   UF_ACCOUNTDISABLE                  = $0002;
  811.   {$EXTERNALSYM UF_ACCOUNTDISABLE}
  812.   UF_HOMEDIR_REQUIRED                = $0008;
  813.   {$EXTERNALSYM UF_HOMEDIR_REQUIRED}
  814.   UF_LOCKOUT                         = $0010;
  815.   {$EXTERNALSYM UF_LOCKOUT}
  816.   UF_PASSWD_NOTREQD                  = $0020;
  817.   {$EXTERNALSYM UF_PASSWD_NOTREQD}
  818.   UF_PASSWD_CANT_CHANGE              = $0040;
  819.   {$EXTERNALSYM UF_PASSWD_CANT_CHANGE}
  820.   UF_ENCRYPTED_TEXT_PASSWORD_ALLOWED = $0080;
  821.   {$EXTERNALSYM UF_ENCRYPTED_TEXT_PASSWORD_ALLOWED}
  823. //
  824. // Account type bits as part of usri_flags.
  825. //
  827.   UF_TEMP_DUPLICATE_ACCOUNT    = $0100;
  828.   {$EXTERNALSYM UF_TEMP_DUPLICATE_ACCOUNT}
  829.   UF_NORMAL_ACCOUNT            = $0200;
  830.   {$EXTERNALSYM UF_NORMAL_ACCOUNT}
  831.   UF_INTERDOMAIN_TRUST_ACCOUNT = $0800;
  832.   {$EXTERNALSYM UF_INTERDOMAIN_TRUST_ACCOUNT}
  833.   UF_WORKSTATION_TRUST_ACCOUNT = $1000;
  834.   {$EXTERNALSYM UF_WORKSTATION_TRUST_ACCOUNT}
  835.   UF_SERVER_TRUST_ACCOUNT      = $2000;
  836.   {$EXTERNALSYM UF_SERVER_TRUST_ACCOUNT}
  838.   UF_MACHINE_ACCOUNT_MASK = (UF_INTERDOMAIN_TRUST_ACCOUNT or UF_WORKSTATION_TRUST_ACCOUNT or UF_SERVER_TRUST_ACCOUNT);
  839.   {$EXTERNALSYM UF_MACHINE_ACCOUNT_MASK}
  841.   UF_ACCOUNT_TYPE_MASK = UF_TEMP_DUPLICATE_ACCOUNT or UF_NORMAL_ACCOUNT or UF_INTERDOMAIN_TRUST_ACCOUNT or UF_WORKSTATION_TRUST_ACCOUNT or UF_SERVER_TRUST_ACCOUNT;
  842.   {$EXTERNALSYM UF_ACCOUNT_TYPE_MASK}
  844.   UF_DONT_EXPIRE_PASSWD                     = $10000;
  845.   {$EXTERNALSYM UF_DONT_EXPIRE_PASSWD}
  846.   UF_MNS_LOGON_ACCOUNT                      = $20000;
  847.   {$EXTERNALSYM UF_MNS_LOGON_ACCOUNT}
  848.   UF_SMARTCARD_REQUIRED                     = $40000;
  849.   {$EXTERNALSYM UF_SMARTCARD_REQUIRED}
  850.   UF_TRUSTED_FOR_DELEGATION                 = $80000;
  851.   {$EXTERNALSYM UF_TRUSTED_FOR_DELEGATION}
  852.   UF_NOT_DELEGATED                          = $100000;
  853.   {$EXTERNALSYM UF_NOT_DELEGATED}
  854.   UF_USE_DES_KEY_ONLY                       = $200000;
  855.   {$EXTERNALSYM UF_USE_DES_KEY_ONLY}
  856.   UF_DONT_REQUIRE_PREAUTH                   = $400000;
  857.   {$EXTERNALSYM UF_DONT_REQUIRE_PREAUTH}
  858.   UF_PASSWORD_EXPIRED                       = DWORD($800000);
  859.   {$EXTERNALSYM UF_PASSWORD_EXPIRED}
  860.   UF_TRUSTED_TO_AUTHENTICATE_FOR_DELEGATION = $1000000;
  861.   {$EXTERNALSYM UF_TRUSTED_TO_AUTHENTICATE_FOR_DELEGATION}
  864.   UF_SETTABLE_BITS =
  865.                     UF_SCRIPT or
  866.                     UF_ACCOUNTDISABLE or
  867.                     UF_LOCKOUT or
  868.                     UF_HOMEDIR_REQUIRED or
  869.                     UF_PASSWD_NOTREQD or
  870.                     UF_PASSWD_CANT_CHANGE or
  871.                     UF_ACCOUNT_TYPE_MASK or
  872.                     UF_DONT_EXPIRE_PASSWD or
  873.                     UF_MNS_LOGON_ACCOUNT or
  874.                     UF_ENCRYPTED_TEXT_PASSWORD_ALLOWED or
  875.                     UF_SMARTCARD_REQUIRED or
  876.                     UF_TRUSTED_FOR_DELEGATION or
  877.                     UF_NOT_DELEGATED or
  878.                     UF_USE_DES_KEY_ONLY or
  879.                     UF_DONT_REQUIRE_PREAUTH or
  880.                     UF_PASSWORD_EXPIRED or
  881.                     UF_TRUSTED_TO_AUTHENTICATE_FOR_DELEGATION;
  882.   {$EXTERNALSYM UF_SETTABLE_BITS}
  884. //
  885. // bit masks for the NetUserEnum filter parameter.
  886. //
  888.   FILTER_TEMP_DUPLICATE_ACCOUNT = ($0001);
  889.   {$EXTERNALSYM FILTER_TEMP_DUPLICATE_ACCOUNT}
  890.   FILTER_NORMAL_ACCOUNT         = ($0002);
  891.   {$EXTERNALSYM FILTER_NORMAL_ACCOUNT}
  892. // #define FILTER_PROXY_ACCOUNT                (0x0004)
  893.   FILTER_INTERDOMAIN_TRUST_ACCOUNT = ($0008);
  894.   {$EXTERNALSYM FILTER_INTERDOMAIN_TRUST_ACCOUNT}
  895.   FILTER_WORKSTATION_TRUST_ACCOUNT = ($0010);
  896.   {$EXTERNALSYM FILTER_WORKSTATION_TRUST_ACCOUNT}
  897.   FILTER_SERVER_TRUST_ACCOUNT      = ($0020);
  898.   {$EXTERNALSYM FILTER_SERVER_TRUST_ACCOUNT}
  900. //
  901. // bit masks for the NetUserGetLocalGroups flags
  902. //
  904.   LG_INCLUDE_INDIRECT = ($0001);
  905.   {$EXTERNALSYM LG_INCLUDE_INDIRECT}
  907. //
  908. //  Bit masks for field usri2_auth_flags of USER_INFO_2.
  909. //
  911.   AF_OP_PRINT      = $1;
  912.   {$EXTERNALSYM AF_OP_PRINT}
  913.   AF_OP_COMM       = $2;
  914.   {$EXTERNALSYM AF_OP_COMM}
  915.   AF_OP_SERVER     = $4;
  916.   {$EXTERNALSYM AF_OP_SERVER}
  917.   AF_OP_ACCOUNTS   = $8;
  918.   {$EXTERNALSYM AF_OP_ACCOUNTS}
  919.   AF_SETTABLE_BITS = (AF_OP_PRINT or AF_OP_COMM or AF_OP_SERVER or AF_OP_ACCOUNTS);
  920.   {$EXTERNALSYM AF_SETTABLE_BITS}
  922. //
  923. //  UAS role manifests under NETLOGON
  924. //
  926.   UAS_ROLE_STANDALONE = 0;
  927.   {$EXTERNALSYM UAS_ROLE_STANDALONE}
  928.   UAS_ROLE_MEMBER     = 1;
  929.   {$EXTERNALSYM UAS_ROLE_MEMBER}
  930.   UAS_ROLE_BACKUP     = 2;
  931.   {$EXTERNALSYM UAS_ROLE_BACKUP}
  932.   UAS_ROLE_PRIMARY    = 3;
  933.   {$EXTERNALSYM UAS_ROLE_PRIMARY}
  935. //
  936. //  Values for ParmError for NetUserSetInfo.
  937. //
  939.   USER_NAME_PARMNUM           = 1;
  940.   {$EXTERNALSYM USER_NAME_PARMNUM}
  941.   USER_PASSWORD_PARMNUM       = 3;
  942.   {$EXTERNALSYM USER_PASSWORD_PARMNUM}
  943.   USER_PASSWORD_AGE_PARMNUM   = 4;
  944.   {$EXTERNALSYM USER_PASSWORD_AGE_PARMNUM}
  945.   USER_PRIV_PARMNUM           = 5;
  946.   {$EXTERNALSYM USER_PRIV_PARMNUM}
  947.   USER_HOME_DIR_PARMNUM       = 6;
  948.   {$EXTERNALSYM USER_HOME_DIR_PARMNUM}
  949.   USER_COMMENT_PARMNUM        = 7;
  950.   {$EXTERNALSYM USER_COMMENT_PARMNUM}
  951.   USER_FLAGS_PARMNUM          = 8;
  952.   {$EXTERNALSYM USER_FLAGS_PARMNUM}
  953.   USER_SCRIPT_PATH_PARMNUM    = 9;
  954.   {$EXTERNALSYM USER_SCRIPT_PATH_PARMNUM}
  955.   USER_AUTH_FLAGS_PARMNUM     = 10;
  956.   {$EXTERNALSYM USER_AUTH_FLAGS_PARMNUM}
  957.   USER_FULL_NAME_PARMNUM      = 11;
  958.   {$EXTERNALSYM USER_FULL_NAME_PARMNUM}
  959.   USER_USR_COMMENT_PARMNUM    = 12;
  960.   {$EXTERNALSYM USER_USR_COMMENT_PARMNUM}
  961.   USER_PARMS_PARMNUM          = 13;
  962.   {$EXTERNALSYM USER_PARMS_PARMNUM}
  963.   USER_WORKSTATIONS_PARMNUM   = 14;
  964.   {$EXTERNALSYM USER_WORKSTATIONS_PARMNUM}
  965.   USER_LAST_LOGON_PARMNUM     = 15;
  966.   {$EXTERNALSYM USER_LAST_LOGON_PARMNUM}
  967.   USER_LAST_LOGOFF_PARMNUM    = 16;
  968.   {$EXTERNALSYM USER_LAST_LOGOFF_PARMNUM}
  969.   USER_ACCT_EXPIRES_PARMNUM   = 17;
  970.   {$EXTERNALSYM USER_ACCT_EXPIRES_PARMNUM}
  971.   USER_MAX_STORAGE_PARMNUM    = 18;
  972.   {$EXTERNALSYM USER_MAX_STORAGE_PARMNUM}
  973.   USER_UNITS_PER_WEEK_PARMNUM = 19;
  974.   {$EXTERNALSYM USER_UNITS_PER_WEEK_PARMNUM}
  975.   USER_LOGON_HOURS_PARMNUM    = 20;
  976.   {$EXTERNALSYM USER_LOGON_HOURS_PARMNUM}
  977.   USER_PAD_PW_COUNT_PARMNUM   = 21;
  978.   {$EXTERNALSYM USER_PAD_PW_COUNT_PARMNUM}
  979.   USER_NUM_LOGONS_PARMNUM     = 22;
  980.   {$EXTERNALSYM USER_NUM_LOGONS_PARMNUM}
  981.   USER_LOGON_SERVER_PARMNUM   = 23;
  982.   {$EXTERNALSYM USER_LOGON_SERVER_PARMNUM}
  983.   USER_COUNTRY_CODE_PARMNUM   = 24;
  984.   {$EXTERNALSYM USER_COUNTRY_CODE_PARMNUM}
  985.   USER_CODE_PAGE_PARMNUM      = 25;
  986.   {$EXTERNALSYM USER_CODE_PAGE_PARMNUM}
  987.   USER_PRIMARY_GROUP_PARMNUM  = 51;
  988.   {$EXTERNALSYM USER_PRIMARY_GROUP_PARMNUM}
  989.   USER_PROFILE                = 52; // ?? Delete when convenient
  990.   {$EXTERNALSYM USER_PROFILE}
  991.   USER_PROFILE_PARMNUM        = 52;
  992.   {$EXTERNALSYM USER_PROFILE_PARMNUM}
  993.   USER_HOME_DIR_DRIVE_PARMNUM = 53;
  994.   {$EXTERNALSYM USER_HOME_DIR_DRIVE_PARMNUM}
  996. //
  997. // the new infolevel counterparts of the old info level + parmnum
  998. //
  1000.   USER_NAME_INFOLEVEL           = (PARMNUM_BASE_INFOLEVEL + USER_NAME_PARMNUM);
  1001.   {$EXTERNALSYM USER_NAME_INFOLEVEL}
  1002.   USER_PASSWORD_INFOLEVEL       = (PARMNUM_BASE_INFOLEVEL + USER_PASSWORD_PARMNUM);
  1003.   {$EXTERNALSYM USER_PASSWORD_INFOLEVEL}
  1004.   USER_PASSWORD_AGE_INFOLEVEL   = (PARMNUM_BASE_INFOLEVEL + USER_PASSWORD_AGE_PARMNUM);
  1005.   {$EXTERNALSYM USER_PASSWORD_AGE_INFOLEVEL}
  1006.   USER_PRIV_INFOLEVEL           = (PARMNUM_BASE_INFOLEVEL + USER_PRIV_PARMNUM);
  1007.   {$EXTERNALSYM USER_PRIV_INFOLEVEL}
  1008.   USER_HOME_DIR_INFOLEVEL       = (PARMNUM_BASE_INFOLEVEL + USER_HOME_DIR_PARMNUM);
  1009.   {$EXTERNALSYM USER_HOME_DIR_INFOLEVEL}
  1010.   USER_COMMENT_INFOLEVEL        = (PARMNUM_BASE_INFOLEVEL + USER_COMMENT_PARMNUM);
  1011.   {$EXTERNALSYM USER_COMMENT_INFOLEVEL}
  1012.   USER_FLAGS_INFOLEVEL          = (PARMNUM_BASE_INFOLEVEL + USER_FLAGS_PARMNUM);
  1013.   {$EXTERNALSYM USER_FLAGS_INFOLEVEL}
  1014.   USER_SCRIPT_PATH_INFOLEVEL    = (PARMNUM_BASE_INFOLEVEL + USER_SCRIPT_PATH_PARMNUM);
  1015.   {$EXTERNALSYM USER_SCRIPT_PATH_INFOLEVEL}
  1016.   USER_AUTH_FLAGS_INFOLEVEL     = (PARMNUM_BASE_INFOLEVEL + USER_AUTH_FLAGS_PARMNUM);
  1017.   {$EXTERNALSYM USER_AUTH_FLAGS_INFOLEVEL}
  1018.   USER_FULL_NAME_INFOLEVEL      = (PARMNUM_BASE_INFOLEVEL + USER_FULL_NAME_PARMNUM);
  1019.   {$EXTERNALSYM USER_FULL_NAME_INFOLEVEL}
  1020.   USER_USR_COMMENT_INFOLEVEL    = (PARMNUM_BASE_INFOLEVEL + USER_USR_COMMENT_PARMNUM);
  1021.   {$EXTERNALSYM USER_USR_COMMENT_INFOLEVEL}
  1022.   USER_PARMS_INFOLEVEL          = (PARMNUM_BASE_INFOLEVEL + USER_PARMS_PARMNUM);
  1023.   {$EXTERNALSYM USER_PARMS_INFOLEVEL}
  1024.   USER_WORKSTATIONS_INFOLEVEL   = (PARMNUM_BASE_INFOLEVEL + USER_WORKSTATIONS_PARMNUM);
  1025.   {$EXTERNALSYM USER_WORKSTATIONS_INFOLEVEL}
  1026.   USER_LAST_LOGON_INFOLEVEL     = (PARMNUM_BASE_INFOLEVEL + USER_LAST_LOGON_PARMNUM);
  1027.   {$EXTERNALSYM USER_LAST_LOGON_INFOLEVEL}
  1028.   USER_LAST_LOGOFF_INFOLEVEL    = (PARMNUM_BASE_INFOLEVEL + USER_LAST_LOGOFF_PARMNUM);
  1029.   {$EXTERNALSYM USER_LAST_LOGOFF_INFOLEVEL}
  1030.   USER_ACCT_EXPIRES_INFOLEVEL   = (PARMNUM_BASE_INFOLEVEL + USER_ACCT_EXPIRES_PARMNUM);
  1031.   {$EXTERNALSYM USER_ACCT_EXPIRES_INFOLEVEL}
  1032.   USER_MAX_STORAGE_INFOLEVEL    = (PARMNUM_BASE_INFOLEVEL + USER_MAX_STORAGE_PARMNUM);
  1033.   {$EXTERNALSYM USER_MAX_STORAGE_INFOLEVEL}
  1034.   USER_UNITS_PER_WEEK_INFOLEVEL = (PARMNUM_BASE_INFOLEVEL + USER_UNITS_PER_WEEK_PARMNUM);
  1035.   {$EXTERNALSYM USER_UNITS_PER_WEEK_INFOLEVEL}
  1036.   USER_LOGON_HOURS_INFOLEVEL    = (PARMNUM_BASE_INFOLEVEL + USER_LOGON_HOURS_PARMNUM);
  1037.   {$EXTERNALSYM USER_LOGON_HOURS_INFOLEVEL}
  1038.   USER_PAD_PW_COUNT_INFOLEVEL   = (PARMNUM_BASE_INFOLEVEL + USER_PAD_PW_COUNT_PARMNUM);
  1039.   {$EXTERNALSYM USER_PAD_PW_COUNT_INFOLEVEL}
  1040.   USER_NUM_LOGONS_INFOLEVEL     = (PARMNUM_BASE_INFOLEVEL + USER_NUM_LOGONS_PARMNUM);
  1041.   {$EXTERNALSYM USER_NUM_LOGONS_INFOLEVEL}
  1042.   USER_LOGON_SERVER_INFOLEVEL   = (PARMNUM_BASE_INFOLEVEL + USER_LOGON_SERVER_PARMNUM);
  1043.   {$EXTERNALSYM USER_LOGON_SERVER_INFOLEVEL}
  1044.   USER_COUNTRY_CODE_INFOLEVEL   = (PARMNUM_BASE_INFOLEVEL + USER_COUNTRY_CODE_PARMNUM);
  1045.   {$EXTERNALSYM USER_COUNTRY_CODE_INFOLEVEL}
  1046.   USER_CODE_PAGE_INFOLEVEL      = (PARMNUM_BASE_INFOLEVEL + USER_CODE_PAGE_PARMNUM);
  1047.   {$EXTERNALSYM USER_CODE_PAGE_INFOLEVEL}
  1048.   USER_PRIMARY_GROUP_INFOLEVEL  = (PARMNUM_BASE_INFOLEVEL + USER_PRIMARY_GROUP_PARMNUM);
  1049.   {$EXTERNALSYM USER_PRIMARY_GROUP_INFOLEVEL}
  1050. //  todo USER_POSIX_ID_PARMNUM where is it defined?
  1051. //  USER_POSIX_ID_INFOLEVEL       = (PARMNUM_BASE_INFOLEVEL + USER_POSIX_ID_PARMNUM);
  1052. //  {$EXTERNALSYM USER_POSIX_ID_INFOLEVEL}
  1053.   USER_HOME_DIR_DRIVE_INFOLEVEL = (PARMNUM_BASE_INFOLEVEL + USER_HOME_DIR_DRIVE_PARMNUM);
  1054.   {$EXTERNALSYM USER_HOME_DIR_DRIVE_INFOLEVEL}
  1056. //
  1057. //  For SetInfo call (parmnum 0) when password change not required
  1058. //
  1060.   NULL_USERSETINFO_PASSWD = '              ';
  1061.   {$EXTERNALSYM NULL_USERSETINFO_PASSWD}
  1063.   TIMEQ_FOREVER             = ULONG(-1);
  1064.   {$EXTERNALSYM TIMEQ_FOREVER}
  1065.   USER_MAXSTORAGE_UNLIMITED = ULONG(-1);
  1066.   {$EXTERNALSYM USER_MAXSTORAGE_UNLIMITED}
  1067.   USER_NO_LOGOFF            = ULONG(-1);
  1068.   {$EXTERNALSYM USER_NO_LOGOFF}
  1069.   UNITS_PER_DAY             = 24;
  1070.   {$EXTERNALSYM UNITS_PER_DAY}
  1071.   UNITS_PER_WEEK            = UNITS_PER_DAY * 7;
  1072.   {$EXTERNALSYM UNITS_PER_WEEK}
  1074. //
  1075. // Privilege levels (USER_INFO_X field usriX_priv (X = 0/1)).
  1076. //
  1078.   USER_PRIV_MASK  = $3;
  1079.   {$EXTERNALSYM USER_PRIV_MASK}
  1080.   USER_PRIV_GUEST = 0;
  1081.   {$EXTERNALSYM USER_PRIV_GUEST}
  1082.   USER_PRIV_USER  = 1;
  1083.   {$EXTERNALSYM USER_PRIV_USER}
  1084.   USER_PRIV_ADMIN = 2;
  1085.   {$EXTERNALSYM USER_PRIV_ADMIN}
  1087. //
  1088. // user modals related defaults
  1089. //
  1091.   MAX_PASSWD_LEN   = PWLEN;
  1092.   {$EXTERNALSYM MAX_PASSWD_LEN}
  1093.   DEF_MIN_PWLEN    = 6;
  1094.   {$EXTERNALSYM DEF_MIN_PWLEN}
  1095.   DEF_PWUNIQUENESS = 5;
  1096.   {$EXTERNALSYM DEF_PWUNIQUENESS}
  1097.   DEF_MAX_PWHIST   = 8;
  1098.   {$EXTERNALSYM DEF_MAX_PWHIST}
  1100.   DEF_MAX_PWAGE    = TIMEQ_FOREVER; // forever
  1101.   {$EXTERNALSYM DEF_MAX_PWAGE}
  1102.   DEF_MIN_PWAGE    = 0; // 0 days
  1103.   {$EXTERNALSYM DEF_MIN_PWAGE}
  1104.   DEF_FORCE_LOGOFF = ULONG($ffffffff); // never
  1105.   {$EXTERNALSYM DEF_FORCE_LOGOFF}
  1106.   DEF_MAX_BADPW    = 0; // no limit
  1107.   {$EXTERNALSYM DEF_MAX_BADPW}
  1108.   ONE_DAY          = ULONG(01*24*3600); // 01 day
  1109.   {$EXTERNALSYM ONE_DAY}
  1111. //
  1112. // User Logon Validation (codes returned)
  1113. //
  1115.   VALIDATED_LOGON     = 0;
  1116.   {$EXTERNALSYM VALIDATED_LOGON}
  1117.   PASSWORD_EXPIRED    = 2;
  1118.   {$EXTERNALSYM PASSWORD_EXPIRED}
  1119.   NON_VALIDATED_LOGON = 3;
  1120.   {$EXTERNALSYM NON_VALIDATED_LOGON}
  1122.   VALID_LOGOFF = 1;
  1123.   {$EXTERNALSYM VALID_LOGOFF}
  1125. //
  1126. // parmnum manifests for user modals
  1127. //
  1129.   MODALS_MIN_PASSWD_LEN_PARMNUM             = 1;
  1130.   {$EXTERNALSYM MODALS_MIN_PASSWD_LEN_PARMNUM}
  1131.   MODALS_MAX_PASSWD_AGE_PARMNUM             = 2;
  1132.   {$EXTERNALSYM MODALS_MAX_PASSWD_AGE_PARMNUM}
  1133.   MODALS_MIN_PASSWD_AGE_PARMNUM             = 3;
  1134.   {$EXTERNALSYM MODALS_MIN_PASSWD_AGE_PARMNUM}
  1135.   MODALS_FORCE_LOGOFF_PARMNUM               = 4;
  1136.   {$EXTERNALSYM MODALS_FORCE_LOGOFF_PARMNUM}
  1137.   MODALS_PASSWD_HIST_LEN_PARMNUM            = 5;
  1138.   {$EXTERNALSYM MODALS_PASSWD_HIST_LEN_PARMNUM}
  1139.   MODALS_ROLE_PARMNUM                       = 6;
  1140.   {$EXTERNALSYM MODALS_ROLE_PARMNUM}
  1141.   MODALS_PRIMARY_PARMNUM                    = 7;
  1142.   {$EXTERNALSYM MODALS_PRIMARY_PARMNUM}
  1143.   MODALS_DOMAIN_NAME_PARMNUM                = 8;
  1144.   {$EXTERNALSYM MODALS_DOMAIN_NAME_PARMNUM}
  1145.   MODALS_DOMAIN_ID_PARMNUM                  = 9;
  1146.   {$EXTERNALSYM MODALS_DOMAIN_ID_PARMNUM}
  1147.   MODALS_LOCKOUT_DURATION_PARMNUM           = 10;
  1148.   {$EXTERNALSYM MODALS_LOCKOUT_DURATION_PARMNUM}
  1149.   MODALS_LOCKOUT_OBSERVATION_WINDOW_PARMNUM = 11;
  1150.   {$EXTERNALSYM MODALS_LOCKOUT_OBSERVATION_WINDOW_PARMNUM}
  1151.   MODALS_LOCKOUT_THRESHOLD_PARMNUM          = 12;
  1152.   {$EXTERNALSYM MODALS_LOCKOUT_THRESHOLD_PARMNUM}
  1154. //
  1155. // the new infolevel counterparts of the old info level + parmnum
  1156. //
  1158.   MODALS_MIN_PASSWD_LEN_INFOLEVEL  = (PARMNUM_BASE_INFOLEVEL + MODALS_MIN_PASSWD_LEN_PARMNUM);
  1159.   {$EXTERNALSYM MODALS_MIN_PASSWD_LEN_INFOLEVEL}
  1160.   MODALS_MAX_PASSWD_AGE_INFOLEVEL  = (PARMNUM_BASE_INFOLEVEL + MODALS_MAX_PASSWD_AGE_PARMNUM);
  1161.   {$EXTERNALSYM MODALS_MAX_PASSWD_AGE_INFOLEVEL}
  1162.   MODALS_MIN_PASSWD_AGE_INFOLEVEL  = (PARMNUM_BASE_INFOLEVEL + MODALS_MIN_PASSWD_AGE_PARMNUM);
  1163.   {$EXTERNALSYM MODALS_MIN_PASSWD_AGE_INFOLEVEL}
  1164.   MODALS_FORCE_LOGOFF_INFOLEVEL    = (PARMNUM_BASE_INFOLEVEL + MODALS_FORCE_LOGOFF_PARMNUM);
  1165.   {$EXTERNALSYM MODALS_FORCE_LOGOFF_INFOLEVEL}
  1166.   MODALS_PASSWD_HIST_LEN_INFOLEVEL = (PARMNUM_BASE_INFOLEVEL + MODALS_PASSWD_HIST_LEN_PARMNUM);
  1167.   {$EXTERNALSYM MODALS_PASSWD_HIST_LEN_INFOLEVEL}
  1168.   MODALS_ROLE_INFOLEVEL            = (PARMNUM_BASE_INFOLEVEL + MODALS_ROLE_PARMNUM);
  1169.   {$EXTERNALSYM MODALS_ROLE_INFOLEVEL}
  1170.   MODALS_PRIMARY_INFOLEVEL         = (PARMNUM_BASE_INFOLEVEL + MODALS_PRIMARY_PARMNUM);
  1171.   {$EXTERNALSYM MODALS_PRIMARY_INFOLEVEL}
  1172.   MODALS_DOMAIN_NAME_INFOLEVEL     = (PARMNUM_BASE_INFOLEVEL + MODALS_DOMAIN_NAME_PARMNUM);
  1173.   {$EXTERNALSYM MODALS_DOMAIN_NAME_INFOLEVEL}
  1174.   MODALS_DOMAIN_ID_INFOLEVEL       = (PARMNUM_BASE_INFOLEVEL + MODALS_DOMAIN_ID_PARMNUM);
  1175.   {$EXTERNALSYM MODALS_DOMAIN_ID_INFOLEVEL}
  1177. //
  1178. // Group Class
  1179. //
  1181. //
  1182. // Function Prototypes
  1183. //
  1185. function NetGroupAdd(servername: LPCWSTR; level: DWORD; buf: LPBYTE; parm_err: LPDWORD): NET_API_STATUS; stdcall;
  1186. {$EXTERNALSYM NetGroupAdd}
  1188. function NetGroupAddUser(servername, GroupName, username: LPCWSTR): NET_API_STATUS; stdcall;
  1189. {$EXTERNALSYM NetGroupAddUser}
  1191. function NetGroupEnum(servername: LPCWSTR; level: DWORD; var bufptr: LPBYTE; prefmaxlen: DWORD; entriesread, totalentries: LPDWORD; resume_handle: PDWORD_PTR): NET_API_STATUS; stdcall;
  1192. {$EXTERNALSYM NetGroupEnum}
  1194. function NetGroupGetInfo(servername, groupname: LPCWSTR; level: DWORD; bufptr: LPBYTE): NET_API_STATUS; stdcall;
  1195. {$EXTERNALSYM NetGroupGetInfo}
  1197. function NetGroupSetInfo(servername, groupname: LPCWSTR; level: DWORD; buf: LPBYTE; parm_err: LPDWORD): NET_API_STATUS; stdcall;
  1198. {$EXTERNALSYM NetGroupSetInfo}
  1200. function NetGroupDel(servername: LPCWSTR; groupname: LPCWSTR): NET_API_STATUS; stdcall;
  1201. {$EXTERNALSYM NetGroupDel}
  1203. function NetGroupDelUser(servername: LPCWSTR; GroupName: LPCWSTR; Username: LPCWSTR): NET_API_STATUS; stdcall;
  1204. {$EXTERNALSYM NetGroupDelUser}
  1206. function NetGroupGetUsers(servername, groupname: LPCWSTR; level: DWORD; var bufptr: LPBYTE; prefmaxlen: DWORD; entriesread, totalentries: LPDWORD; ResumeHandle: PDWORD_PTR): NET_API_STATUS; stdcall;
  1207. {$EXTERNALSYM NetGroupGetUsers}
  1209. function NetGroupSetUsers(servername, groupname: LPCWSTR; level: DWORD; buf: LPBYTE; totalentries: DWORD): NET_API_STATUS; stdcall;
  1210. {$EXTERNALSYM NetGroupSetUsers}
  1212. //
  1213. //  Data Structures - Group
  1214. //
  1216. type
  1217.   LPGROUP_INFO_0 = ^GROUP_INFO_0;
  1218.   {$EXTERNALSYM LPGROUP_INFO_0}
  1219.   PGROUP_INFO_0 = ^GROUP_INFO_0;
  1220.   {$EXTERNALSYM PGROUP_INFO_0}
  1221.   _GROUP_INFO_0 = record
  1222.     grpi0_name: LPWSTR;
  1223.   end;
  1224.   {$EXTERNALSYM _GROUP_INFO_0}
  1225.   GROUP_INFO_0 = _GROUP_INFO_0;
  1226.   {$EXTERNALSYM GROUP_INFO_0}
  1227.   TGroupInfo0 = GROUP_INFO_0;
  1228.   PGroupInfo0 = PGROUP_INFO_0;
  1230.   LPGROUP_INFO_1 = ^GROUP_INFO_1;
  1231.   {$EXTERNALSYM LPGROUP_INFO_1}
  1232.   PGROUP_INFO_1 = ^GROUP_INFO_1;
  1233.   {$EXTERNALSYM PGROUP_INFO_1}
  1234.   _GROUP_INFO_1 = record
  1235.     grpi1_name: LPWSTR;
  1236.     grpi1_comment: LPWSTR;
  1237.   end;
  1238.   {$EXTERNALSYM _GROUP_INFO_1}
  1239.   GROUP_INFO_1 = _GROUP_INFO_1;
  1240.   {$EXTERNALSYM GROUP_INFO_1}
  1241.   TGroupInfo1 = GROUP_INFO_1;
  1242.   PGroupInfo1 = PGROUP_INFO_1;
  1244.   LPGROUP_INFO_2 = ^GROUP_INFO_2;
  1245.   {$EXTERNALSYM LPGROUP_INFO_2}
  1246.   PGROUP_INFO_2 = ^GROUP_INFO_2;
  1247.   {$EXTERNALSYM PGROUP_INFO_2}
  1248.   _GROUP_INFO_2 = record
  1249.     grpi2_name: LPWSTR;
  1250.     grpi2_comment: LPWSTR;
  1251.     grpi2_group_id: DWORD;
  1252.     grpi2_attributes: DWORD;
  1253.   end;
  1254.   {$EXTERNALSYM _GROUP_INFO_2}
  1255.   GROUP_INFO_2 = _GROUP_INFO_2;
  1256.   {$EXTERNALSYM GROUP_INFO_2}
  1257.   TGroupInfo2 = GROUP_INFO_2;
  1258.   PGroupInfo2 = PGROUP_INFO_2;
  1260.   LPGROUP_INFO_3 = ^GROUP_INFO_3;
  1261.   {$EXTERNALSYM LPGROUP_INFO_3}
  1262.   PGROUP_INFO_3 = ^GROUP_INFO_3;
  1263.   {$EXTERNALSYM PGROUP_INFO_3}
  1264.   _GROUP_INFO_3 = record
  1265.     grpi3_name: LPWSTR;
  1266.     grpi3_comment: LPWSTR;
  1267.     grpi3_group_sid: PSID;
  1268.     grpi3_attributes: DWORD;
  1269.   end;
  1270.   {$EXTERNALSYM _GROUP_INFO_3}
  1271.   GROUP_INFO_3 = _GROUP_INFO_3;
  1272.   {$EXTERNALSYM GROUP_INFO_3}
  1273.   TGroupInfo3 = GROUP_INFO_3;
  1274.   PGroupInfo3 = PGROUP_INFO_3;
  1276.   LPGROUP_INFO_1002 = ^GROUP_INFO_1002;
  1277.   {$EXTERNALSYM LPGROUP_INFO_1002}
  1278.   PGROUP_INFO_1002 = ^GROUP_INFO_1002;
  1279.   {$EXTERNALSYM PGROUP_INFO_1002}
  1280.   _GROUP_INFO_1002 = record
  1281.     grpi1002_comment: LPWSTR;
  1282.   end;
  1283.   {$EXTERNALSYM _GROUP_INFO_1002}
  1284.   GROUP_INFO_1002 = _GROUP_INFO_1002;
  1285.   {$EXTERNALSYM GROUP_INFO_1002}
  1286.   TGroupInfo1002 = GROUP_INFO_1002;
  1287.   PGroupInfo1002 = PGROUP_INFO_1002;
  1289.   LPGROUP_INFO_1005 = ^GROUP_INFO_1005;
  1290.   {$EXTERNALSYM LPGROUP_INFO_1005}
  1291.   PGROUP_INFO_1005 = ^GROUP_INFO_1005;
  1292.   {$EXTERNALSYM PGROUP_INFO_1005}
  1293.   _GROUP_INFO_1005 = record
  1294.     grpi1005_attributes: DWORD;
  1295.   end;
  1296.   {$EXTERNALSYM _GROUP_INFO_1005}
  1297.   GROUP_INFO_1005 = _GROUP_INFO_1005;
  1298.   {$EXTERNALSYM GROUP_INFO_1005}
  1299.   TGroupInfo1005 = GROUP_INFO_1005;
  1300.   PGroupInfo1005 = PGROUP_INFO_1005;
  1302.   LPGROUP_USERS_INFO_0 = ^GROUP_USERS_INFO_0;
  1303.   {$EXTERNALSYM LPGROUP_USERS_INFO_0}
  1304.   PGROUP_USERS_INFO_0 = ^GROUP_USERS_INFO_0;
  1305.   {$EXTERNALSYM PGROUP_USERS_INFO_0}
  1306.   _GROUP_USERS_INFO_0 = record
  1307.     grui0_name: LPWSTR;
  1308.   end;
  1309.   {$EXTERNALSYM _GROUP_USERS_INFO_0}
  1310.   GROUP_USERS_INFO_0 = _GROUP_USERS_INFO_0;
  1311.   {$EXTERNALSYM GROUP_USERS_INFO_0}
  1312.   TGroupUsersInfo0 = GROUP_USERS_INFO_0;
  1313.   PGroupUsersInfo0 = PGROUP_USERS_INFO_0;
  1315.   LPGROUP_USERS_INFO_1 = ^GROUP_USERS_INFO_1;
  1316.   {$EXTERNALSYM LPGROUP_USERS_INFO_1}
  1317.   PGROUP_USERS_INFO_1 = ^GROUP_USERS_INFO_1;
  1318.   {$EXTERNALSYM PGROUP_USERS_INFO_1}
  1319.   _GROUP_USERS_INFO_1 = record
  1320.     grui1_name: LPWSTR;
  1321.     grui1_attributes: DWORD;
  1322.   end;
  1323.   {$EXTERNALSYM _GROUP_USERS_INFO_1}
  1324.   GROUP_USERS_INFO_1 = _GROUP_USERS_INFO_1;
  1325.   {$EXTERNALSYM GROUP_USERS_INFO_1}
  1326.   TGroupUsersInfo1 = GROUP_USERS_INFO_1;
  1327.   PGroupUsersInfo1 = PGROUP_USERS_INFO_1;
  1329. //
  1330. // Special Values and Constants - Group
  1331. //
  1333. const
  1334.   GROUPIDMASK = $8000; // MSB set if uid refers to a group
  1335.   {$EXTERNALSYM GROUPIDMASK}
  1337. //
  1338. // Predefined group for all normal users, administrators and guests
  1339. // LOCAL is a special group for pinball local security.
  1340. //
  1342.   GROUP_SPECIALGRP_USERS  = WideString('USERS');
  1343.   {$EXTERNALSYM GROUP_SPECIALGRP_USERS}
  1344.   GROUP_SPECIALGRP_ADMINS = WideString('ADMINS');
  1345.   {$EXTERNALSYM GROUP_SPECIALGRP_ADMINS}
  1346.   GROUP_SPECIALGRP_GUESTS = WideString('GUESTS');
  1347.   {$EXTERNALSYM GROUP_SPECIALGRP_GUESTS}
  1348.   GROUP_SPECIALGRP_LOCAL  = WideString('LOCAL');
  1349.   {$EXTERNALSYM GROUP_SPECIALGRP_LOCAL}
  1351. //
  1352. // parmnum manifests for SetInfo calls (only comment is settable)
  1353. //
  1355.   GROUP_ALL_PARMNUM        = 0;
  1356.   {$EXTERNALSYM GROUP_ALL_PARMNUM}
  1357.   GROUP_NAME_PARMNUM       = 1;
  1358.   {$EXTERNALSYM GROUP_NAME_PARMNUM}
  1359.   GROUP_COMMENT_PARMNUM    = 2;
  1360.   {$EXTERNALSYM GROUP_COMMENT_PARMNUM}
  1361.   GROUP_ATTRIBUTES_PARMNUM = 3;
  1362.   {$EXTERNALSYM GROUP_ATTRIBUTES_PARMNUM}
  1364. //
  1365. // the new infolevel counterparts of the old info level + parmnum
  1366. //
  1368.   GROUP_ALL_INFOLEVEL        = (PARMNUM_BASE_INFOLEVEL + GROUP_ALL_PARMNUM);
  1369.   {$EXTERNALSYM GROUP_ALL_INFOLEVEL}
  1370.   GROUP_NAME_INFOLEVEL       = (PARMNUM_BASE_INFOLEVEL + GROUP_NAME_PARMNUM);
  1371.   {$EXTERNALSYM GROUP_NAME_INFOLEVEL}
  1372.   GROUP_COMMENT_INFOLEVEL    = (PARMNUM_BASE_INFOLEVEL + GROUP_COMMENT_PARMNUM);
  1373.   {$EXTERNALSYM GROUP_COMMENT_INFOLEVEL}
  1374.   GROUP_ATTRIBUTES_INFOLEVEL = (PARMNUM_BASE_INFOLEVEL + GROUP_ATTRIBUTES_PARMNUM);
  1375.   {$EXTERNALSYM GROUP_ATTRIBUTES_INFOLEVEL}
  1376. //  todo see GROUP_POSIX_ID_PARMNUM
  1377. //  GROUP_POSIX_ID_INFOLEVEL   = (PARMNUM_BASE_INFOLEVEL + GROUP_POSIX_ID_PARMNUM);
  1378. //  {$EXTERNALSYM GROUP_POSIX_ID_INFOLEVEL}
  1380. //
  1381. // LocalGroup Class
  1382. //
  1384. //
  1385. // Function Prototypes
  1386. //
  1388. function NetLocalGroupAdd(servername: LPCWSTR; level: DWORD; buf: LPBYTE; parm_err: LPDWORD): NET_API_STATUS; stdcall;
  1389. {$EXTERNALSYM NetLocalGroupAdd}
  1391. function NetLocalGroupAddMember(servername, groupname: LPCWSTR; membersid: PSID): NET_API_STATUS; stdcall;
  1392. {$EXTERNALSYM NetLocalGroupAddMember}
  1394. function NetLocalGroupEnum(servername: LPCWSTR; level: DWORD; var bufptr: LPBYTE; prefmaxlen: DWORD; entriesread, totalentries: LPDWORD; resumehandle: PDWORD_PTR): NET_API_STATUS; stdcall;
  1395. {$EXTERNALSYM NetLocalGroupEnum}
  1397. function NetLocalGroupGetInfo(servername, groupname: LPCWSTR; level: DWORD; var bufptr: LPBYTE): NET_API_STATUS; stdcall;
  1398. {$EXTERNALSYM NetLocalGroupGetInfo}
  1400. function NetLocalGroupSetInfo(servername, groupname: LPCWSTR; level: DWORD; buf: LPBYTE; parm_err: LPDWORD): NET_API_STATUS; stdcall;
  1401. {$EXTERNALSYM NetLocalGroupSetInfo}
  1403. function NetLocalGroupDel(servername: LPCWSTR; groupname: LPCWSTR): NET_API_STATUS; stdcall;
  1404. {$EXTERNALSYM NetLocalGroupDel}
  1406. function NetLocalGroupDelMember(servername: LPCWSTR; groupname: LPCWSTR; membersid: PSID): NET_API_STATUS; stdcall;
  1407. {$EXTERNALSYM NetLocalGroupDelMember}
  1409. function NetLocalGroupGetMembers(servername, localgroupname: LPCWSTR; level: DWORD; var bufptr: LPBYTE; prefmaxlen: DWORD; entriesread, totalentries: LPDWORD; resumehandle: PDWORD_PTR): NET_API_STATUS; stdcall;
  1410. {$EXTERNALSYM NetLocalGroupGetMembers}
  1412. function NetLocalGroupSetMembers(servername, groupname: LPCWSTR; level: DWORD; buf: LPBYTE; totalentries: DWORD): NET_API_STATUS; stdcall;
  1413. {$EXTERNALSYM NetLocalGroupSetMembers}
  1415. function NetLocalGroupAddMembers(servername, groupname: LPCWSTR; level: DWORD; buf: LPBYTE; totalentries: DWORD): NET_API_STATUS; stdcall;
  1416. {$EXTERNALSYM NetLocalGroupAddMembers}
  1418. function NetLocalGroupDelMembers(servername, groupname: LPCWSTR; level: DWORD; buf: LPBYTE; totalentries: DWORD): NET_API_STATUS; stdcall;
  1419. {$EXTERNALSYM NetLocalGroupDelMembers}
  1421. //
  1422. //  Data Structures - LocalGroup
  1423. //
  1425. type
  1426.   LPLOCALGROUP_INFO_0 = ^LOCALGROUP_INFO_0;
  1427.   {$EXTERNALSYM LPLOCALGROUP_INFO_0}
  1428.   PLOCALGROUP_INFO_0 = ^LOCALGROUP_INFO_0;
  1429.   {$EXTERNALSYM PLOCALGROUP_INFO_0}
  1430.   _LOCALGROUP_INFO_0 = record
  1431.     lgrpi0_name: LPWSTR;
  1432.   end;
  1433.   {$EXTERNALSYM _LOCALGROUP_INFO_0}
  1434.   LOCALGROUP_INFO_0 = _LOCALGROUP_INFO_0;
  1435.   {$EXTERNALSYM LOCALGROUP_INFO_0}
  1436.   TLocalGroupInfo0 = LOCALGROUP_INFO_0;
  1437.   PLocalGroupInfo0 = PLOCALGROUP_INFO_0;
  1439.   LPLOCALGROUP_INFO_1 = ^LOCALGROUP_INFO_1;
  1440.   {$EXTERNALSYM LPLOCALGROUP_INFO_1}
  1441.   PLOCALGROUP_INFO_1 = ^LOCALGROUP_INFO_1;
  1442.   {$EXTERNALSYM PLOCALGROUP_INFO_1}
  1443.   _LOCALGROUP_INFO_1 = record
  1444.     lgrpi1_name: LPWSTR;
  1445.     lgrpi1_comment: LPWSTR;
  1446.   end;
  1447.   {$EXTERNALSYM _LOCALGROUP_INFO_1}
  1448.   LOCALGROUP_INFO_1 = _LOCALGROUP_INFO_1;
  1449.   {$EXTERNALSYM LOCALGROUP_INFO_1}
  1450.   TLocalGroupInfo1 = LOCALGROUP_INFO_1;
  1451.   PLocalGroupInfo1 = PLOCALGROUP_INFO_1;
  1453.   LPLOCALGROUP_INFO_1002 = ^LOCALGROUP_INFO_1002;
  1454.   {$EXTERNALSYM LPLOCALGROUP_INFO_1002}
  1455.   PLOCALGROUP_INFO_1002 = ^LOCALGROUP_INFO_1002;
  1456.   {$EXTERNALSYM PLOCALGROUP_INFO_1002}
  1457.   _LOCALGROUP_INFO_1002 = record
  1458.     lgrpi1002_comment: LPWSTR;
  1459.   end;
  1460.   {$EXTERNALSYM _LOCALGROUP_INFO_1002}
  1461.   LOCALGROUP_INFO_1002 = _LOCALGROUP_INFO_1002;
  1462.   {$EXTERNALSYM LOCALGROUP_INFO_1002}
  1463.   TLocalGroupInfo1002 = LOCALGROUP_INFO_1002;
  1464.   PLocalGroupInfo1002 = PLOCALGROUP_INFO_1002;
  1466.   LPLOCALGROUP_MEMBERS_INFO_0 = ^LOCALGROUP_MEMBERS_INFO_0;
  1467.   {$EXTERNALSYM LPLOCALGROUP_MEMBERS_INFO_0}
  1468.   PLOCALGROUP_MEMBERS_INFO_0 = ^LOCALGROUP_MEMBERS_INFO_0;
  1469.   {$EXTERNALSYM PLOCALGROUP_MEMBERS_INFO_0}
  1470.   _LOCALGROUP_MEMBERS_INFO_0 = record
  1471.     lgrmi0_sid: PSID;
  1472.   end;
  1473.   {$EXTERNALSYM _LOCALGROUP_MEMBERS_INFO_0}
  1474.   LOCALGROUP_MEMBERS_INFO_0 = _LOCALGROUP_MEMBERS_INFO_0;
  1475.   {$EXTERNALSYM LOCALGROUP_MEMBERS_INFO_0}
  1476.   TLocalGroupMembersInfo0 = LOCALGROUP_MEMBERS_INFO_0;
  1477.   PLocalGroupMembersInfo0 = PLOCALGROUP_MEMBERS_INFO_0;
  1479.   LPLOCALGROUP_MEMBERS_INFO_1 = ^LOCALGROUP_MEMBERS_INFO_1;
  1480.   {$EXTERNALSYM LPLOCALGROUP_MEMBERS_INFO_1}
  1481.   PLOCALGROUP_MEMBERS_INFO_1 = ^LOCALGROUP_MEMBERS_INFO_1;
  1482.   {$EXTERNALSYM PLOCALGROUP_MEMBERS_INFO_1}
  1483.   _LOCALGROUP_MEMBERS_INFO_1 = record
  1484.     lgrmi1_sid: PSID;
  1485.     lgrmi1_sidusage: SID_NAME_USE;
  1486.     lgrmi1_name: LPWSTR;
  1487.   end;
  1488.   {$EXTERNALSYM _LOCALGROUP_MEMBERS_INFO_1}
  1489.   LOCALGROUP_MEMBERS_INFO_1 = _LOCALGROUP_MEMBERS_INFO_1;
  1490.   {$EXTERNALSYM LOCALGROUP_MEMBERS_INFO_1}
  1491.   TLocalGroupMembersInfo1 = LOCALGROUP_MEMBERS_INFO_1;
  1492.   PLocalGroupMembersInfo1 = PLOCALGROUP_MEMBERS_INFO_1;
  1494.   LPLOCALGROUP_MEMBERS_INFO_2 = ^LOCALGROUP_MEMBERS_INFO_2;
  1495.   {$EXTERNALSYM LPLOCALGROUP_MEMBERS_INFO_2}
  1496.   PLOCALGROUP_MEMBERS_INFO_2 = ^LOCALGROUP_MEMBERS_INFO_2;
  1497.   {$EXTERNALSYM PLOCALGROUP_MEMBERS_INFO_2}
  1498.   _LOCALGROUP_MEMBERS_INFO_2 = record
  1499.     lgrmi2_sid: PSID;
  1500.     lgrmi2_sidusage: SID_NAME_USE;
  1501.     lgrmi2_domainandname: LPWSTR;
  1502.   end;
  1503.   {$EXTERNALSYM _LOCALGROUP_MEMBERS_INFO_2}
  1504.   LOCALGROUP_MEMBERS_INFO_2 = _LOCALGROUP_MEMBERS_INFO_2;
  1505.   {$EXTERNALSYM LOCALGROUP_MEMBERS_INFO_2}
  1506.   TLocalGroupMembersInfo2 = LOCALGROUP_MEMBERS_INFO_2;
  1507.   PLocalGroupMembersInfo2 = PLOCALGROUP_MEMBERS_INFO_2;
  1509.   LPLOCALGROUP_MEMBERS_INFO_3 = ^LOCALGROUP_MEMBERS_INFO_3;
  1510.   {$EXTERNALSYM LPLOCALGROUP_MEMBERS_INFO_3}
  1511.   PLOCALGROUP_MEMBERS_INFO_3 = ^LOCALGROUP_MEMBERS_INFO_3;
  1512.   {$EXTERNALSYM PLOCALGROUP_MEMBERS_INFO_3}
  1513.   _LOCALGROUP_MEMBERS_INFO_3 = record
  1514.     lgrmi3_domainandname: LPWSTR;
  1515.   end;
  1516.   {$EXTERNALSYM _LOCALGROUP_MEMBERS_INFO_3}
  1517.   LOCALGROUP_MEMBERS_INFO_3 = _LOCALGROUP_MEMBERS_INFO_3;
  1518.   {$EXTERNALSYM LOCALGROUP_MEMBERS_INFO_3}
  1519.   TLocalGroupMembersInfo3 = LOCALGROUP_MEMBERS_INFO_3;
  1520.   PLocalGroupMembersInfo3 = PLOCALGROUP_MEMBERS_INFO_3;
  1522.   LPLOCALGROUP_USERS_INFO_0 = ^LOCALGROUP_USERS_INFO_0;
  1523.   {$EXTERNALSYM LPLOCALGROUP_USERS_INFO_0}
  1524.   PLOCALGROUP_USERS_INFO_0 = ^LOCALGROUP_USERS_INFO_0;
  1525.   {$EXTERNALSYM PLOCALGROUP_USERS_INFO_0}
  1526.   _LOCALGROUP_USERS_INFO_0 = record
  1527.     lgrui0_name: LPWSTR;
  1528.   end;
  1529.   {$EXTERNALSYM _LOCALGROUP_USERS_INFO_0}
  1530.   LOCALGROUP_USERS_INFO_0 = _LOCALGROUP_USERS_INFO_0;
  1531.   {$EXTERNALSYM LOCALGROUP_USERS_INFO_0}
  1532.   TLocalGroupUsersInfo0 = LOCALGROUP_USERS_INFO_0;
  1533.   PLocalGroupUsersInfo0 = PLOCALGROUP_USERS_INFO_0;
  1535. const
  1536.   LOCALGROUP_NAME_PARMNUM    = 1;
  1537.   {$EXTERNALSYM LOCALGROUP_NAME_PARMNUM}
  1538.   LOCALGROUP_COMMENT_PARMNUM = 2;
  1539.   {$EXTERNALSYM LOCALGROUP_COMMENT_PARMNUM}
  1541. //
  1542. // Display Information APIs
  1543. //
  1545. function NetQueryDisplayInformation(ServerName: LPCWSTR; Level, Index, EntriesRequested, PreferredMaximumLength: DWORD; ReturnedEntryCount: LPDWORD; var SortedBuffer: PVOID): NET_API_STATUS; stdcall;
  1546. {$EXTERNALSYM NetQueryDisplayInformation}
  1548. function NetGetDisplayInformationIndex(ServerName: LPCWSTR; Level: DWORD; Prefix: LPCWSTR; Index: LPDWORD): NET_API_STATUS; stdcall;
  1549. {$EXTERNALSYM NetGetDisplayInformationIndex}
  1551. //
  1552. // QueryDisplayInformation levels
  1554. type
  1555.   PNET_DISPLAY_USER = ^NET_DISPLAY_USER;
  1556.   {$EXTERNALSYM PNET_DISPLAY_USER}
  1557.   _NET_DISPLAY_USER = record
  1558.     usri1_name: LPWSTR;
  1559.     usri1_comment: LPWSTR;
  1560.     usri1_flags: DWORD;
  1561.     usri1_full_name: LPWSTR;
  1562.     usri1_user_id: DWORD;
  1563.     usri1_next_index: DWORD;
  1564.   end;
  1565.   {$EXTERNALSYM _NET_DISPLAY_USER}
  1566.   NET_DISPLAY_USER = _NET_DISPLAY_USER;
  1567.   {$EXTERNALSYM NET_DISPLAY_USER}
  1568.   TNetDisplayUser = NET_DISPLAY_USER;
  1569.   PNetDisplayUser = PNET_DISPLAY_USER;
  1571.   PNET_DISPLAY_MACHINE = ^NET_DISPLAY_MACHINE;
  1572.   {$EXTERNALSYM PNET_DISPLAY_MACHINE}
  1573.   _NET_DISPLAY_MACHINE = record
  1574.     usri2_name: LPWSTR;
  1575.     usri2_comment: LPWSTR;
  1576.     usri2_flags: DWORD;
  1577.     usri2_user_id: DWORD;
  1578.     usri2_next_index: DWORD;
  1579.   end;
  1580.   {$EXTERNALSYM _NET_DISPLAY_MACHINE}
  1581.   NET_DISPLAY_MACHINE = _NET_DISPLAY_MACHINE;
  1582.   {$EXTERNALSYM NET_DISPLAY_MACHINE}
  1583.   TNetDisplayMachine = NET_DISPLAY_MACHINE;
  1584.   PNetDisplayMachine = PNET_DISPLAY_MACHINE;
  1586.   PNET_DISPLAY_GROUP = ^NET_DISPLAY_GROUP;
  1587.   {$EXTERNALSYM PNET_DISPLAY_GROUP}
  1588.   _NET_DISPLAY_GROUP = record
  1589.     grpi3_name: LPWSTR;
  1590.     grpi3_comment: LPWSTR;
  1591.     grpi3_group_id: DWORD;
  1592.     grpi3_attributes: DWORD;
  1593.     grpi3_next_index: DWORD;
  1594.   end;
  1595.   {$EXTERNALSYM _NET_DISPLAY_GROUP}
  1596.   NET_DISPLAY_GROUP = _NET_DISPLAY_GROUP;
  1597.   {$EXTERNALSYM NET_DISPLAY_GROUP}
  1598.   TNetDisplayGroup = NET_DISPLAY_GROUP;
  1599.   PNetDisplayGroup = PNET_DISPLAY_GROUP;
  1601. //
  1602. // Access Class
  1603. //
  1605. //
  1606. // Function Prototypes - Access
  1607. //
  1608. //
  1609. // The NetAccess APIs are only available to downlevel
  1610. //
  1612. //#define NetAccessAdd RxNetAccessAdd
  1614. function NetAccessAdd(servername: LPCWSTR; level: DWORD; buf: LPBYTE; parm_err: LPDWORD): NET_API_STATUS; stdcall;
  1615. {$EXTERNALSYM NetAccessAdd}
  1617. //#define NetAccessEnum RxNetAccessEnum
  1619. function NetAccessEnum(servername, BasePath: LPCWSTR; Recursive, level: DWORD; var bufptr: LPBYTE; prefmaxlen: DWORD; entriesread, totalentries, resume_handle: LPDWORD): NET_API_STATUS; stdcall;
  1620. {$EXTERNALSYM NetAccessEnum}
  1622. //#define NetAccessGetInfo RxNetAccessGetInfo
  1624. function NetAccessGetInfo(servername, resource: LPCWSTR; level: DWORD; var bufptr: LPBYTE): NET_API_STATUS; stdcall;
  1625. {$EXTERNALSYM NetAccessGetInfo}
  1627. //#define NetAccessSetInfo RxNetAccessSetInfo
  1629. function NetAccessSetInfo(servername, resource: LPCWSTR; level: DWORD; buf: LPBYTE; parm_err: LPDWORD): NET_API_STATUS; stdcall;
  1630. {$EXTERNALSYM NetAccessSetInfo}
  1632. //#define NetAccessDel RxNetAccessDel
  1634. function NetAccessDel(servername: LPCWSTR; resource: LPCWSTR): NET_API_STATUS; stdcall;
  1635. {$EXTERNALSYM NetAccessDel}
  1637. //#define NetAccessGetUserPerms RxNetAccessGetUserPerms
  1639. function NetAccessGetUserPerms(servername, UGname, resource: LPCWSTR; Perms: LPDWORD): NET_API_STATUS; stdcall;
  1640. {$EXTERNALSYM NetAccessGetUserPerms}
  1642. //
  1643. // Data Structures - Access
  1644. //
  1646. type
  1647.   LPACCESS_INFO_0 = ^ACCESS_INFO_0;
  1648.   {$EXTERNALSYM LPACCESS_INFO_0}
  1649.   PACCESS_INFO_0 = ^ACCESS_INFO_0;
  1650.   {$EXTERNALSYM PACCESS_INFO_0}
  1651.   _ACCESS_INFO_0 = record
  1652.     acc0_resource_name: LPWSTR;
  1653.   end;
  1654.   {$EXTERNALSYM _ACCESS_INFO_0}
  1655.   ACCESS_INFO_0 = _ACCESS_INFO_0;
  1656.   {$EXTERNALSYM ACCESS_INFO_0}
  1657.   TAccessInfo0 = ACCESS_INFO_0;
  1658.   PAccessInfo0 = PACCESS_INFO_0;
  1660.   LPACCESS_INFO_1 = ^ACCESS_INFO_1;
  1661.   {$EXTERNALSYM LPACCESS_INFO_1}
  1662.   PACCESS_INFO_1 = ^ACCESS_INFO_1;
  1663.   {$EXTERNALSYM PACCESS_INFO_1}
  1664.   _ACCESS_INFO_1 = record
  1665.     acc1_resource_name: LPWSTR;
  1666.     acc1_attr: DWORD;
  1667.     acc1_count: DWORD;
  1668.   end;
  1669.   {$EXTERNALSYM _ACCESS_INFO_1}
  1670.   ACCESS_INFO_1 = _ACCESS_INFO_1;
  1671.   {$EXTERNALSYM ACCESS_INFO_1}
  1672.   TAccessInfo1 = ACCESS_INFO_1;
  1673.   PAccessInfo1 = PACCESS_INFO_1;
  1675.   LPACCESS_INFO_1002 = ^ACCESS_INFO_1002;
  1676.   {$EXTERNALSYM LPACCESS_INFO_1002}
  1677.   PACCESS_INFO_1002 = ^ACCESS_INFO_1002;
  1678.   {$EXTERNALSYM PACCESS_INFO_1002}
  1679.   _ACCESS_INFO_1002 = record
  1680.     acc1002_attr: DWORD;
  1681.   end;
  1682.   {$EXTERNALSYM _ACCESS_INFO_1002}
  1683.   ACCESS_INFO_1002 = _ACCESS_INFO_1002;
  1684.   {$EXTERNALSYM ACCESS_INFO_1002}
  1685.   TAccessInfo1002 = ACCESS_INFO_1002;
  1686.   PAccessInfo1002 = PACCESS_INFO_1002;
  1688.   LPACCESS_LIST = ^ACCESS_LIST;
  1689.   {$EXTERNALSYM LPACCESS_LIST}
  1690.   PACCESS_LIST = ^ACCESS_LIST;
  1691.   {$EXTERNALSYM PACCESS_LIST}
  1692.   _ACCESS_LIST = record
  1693.     acl_ugname: LPWSTR;
  1694.     acl_access: DWORD;
  1695.   end;
  1696.   {$EXTERNALSYM _ACCESS_LIST}
  1697.   ACCESS_LIST = _ACCESS_LIST;
  1698.   {$EXTERNALSYM ACCESS_LIST}
  1699.   TAccessList = ACCESS_LIST;
  1700.   PAccessList = PACCESS_LIST;
  1702. //
  1703. // Special Values and Constants - Access
  1704. //
  1706. //
  1707. // Maximum number of permission entries for each resource.
  1708. //
  1710. const
  1711.   MAXPERMENTRIES = 64;
  1712.   {$EXTERNALSYM MAXPERMENTRIES}
  1714. //
  1715. //  Bit values for the access permissions.  ACCESS_ALL is a handy
  1716. //  way to specify maximum permissions.  These are used in
  1717. //  acl_access field of access_list structures.
  1718. //
  1720.   ACCESS_READ   = $01;
  1721.   {$EXTERNALSYM ACCESS_READ}
  1722.   ACCESS_WRITE  = $02;
  1723.   {$EXTERNALSYM ACCESS_WRITE}
  1724.   ACCESS_CREATE = $04;
  1725.   {$EXTERNALSYM ACCESS_CREATE}
  1726.   ACCESS_EXEC   = $08;
  1727.   {$EXTERNALSYM ACCESS_EXEC}
  1728.   ACCESS_DELETE = $10;
  1729.   {$EXTERNALSYM ACCESS_DELETE}
  1730.   ACCESS_ATRIB  = $20;
  1731.   {$EXTERNALSYM ACCESS_ATRIB}
  1732.   ACCESS_PERM   = $40;
  1733.   {$EXTERNALSYM ACCESS_PERM}
  1735.   ACCESS_GROUP = $8000;
  1736.   {$EXTERNALSYM ACCESS_GROUP}
  1738.   ACCESS_NONE = 0;
  1739.   {$EXTERNALSYM ACCESS_NONE}
  1740.   ACCESS_ALL  = (ACCESS_READ or ACCESS_WRITE or ACCESS_CREATE or ACCESS_EXEC or ACCESS_DELETE or ACCESS_ATRIB or ACCESS_PERM);
  1741.   {$EXTERNALSYM ACCESS_ALL}
  1742.   
  1743. //
  1744. // Bit values for the acc1_attr field of the ACCESS_INFO_1 structure.
  1745. //
  1747.   ACCESS_AUDIT = $1;
  1748.   {$EXTERNALSYM ACCESS_AUDIT}
  1750.   ACCESS_SUCCESS_OPEN   = $10;
  1751.   {$EXTERNALSYM ACCESS_SUCCESS_OPEN}
  1752.   ACCESS_SUCCESS_WRITE  = $20;
  1753.   {$EXTERNALSYM ACCESS_SUCCESS_WRITE}
  1754.   ACCESS_SUCCESS_DELETE = $40;
  1755.   {$EXTERNALSYM ACCESS_SUCCESS_DELETE}
  1756.   ACCESS_SUCCESS_ACL    = $80;
  1757.   {$EXTERNALSYM ACCESS_SUCCESS_ACL}
  1758.   ACCESS_SUCCESS_MASK   = $F0;
  1759.   {$EXTERNALSYM ACCESS_SUCCESS_MASK}
  1761.   ACCESS_FAIL_OPEN   = $100;
  1762.   {$EXTERNALSYM ACCESS_FAIL_OPEN}
  1763.   ACCESS_FAIL_WRITE  = $200;
  1764.   {$EXTERNALSYM ACCESS_FAIL_WRITE}
  1765.   ACCESS_FAIL_DELETE = $400;
  1766.   {$EXTERNALSYM ACCESS_FAIL_DELETE}
  1767.   ACCESS_FAIL_ACL    = $800;
  1768.   {$EXTERNALSYM ACCESS_FAIL_ACL}
  1769.   ACCESS_FAIL_MASK   = $F00;
  1770.   {$EXTERNALSYM ACCESS_FAIL_MASK}
  1772.   ACCESS_FAIL_SHIFT = 4;
  1773.   {$EXTERNALSYM ACCESS_FAIL_SHIFT}
  1775. //
  1776. // Parmnum value for NetAccessSetInfo.
  1777. //
  1779.   ACCESS_RESOURCE_NAME_PARMNUM = 1;
  1780.   {$EXTERNALSYM ACCESS_RESOURCE_NAME_PARMNUM}
  1781.   ACCESS_ATTR_PARMNUM          = 2;
  1782.   {$EXTERNALSYM ACCESS_ATTR_PARMNUM}
  1783.   ACCESS_COUNT_PARMNUM         = 3;
  1784.   {$EXTERNALSYM ACCESS_COUNT_PARMNUM}
  1785.   ACCESS_ACCESS_LIST_PARMNUM   = 4;
  1786.   {$EXTERNALSYM ACCESS_ACCESS_LIST_PARMNUM}
  1788. //
  1789. // the new infolevel counterparts of the old info level + parmnum
  1790. //
  1792.   ACCESS_RESOURCE_NAME_INFOLEVEL = (PARMNUM_BASE_INFOLEVEL + ACCESS_RESOURCE_NAME_PARMNUM);
  1793.   {$EXTERNALSYM ACCESS_RESOURCE_NAME_INFOLEVEL}
  1794.   ACCESS_ATTR_INFOLEVEL          = (PARMNUM_BASE_INFOLEVEL + ACCESS_ATTR_PARMNUM);
  1795.   {$EXTERNALSYM ACCESS_ATTR_INFOLEVEL}
  1796.   ACCESS_COUNT_INFOLEVEL         = (PARMNUM_BASE_INFOLEVEL + ACCESS_COUNT_PARMNUM);
  1797.   {$EXTERNALSYM ACCESS_COUNT_INFOLEVEL}
  1798.   ACCESS_ACCESS_LIST_INFOLEVEL   = (PARMNUM_BASE_INFOLEVEL + ACCESS_ACCESS_LIST_PARMNUM);
  1799.   {$EXTERNALSYM ACCESS_ACCESS_LIST_INFOLEVEL}
  1801. //
  1802. // ACCESS_LETTERS defines a letter for each bit position in
  1803. // the acl_access field of struct access_list.  Note that some
  1804. // bits have a corresponding letter of ' ' (space).
  1805. //
  1807.   ACCESS_LETTERS = 'RWCXDAP         ';
  1808.   {$EXTERNALSYM ACCESS_LETTERS}
  1810. //    ********************************
  1811. //
  1812. //    Password Checking API structures
  1813. //
  1814. //    ********************************
  1817. //
  1818. //    What kind of password checking is to be performed?
  1819. //        NetValidateAuthentication : Check if the authentication can be done
  1820. //        NetValidatePasswordChange: Check if the password can be changed
  1821. //        NetValidatePasswordReset: Reset the password to the given value
  1822. //
  1824. type
  1825.   _NET_VALIDATE_PASSWORD_TYPE = (
  1826.     NetValidateFiller0,
  1827.     NetValidateAuthentication,
  1828.     NetValidatePasswordChange,
  1829.     NetValidatePasswordReset);
  1830.   {$EXTERNALSYM _NET_VALIDATE_PASSWORD_TYPE}
  1831.   NET_VALIDATE_PASSWORD_TYPE = _NET_VALIDATE_PASSWORD_TYPE;
  1832.   {$EXTERNALSYM NET_VALIDATE_PASSWORD_TYPE}
  1833.   PNET_VALIDATE_PASSWORD_TYPE = ^NET_VALIDATE_PASSWORD_TYPE;
  1834.   {$EXTERNALSYM PNET_VALIDATE_PASSWORD_TYPE}
  1835.   TNetValidatePasswordType = NET_VALIDATE_PASSWORD_TYPE;
  1836.   PNetValidatePasswordType = PNET_VALIDATE_PASSWORD_TYPE;
  1838. //
  1839. //    Structure to keep the password hash
  1840. //
  1842.   _NET_VALIDATE_PASSWORD_HASH = record
  1843.     Length: ULONG;
  1844.     Hash: LPBYTE;
  1845.   end;
  1846.   {$EXTERNALSYM _NET_VALIDATE_PASSWORD_HASH}
  1847.   NET_VALIDATE_PASSWORD_HASH = _NET_VALIDATE_PASSWORD_HASH;
  1848.   {$EXTERNALSYM NET_VALIDATE_PASSWORD_HASH}
  1849.   PNET_VALIDATE_PASSWORD_HASH = ^NET_VALIDATE_PASSWORD_HASH;
  1850.   {$EXTERNALSYM PNET_VALIDATE_PASSWORD_HASH}
  1851.   TNetValidatePasswordHash = NET_VALIDATE_PASSWORD_HASH;
  1852.   PNetValidatePasswordHash = PNET_VALIDATE_PASSWORD_HASH;
  1854. // To be used with PresentFields member of NET_VALIDATE_PERSISTED_FIELDS
  1856. const
  1857.   NET_VALIDATE_PASSWORD_LAST_SET         = $00000001;
  1858.   {$EXTERNALSYM NET_VALIDATE_PASSWORD_LAST_SET}
  1859.   NET_VALIDATE_BAD_PASSWORD_TIME         = $00000002;
  1860.   {$EXTERNALSYM NET_VALIDATE_BAD_PASSWORD_TIME}
  1861.   NET_VALIDATE_LOCKOUT_TIME              = $00000004;
  1862.   {$EXTERNALSYM NET_VALIDATE_LOCKOUT_TIME}
  1863.   NET_VALIDATE_BAD_PASSWORD_COUNT        = $00000008;
  1864.   {$EXTERNALSYM NET_VALIDATE_BAD_PASSWORD_COUNT}
  1865.   NET_VALIDATE_PASSWORD_HISTORY_LENGTH   = $00000010;
  1866.   {$EXTERNALSYM NET_VALIDATE_PASSWORD_HISTORY_LENGTH}
  1867.   NET_VALIDATE_PASSWORD_HISTORY          = $00000020;
  1868.   {$EXTERNALSYM NET_VALIDATE_PASSWORD_HISTORY}
  1870. //#if !defined(_WINBASE_) && !defined(_FILETIME_)
  1871. //#define _FILETIME_
  1872. //typedef struct _FILETIME
  1873. //{/
  1874. //    DWORD dwLowDateTime;
  1875. //    DWORD dwHighDateTime;
  1876. //} FILETIME, FAR * LPFILETIME, *PFILETIME;
  1877. //#endif
  1879. //
  1880. //    Structure to keep information about the password and related things.
  1881. //        Present Fields: (used only in output args) which fields are changed.
  1882. //            See the constants above.
  1883. //        PasswordLastSet: When the password is last set.
  1884. //        BadPasswordTime: When the password was incorrect for the last time.
  1885. //        LockoutTime: When the account is locked out. If the account is not locked out
  1886. //            it is 0.
  1887. //        BadPasswordCount: How many times the password has given incorrectly in the
  1888. //            Observation Window.
  1889. //        PasswordHistoryLength: How many passwords are kept in the history
  1890. //        PasswordHistory: Password hashes that are in the history
  1891. //
  1893. type
  1894.   _NET_VALIDATE_PERSISTED_FIELDS = record
  1895.     PresentFields: ULONG;
  1896.     PasswordLastSet: FILETIME;
  1897.     BadPasswordTime: FILETIME;
  1898.     LockoutTime: FILETIME;
  1899.     BadPasswordCount: ULONG;
  1900.     PasswordHistoryLength: ULONG;
  1901.     PasswordHistory: PNET_VALIDATE_PASSWORD_HASH;
  1902.   end;
  1903.   {$EXTERNALSYM _NET_VALIDATE_PERSISTED_FIELDS}
  1904.   NET_VALIDATE_PERSISTED_FIELDS = _NET_VALIDATE_PERSISTED_FIELDS;
  1905.   {$EXTERNALSYM NET_VALIDATE_PERSISTED_FIELDS}
  1906.   PNET_VALIDATE_PERSISTED_FIELDS = ^NET_VALIDATE_PERSISTED_FIELDS;
  1907.   {$EXTERNALSYM PNET_VALIDATE_PERSISTED_FIELDS}
  1908.   TNetValidatePersistedFields = NET_VALIDATE_PERSISTED_FIELDS;
  1909.   PNetValidatePersistedFields = PNET_VALIDATE_PERSISTED_FIELDS;
  1911. //
  1912. //    Output Arg
  1913. //        ChangedPersistedFields: Any changes to the password related info
  1914. //        ValidationStatus: Shows the result of the request
  1915. //
  1917.   _NET_VALIDATE_OUTPUT_ARG = record
  1918.     ChangedPersistedFields: NET_VALIDATE_PERSISTED_FIELDS;
  1919.     ValidationStatus: NET_API_STATUS;
  1920.   end;
  1921.   {$EXTERNALSYM _NET_VALIDATE_OUTPUT_ARG}
  1922.   NET_VALIDATE_OUTPUT_ARG = _NET_VALIDATE_OUTPUT_ARG;
  1923.   {$EXTERNALSYM NET_VALIDATE_OUTPUT_ARG}
  1924.   PNET_VALIDATE_OUTPUT_ARG = ^NET_VALIDATE_OUTPUT_ARG;
  1925.   {$EXTERNALSYM PNET_VALIDATE_OUTPUT_ARG}
  1926.   TNetValidateOutputArg = NET_VALIDATE_OUTPUT_ARG;
  1927.   PNetValidateOutputArg = PNET_VALIDATE_OUTPUT_ARG;  
  1929. //
  1930. //    If authentication type of password check is to be made,
  1931. //        this kind of input must be used
  1932. //        
  1933. //    InputPersistedFields: Information about the account to be logged into
  1934. //    PasswordMatched: Indicates the result of the application's authentication of the supplied password 
  1935. //
  1937.   _NET_VALIDATE_AUTHENTICATION_INPUT_ARG = record
  1938.     InputPersistedFields: NET_VALIDATE_PERSISTED_FIELDS;
  1939.     PasswordMatched: BOOLEAN;
  1940.   end;
  1941.   {$EXTERNALSYM _NET_VALIDATE_AUTHENTICATION_INPUT_ARG}
  1942.   NET_VALIDATE_AUTHENTICATION_INPUT_ARG = _NET_VALIDATE_AUTHENTICATION_INPUT_ARG;
  1943.   {$EXTERNALSYM NET_VALIDATE_AUTHENTICATION_INPUT_ARG}
  1944.   PNET_VALIDATE_AUTHENTICATION_INPUT_ARG = ^NET_VALIDATE_AUTHENTICATION_INPUT_ARG;
  1945.   {$EXTERNALSYM PNET_VALIDATE_AUTHENTICATION_INPUT_ARG}
  1946.   TNetValidateAuthenticationInputArg = NET_VALIDATE_AUTHENTICATION_INPUT_ARG;
  1947.   PNetValidateAuthenticationInputArg = PNET_VALIDATE_AUTHENTICATION_INPUT_ARG;
  1949. //
  1950. //    If password change type of check is to be made,
  1951. //        this kind of input must be used
  1952. //
  1953. //    InputPersistedFields: Information about the account to be logged into
  1954. //    ClearPassword: The string which password is going to be
  1955. //    UserAccountName: Name of the user account
  1956. //    HashedPassword: Hash of the string that the password is going to be
  1957. //    PasswordMatch: denotes if the old password supplied by user matched or not
  1958. //
  1960.   _NET_VALIDATE_PASSWORD_CHANGE_INPUT_ARG = record
  1961.     InputPersistedFields: NET_VALIDATE_PERSISTED_FIELDS;
  1962.     ClearPassword: LPWSTR;
  1963.     UserAccountName: LPWSTR;
  1964.     HashedPassword: NET_VALIDATE_PASSWORD_HASH;
  1965.     PasswordMatch: BOOLEAN;
  1966.   end;
  1967.   {$EXTERNALSYM _NET_VALIDATE_PASSWORD_CHANGE_INPUT_ARG}
  1968.   NET_VALIDATE_PASSWORD_CHANGE_INPUT_ARG = _NET_VALIDATE_PASSWORD_CHANGE_INPUT_ARG;
  1969.   {$EXTERNALSYM NET_VALIDATE_PASSWORD_CHANGE_INPUT_ARG}
  1970.   PNET_VALIDATE_PASSWORD_CHANGE_INPUT_ARG = ^NET_VALIDATE_PASSWORD_CHANGE_INPUT_ARG;
  1971.   {$EXTERNALSYM PNET_VALIDATE_PASSWORD_CHANGE_INPUT_ARG}
  1972.   TNetValidatePasswordChangeInputArg = NET_VALIDATE_PASSWORD_CHANGE_INPUT_ARG;
  1973.   PNetValidatePasswordChangeInputArg = PNET_VALIDATE_PASSWORD_CHANGE_INPUT_ARG;
  1975. //
  1976. //    If password reset type of check is to be made,
  1977. //        this kind of input must be used
  1978. //
  1979. //    InputPersistedFields: Information about the account to be logged into
  1980. //    ClearPassword: The string which password is going to be
  1981. //    UserAccountName: Name of the user account
  1982. //    HashedPassword: Hash of the string that the password is going to be
  1983. //    PasswordMustChangeAtNextLogon: Password must change for the user to be logged in
  1984. //    ClearLockout: If the account was locked out, this field can be used to clear lockout
  1985. //
  1987.   _NET_VALIDATE_PASSWORD_RESET_INPUT_ARG = record
  1988.     InputPersistedFields: NET_VALIDATE_PERSISTED_FIELDS;
  1989.     ClearPassword: LPWSTR;
  1990.     UserAccountName: LPWSTR;
  1991.     HashedPassword: NET_VALIDATE_PASSWORD_HASH;
  1992.     PasswordMustChangeAtNextLogon: BOOLEAN;
  1993.     ClearLockout: BOOLEAN;
  1994.   end;
  1995.   {$EXTERNALSYM _NET_VALIDATE_PASSWORD_RESET_INPUT_ARG}
  1996.   NET_VALIDATE_PASSWORD_RESET_INPUT_ARG = _NET_VALIDATE_PASSWORD_RESET_INPUT_ARG;
  1997.   {$EXTERNALSYM NET_VALIDATE_PASSWORD_RESET_INPUT_ARG}
  1998.   PNET_VALIDATE_PASSWORD_RESET_INPUT_ARG = ^NET_VALIDATE_PASSWORD_RESET_INPUT_ARG;
  1999.   {$EXTERNALSYM PNET_VALIDATE_PASSWORD_RESET_INPUT_ARG}
  2000.   TNetValidatePasswordResetInputArg = NET_VALIDATE_PASSWORD_RESET_INPUT_ARG;
  2001.   PNetValidatePasswordResetInputArg = PNET_VALIDATE_PASSWORD_RESET_INPUT_ARG;  
  2003. //
  2004. //    Password Checking API structures end here
  2005. //
  2007. function NetValidatePasswordPolicy(ServerName: LPWSTR; Qualifier: LPVOID; ValidationType: NET_VALIDATE_PASSWORD_TYPE;
  2008.   InputArg: LPVOID; var OutputArg: LPVOID): NET_API_STATUS; stdcall;
  2009. {$EXTERNALSYM NetValidatePasswordPolicy}
  2011. //
  2012. // Domain Class
  2013. //
  2015. //
  2016. // Function Prototypes - Domain
  2017. //
  2019. function NetGetDCName(servername, domainname: LPCWSTR; var bufptr: LPBYTE): NET_API_STATUS; stdcall;
  2020. {$EXTERNALSYM NetGetDCName}
  2022. function NetGetAnyDCName(servername, domainname: LPCWSTR; var bufptr: LPBYTE): NET_API_STATUS; stdcall;
  2023. {$EXTERNALSYM NetGetAnyDCName}
  2025. function I_NetLogonControl(ServerName: LPCWSTR; FunctionCode, QueryLevel: DWORD; var Buffer: LPBYTE): NET_API_STATUS; stdcall;
  2026. {$EXTERNALSYM I_NetLogonControl}
  2028. function I_NetLogonControl2(ServerName: LPCWSTR; FunctionCode, QueryLevel: DWORD; Data: LPBYTE; var Buffer: LPBYTE): NET_API_STATUS; stdcall;
  2029. {$EXTERNALSYM I_NetLogonControl2}
  2031. function NetEnumerateTrustedDomains(ServerName: LPWSTR; var DomainNames: LPWSTR): NTSTATUS; stdcall;
  2032. {$EXTERNALSYM NetEnumerateTrustedDomains}
  2034. //
  2035. // Special Values and Constants - Domain
  2036. //
  2038. //
  2039. // FunctionCode values for I_NetLogonControl.
  2040. //
  2041. // NOTE : if you change the following NETLOGON_CONTROL_* values,
  2042. // change them in netsvcdllslogonsrvlogon.idl file also.
  2043. //
  2045. const
  2046.   NETLOGON_CONTROL_QUERY            = 1; // No-op: just query
  2047.   {$EXTERNALSYM NETLOGON_CONTROL_QUERY}
  2048.   NETLOGON_CONTROL_REPLICATE        = 2; // Force replicate on BDC
  2049.   {$EXTERNALSYM NETLOGON_CONTROL_REPLICATE}
  2050.   NETLOGON_CONTROL_SYNCHRONIZE      = 3; // Force synchronize on BDC
  2051.   {$EXTERNALSYM NETLOGON_CONTROL_SYNCHRONIZE}
  2052.   NETLOGON_CONTROL_PDC_REPLICATE    = 4; // Force PDC to broadcast change
  2053.   {$EXTERNALSYM NETLOGON_CONTROL_PDC_REPLICATE}
  2054.   NETLOGON_CONTROL_REDISCOVER       = 5; // Force to re-discover trusted domain DCs
  2055.   {$EXTERNALSYM NETLOGON_CONTROL_REDISCOVER}
  2056.   NETLOGON_CONTROL_TC_QUERY         = 6; // Query status of specified trusted channel status
  2057.   {$EXTERNALSYM NETLOGON_CONTROL_TC_QUERY}
  2058.   NETLOGON_CONTROL_TRANSPORT_NOTIFY = 7; // Notify netlogon that a new transport has come online
  2059.   {$EXTERNALSYM NETLOGON_CONTROL_TRANSPORT_NOTIFY}
  2060.   NETLOGON_CONTROL_FIND_USER        = 8; // Find named user in a trusted domain
  2061.   {$EXTERNALSYM NETLOGON_CONTROL_FIND_USER}
  2062.   NETLOGON_CONTROL_CHANGE_PASSWORD  = 9; // Change machine password on a secure channel to a trusted domain
  2063.   {$EXTERNALSYM NETLOGON_CONTROL_CHANGE_PASSWORD}
  2064.   NETLOGON_CONTROL_TC_VERIFY        = 10; // Verify status of specified trusted channel
  2065.   {$EXTERNALSYM NETLOGON_CONTROL_TC_VERIFY}
  2066.   NETLOGON_CONTROL_FORCE_DNS_REG    = 11; // Force DNS re-registration of all registered records
  2067.   {$EXTERNALSYM NETLOGON_CONTROL_FORCE_DNS_REG}
  2068.   NETLOGON_CONTROL_QUERY_DNS_REG    = 12; // Query the status of DNS updates
  2069.   {$EXTERNALSYM NETLOGON_CONTROL_QUERY_DNS_REG}
  2071. // Debug function codes
  2073.   NETLOGON_CONTROL_UNLOAD_NETLOGON_DLL = $FFFB;
  2074.   {$EXTERNALSYM NETLOGON_CONTROL_UNLOAD_NETLOGON_DLL}
  2075.   NETLOGON_CONTROL_BACKUP_CHANGE_LOG   = $FFFC;
  2076.   {$EXTERNALSYM NETLOGON_CONTROL_BACKUP_CHANGE_LOG}
  2077.   NETLOGON_CONTROL_TRUNCATE_LOG        = $FFFD;
  2078.   {$EXTERNALSYM NETLOGON_CONTROL_TRUNCATE_LOG}
  2079.   NETLOGON_CONTROL_SET_DBFLAG          = $FFFE;
  2080.   {$EXTERNALSYM NETLOGON_CONTROL_SET_DBFLAG}
  2081.   NETLOGON_CONTROL_BREAKPOINT          = $FFFF;
  2082.   {$EXTERNALSYM NETLOGON_CONTROL_BREAKPOINT}
  2084. //
  2085. // Query level 1 for I_NetLogonControl
  2086. //
  2088. type
  2089.   PNETLOGON_INFO_1 = ^NETLOGON_INFO_1;
  2090.   {$EXTERNALSYM PNETLOGON_INFO_1}
  2091.   _NETLOGON_INFO_1 = record
  2092.     netlog1_flags: DWORD;
  2093.     netlog1_pdc_connection_status: NET_API_STATUS;
  2094.   end;
  2095.   {$EXTERNALSYM _NETLOGON_INFO_1}
  2096.   NETLOGON_INFO_1 = _NETLOGON_INFO_1;
  2097.   {$EXTERNALSYM NETLOGON_INFO_1}
  2098.   TNetLogonInfo1 = NETLOGON_INFO_1;
  2099.   PNetLogonInfo1 = PNETLOGON_INFO_1;
  2101.   PNETLOGON_INFO_2 = ^NETLOGON_INFO_2;
  2102.   {$EXTERNALSYM PNETLOGON_INFO_2}
  2103.   _NETLOGON_INFO_2 = record
  2104.     netlog2_flags: DWORD;
  2105.     //
  2106.     // If NETLOGON_VERIFY_STATUS_RETURNED bit is set in
  2107.     //  netlog2_flags, the following field will return
  2108.     //  the status of trust verification. Otherwise,
  2109.     //  the field will return the status of the secure
  2110.     //  channel to the primary domain of the machine
  2111.     //  (useful for BDCs only).
  2112.     //
  2113.     netlog2_pdc_connection_status: NET_API_STATUS;
  2114.     netlog2_trusted_dc_name: LPWSTR;
  2115.     netlog2_tc_connection_status: NET_API_STATUS;
  2116.   end;
  2117.   {$EXTERNALSYM _NETLOGON_INFO_2}
  2118.   NETLOGON_INFO_2 = _NETLOGON_INFO_2;
  2119.   {$EXTERNALSYM NETLOGON_INFO_2}
  2120.   TNetLogonInfo2 = NETLOGON_INFO_2;
  2121.   PNetLogonInfo2 = PNETLOGON_INFO_2;
  2123.   PNETLOGON_INFO_3 = ^NETLOGON_INFO_3;
  2124.   {$EXTERNALSYM PNETLOGON_INFO_3}
  2125.   _NETLOGON_INFO_3 = record
  2126.     netlog3_flags: DWORD;
  2127.     netlog3_logon_attempts: DWORD;
  2128.     netlog3_reserved1: DWORD;
  2129.     netlog3_reserved2: DWORD;
  2130.     netlog3_reserved3: DWORD;
  2131.     netlog3_reserved4: DWORD;
  2132.     netlog3_reserved5: DWORD;
  2133.   end;
  2134.   {$EXTERNALSYM _NETLOGON_INFO_3}
  2135.   NETLOGON_INFO_3 = _NETLOGON_INFO_3;
  2136.   {$EXTERNALSYM NETLOGON_INFO_3}
  2137.   TNetLogonInfo3 = NETLOGON_INFO_3;
  2138.   PNetLogonInfo3 = PNETLOGON_INFO_3;
  2140.   PNETLOGON_INFO_4 = ^NETLOGON_INFO_4;
  2141.   {$EXTERNALSYM PNETLOGON_INFO_4}
  2142.   _NETLOGON_INFO_4 = record
  2143.     netlog4_trusted_dc_name: LPWSTR;
  2144.     netlog4_trusted_domain_name: LPWSTR;
  2145.   end;
  2146.   {$EXTERNALSYM _NETLOGON_INFO_4}
  2147.   NETLOGON_INFO_4 = _NETLOGON_INFO_4;
  2148.   {$EXTERNALSYM NETLOGON_INFO_4}
  2149.   TNetLogonInfo4 = NETLOGON_INFO_4;
  2150.   PNetLogonInfo4 = PNETLOGON_INFO_4;
  2152. //
  2153. // Values of netlog1_flags
  2154. //
  2156. const
  2157.   NETLOGON_REPLICATION_NEEDED      = $01; // Database is out of date
  2158.   {$EXTERNALSYM NETLOGON_REPLICATION_NEEDED}
  2159.   NETLOGON_REPLICATION_IN_PROGRESS = $02; // Replication is happening now
  2160.   {$EXTERNALSYM NETLOGON_REPLICATION_IN_PROGRESS}
  2161.   NETLOGON_FULL_SYNC_REPLICATION   = $04; // full sync replication required/progress
  2162.   {$EXTERNALSYM NETLOGON_FULL_SYNC_REPLICATION}
  2163.   NETLOGON_REDO_NEEDED             = $08; // Redo of previous replication needed
  2164.   {$EXTERNALSYM NETLOGON_REDO_NEEDED}
  2165.   NETLOGON_HAS_IP                  = $10; // The trusted domain DC has an IP address
  2166.   {$EXTERNALSYM NETLOGON_HAS_IP}
  2167.   NETLOGON_HAS_TIMESERV            = $20; // The trusted domain DC runs the Windows Time Service
  2168.   {$EXTERNALSYM NETLOGON_HAS_TIMESERV}
  2169.   NETLOGON_DNS_UPDATE_FAILURE      = $40; // There was a failure in the last update for one of the DNS records
  2170.   {$EXTERNALSYM NETLOGON_DNS_UPDATE_FAILURE}
  2171.   NETLOGON_VERIFY_STATUS_RETURNED  = $80; // Trust verification status returned in netlog2_pdc_connection_status
  2172.   {$EXTERNALSYM NETLOGON_VERIFY_STATUS_RETURNED}
  2174. implementation
  2177. {$IFDEF DYNAMIC_LINK}
  2178. var
  2179.   _NetUserAdd: Pointer;
  2181. function NetUserAdd;
  2182. begin
  2183.   GetProcedureAddress(_NetUserAdd, netapi32, 'NetUserAdd');
  2184.   asm
  2185.     mov esp, ebp
  2186.     pop ebp
  2187.     jmp [_NetUserAdd]
  2188.   end;
  2189. end;
  2190. {$ELSE}
  2191. function NetUserAdd; external netapi32 name 'NetUserAdd';
  2192. {$ENDIF DYNAMIC_LINK}
  2194. {$IFDEF DYNAMIC_LINK}
  2195. var
  2196.   _NetUserEnum: Pointer;
  2198. function NetUserEnum;
  2199. begin
  2200.   GetProcedureAddress(_NetUserEnum, netapi32, 'NetUserEnum');
  2201.   asm
  2202.     mov esp, ebp
  2203.     pop ebp
  2204.     jmp [_NetUserEnum]
  2205.   end;
  2206. end;
  2207. {$ELSE}
  2208. function NetUserEnum; external netapi32 name 'NetUserEnum';
  2209. {$ENDIF DYNAMIC_LINK}
  2211. {$IFDEF DYNAMIC_LINK}
  2212. var
  2213.   _NetUserGetInfo: Pointer;
  2215. function NetUserGetInfo;
  2216. begin
  2217.   GetProcedureAddress(_NetUserGetInfo, netapi32, 'NetUserGetInfo');
  2218.   asm
  2219.     mov esp, ebp
  2220.     pop ebp
  2221.     jmp [_NetUserGetInfo]
  2222.   end;
  2223. end;
  2224. {$ELSE}
  2225. function NetUserGetInfo; external netapi32 name 'NetUserGetInfo';
  2226. {$ENDIF DYNAMIC_LINK}
  2228. {$IFDEF DYNAMIC_LINK}
  2229. var
  2230.   _NetUserSetInfo: Pointer;
  2232. function NetUserSetInfo;
  2233. begin
  2234.   GetProcedureAddress(_NetUserSetInfo, netapi32, 'NetUserSetInfo');
  2235.   asm
  2236.     mov esp, ebp
  2237.     pop ebp
  2238.     jmp [_NetUserSetInfo]
  2239.   end;
  2240. end;
  2241. {$ELSE}
  2242. function NetUserSetInfo; external netapi32 name 'NetUserSetInfo';
  2243. {$ENDIF DYNAMIC_LINK}
  2245. {$IFDEF DYNAMIC_LINK}
  2246. var
  2247.   _NetUserDel: Pointer;
  2249. function NetUserDel;
  2250. begin
  2251.   GetProcedureAddress(_NetUserDel, netapi32, 'NetUserDel');
  2252.   asm
  2253.     mov esp, ebp
  2254.     pop ebp
  2255.     jmp [_NetUserDel]
  2256.   end;
  2257. end;
  2258. {$ELSE}
  2259. function NetUserDel; external netapi32 name 'NetUserDel';
  2260. {$ENDIF DYNAMIC_LINK}
  2262. {$IFDEF DYNAMIC_LINK}
  2263. var
  2264.   _NetUserGetGroups: Pointer;
  2266. function NetUserGetGroups;
  2267. begin
  2268.   GetProcedureAddress(_NetUserGetGroups, netapi32, 'NetUserGetGroups');
  2269.   asm
  2270.     mov esp, ebp
  2271.     pop ebp
  2272.     jmp [_NetUserGetGroups]
  2273.   end;
  2274. end;
  2275. {$ELSE}
  2276. function NetUserGetGroups; external netapi32 name 'NetUserGetGroups';
  2277. {$ENDIF DYNAMIC_LINK}
  2279. {$IFDEF DYNAMIC_LINK}
  2280. var
  2281.   _NetUserSetGroups: Pointer;
  2283. function NetUserSetGroups;
  2284. begin
  2285.   GetProcedureAddress(_NetUserSetGroups, netapi32, 'NetUserSetGroups');
  2286.   asm
  2287.     mov esp, ebp
  2288.     pop ebp
  2289.     jmp [_NetUserSetGroups]
  2290.   end;
  2291. end;
  2292. {$ELSE}
  2293. function NetUserSetGroups; external netapi32 name 'NetUserSetGroups';
  2294. {$ENDIF DYNAMIC_LINK}
  2296. {$IFDEF DYNAMIC_LINK}
  2297. var
  2298.   _NetUserGetLocalGroups: Pointer;
  2300. function NetUserGetLocalGroups;
  2301. begin
  2302.   GetProcedureAddress(_NetUserGetLocalGroups, netapi32, 'NetUserGetLocalGroups');
  2303.   asm
  2304.     mov esp, ebp
  2305.     pop ebp
  2306.     jmp [_NetUserGetLocalGroups]
  2307.   end;
  2308. end;
  2309. {$ELSE}
  2310. function NetUserGetLocalGroups; external netapi32 name 'NetUserGetLocalGroups';
  2311. {$ENDIF DYNAMIC_LINK}
  2313. {$IFDEF DYNAMIC_LINK}
  2314. var
  2315.   _NetUserModalsGet: Pointer;
  2317. function NetUserModalsGet;
  2318. begin
  2319.   GetProcedureAddress(_NetUserModalsGet, netapi32, 'NetUserModalsGet');
  2320.   asm
  2321.     mov esp, ebp
  2322.     pop ebp
  2323.     jmp [_NetUserModalsGet]
  2324.   end;
  2325. end;
  2326. {$ELSE}
  2327. function NetUserModalsGet; external netapi32 name 'NetUserModalsGet';
  2328. {$ENDIF DYNAMIC_LINK}
  2330. {$IFDEF DYNAMIC_LINK}
  2331. var
  2332.   _NetUserModalsSet: Pointer;
  2334. function NetUserModalsSet;
  2335. begin
  2336.   GetProcedureAddress(_NetUserModalsSet, netapi32, 'NetUserModalsSet');
  2337.   asm
  2338.     mov esp, ebp
  2339.     pop ebp
  2340.     jmp [_NetUserModalsSet]
  2341.   end;
  2342. end;
  2343. {$ELSE}
  2344. function NetUserModalsSet; external netapi32 name 'NetUserModalsSet';
  2345. {$ENDIF DYNAMIC_LINK}
  2347. {$IFDEF DYNAMIC_LINK}
  2348. var
  2349.   _NetUserChangePassword: Pointer;
  2351. function NetUserChangePassword;
  2352. begin
  2353.   GetProcedureAddress(_NetUserChangePassword, netapi32, 'NetUserChangePassword');
  2354.   asm
  2355.     mov esp, ebp
  2356.     pop ebp
  2357.     jmp [_NetUserChangePassword]
  2358.   end;
  2359. end;
  2360. {$ELSE}
  2361. function NetUserChangePassword; external netapi32 name 'NetUserChangePassword';
  2362. {$ENDIF DYNAMIC_LINK}
  2364. {$IFDEF DYNAMIC_LINK}
  2365. var
  2366.   _NetGroupAdd: Pointer;
  2368. function NetGroupAdd;
  2369. begin
  2370.   GetProcedureAddress(_NetGroupAdd, netapi32, 'NetGroupAdd');
  2371.   asm
  2372.     mov esp, ebp
  2373.     pop ebp
  2374.     jmp [_NetGroupAdd]
  2375.   end;
  2376. end;
  2377. {$ELSE}
  2378. function NetGroupAdd; external netapi32 name 'NetGroupAdd';
  2379. {$ENDIF DYNAMIC_LINK}
  2381. {$IFDEF DYNAMIC_LINK}
  2382. var
  2383.   _NetGroupAddUser: Pointer;
  2385. function NetGroupAddUser;
  2386. begin
  2387.   GetProcedureAddress(_NetGroupAddUser, netapi32, 'NetGroupAddUser');
  2388.   asm
  2389.     mov esp, ebp
  2390.     pop ebp
  2391.     jmp [_NetGroupAddUser]
  2392.   end;
  2393. end;
  2394. {$ELSE}
  2395. function NetGroupAddUser; external netapi32 name 'NetGroupAddUser';
  2396. {$ENDIF DYNAMIC_LINK}
  2398. {$IFDEF DYNAMIC_LINK}
  2399. var
  2400.   _NetGroupEnum: Pointer;
  2402. function NetGroupEnum;
  2403. begin
  2404.   GetProcedureAddress(_NetGroupEnum, netapi32, 'NetGroupEnum;');
  2405.   asm
  2406.     mov esp, ebp
  2407.     pop ebp
  2408.     jmp [_NetGroupEnum]
  2409.   end;
  2410. end;
  2411. {$ELSE}
  2412. function NetGroupEnum; external netapi32 name 'NetGroupEnum;';
  2413. {$ENDIF DYNAMIC_LINK}
  2415. {$IFDEF DYNAMIC_LINK}
  2416. var
  2417.   _NetGroupGetInfo: Pointer;
  2419. function NetGroupGetInfo;
  2420. begin
  2421.   GetProcedureAddress(_NetGroupGetInfo, netapi32, 'NetGroupGetInfo');
  2422.   asm
  2423.     mov esp, ebp
  2424.     pop ebp
  2425.     jmp [_NetGroupGetInfo]
  2426.   end;
  2427. end;
  2428. {$ELSE}
  2429. function NetGroupGetInfo; external netapi32 name 'NetGroupGetInfo';
  2430. {$ENDIF DYNAMIC_LINK}
  2432. {$IFDEF DYNAMIC_LINK}
  2433. var
  2434.   _NetGroupSetInfo: Pointer;
  2436. function NetGroupSetInfo;
  2437. begin
  2438.   GetProcedureAddress(_NetGroupSetInfo, netapi32, 'NetGroupSetInfo');
  2439.   asm
  2440.     mov esp, ebp
  2441.     pop ebp
  2442.     jmp [_NetGroupSetInfo]
  2443.   end;
  2444. end;
  2445. {$ELSE}
  2446. function NetGroupSetInfo; external netapi32 name 'NetGroupSetInfo';
  2447. {$ENDIF DYNAMIC_LINK}
  2449. {$IFDEF DYNAMIC_LINK}
  2450. var
  2451.   _NetGroupDel: Pointer;
  2453. function NetGroupDel;
  2454. begin
  2455.   GetProcedureAddress(_NetGroupDel, netapi32, 'NetGroupDel');
  2456.   asm
  2457.     mov esp, ebp
  2458.     pop ebp
  2459.     jmp [_NetGroupDel]
  2460.   end;
  2461. end;
  2462. {$ELSE}
  2463. function NetGroupDel; external netapi32 name 'NetGroupDel';
  2464. {$ENDIF DYNAMIC_LINK}
  2466. {$IFDEF DYNAMIC_LINK}
  2467. var
  2468.   _NetGroupDelUser: Pointer;
  2470. function NetGroupDelUser;
  2471. begin
  2472.   GetProcedureAddress(_NetGroupDelUser, netapi32, 'NetGroupDelUser');
  2473.   asm
  2474.     mov esp, ebp
  2475.     pop ebp
  2476.     jmp [_NetGroupDelUser]
  2477.   end;
  2478. end;
  2479. {$ELSE}
  2480. function NetGroupDelUser; external netapi32 name 'NetGroupDelUser';
  2481. {$ENDIF DYNAMIC_LINK}
  2483. {$IFDEF DYNAMIC_LINK}
  2484. var
  2485.   _NetGroupGetUsers: Pointer;
  2487. function NetGroupGetUsers;
  2488. begin
  2489.   GetProcedureAddress(_NetGroupGetUsers, netapi32, 'NetGroupGetUsers');
  2490.   asm
  2491.     mov esp, ebp
  2492.     pop ebp
  2493.     jmp [_NetGroupGetUsers]
  2494.   end;
  2495. end;
  2496. {$ELSE}
  2497. function NetGroupGetUsers; external netapi32 name 'NetGroupGetUsers';
  2498. {$ENDIF DYNAMIC_LINK}
  2500. {$IFDEF DYNAMIC_LINK}
  2501. var
  2502.   _NetGroupSetUsers: Pointer;
  2504. function NetGroupSetUsers;
  2505. begin
  2506.   GetProcedureAddress(_NetGroupSetUsers, netapi32, 'NetGroupSetUsers');
  2507.   asm
  2508.     mov esp, ebp
  2509.     pop ebp
  2510.     jmp [_NetGroupSetUsers]
  2511.   end;
  2512. end;
  2513. {$ELSE}
  2514. function NetGroupSetUsers; external netapi32 name 'NetGroupSetUsers';
  2515. {$ENDIF DYNAMIC_LINK}
  2517. {$IFDEF DYNAMIC_LINK}
  2518. var
  2519.   _NetLocalGroupAdd: Pointer;
  2521. function NetLocalGroupAdd;
  2522. begin
  2523.   GetProcedureAddress(_NetLocalGroupAdd, netapi32, 'NetLocalGroupAdd');
  2524.   asm
  2525.     mov esp, ebp
  2526.     pop ebp
  2527.     jmp [_NetLocalGroupAdd]
  2528.   end;
  2529. end;
  2530. {$ELSE}
  2531. function NetLocalGroupAdd; external netapi32 name 'NetLocalGroupAdd';
  2532. {$ENDIF DYNAMIC_LINK}
  2534. {$IFDEF DYNAMIC_LINK}
  2535. var
  2536.   _NetLocalGroupAddMember: Pointer;
  2538. function NetLocalGroupAddMember;
  2539. begin
  2540.   GetProcedureAddress(_NetLocalGroupAddMember, netapi32, 'NetLocalGroupAddMember');
  2541.   asm
  2542.     mov esp, ebp
  2543.     pop ebp
  2544.     jmp [_NetLocalGroupAddMember]
  2545.   end;
  2546. end;
  2547. {$ELSE}
  2548. function NetLocalGroupAddMember; external netapi32 name 'NetLocalGroupAddMember';
  2549. {$ENDIF DYNAMIC_LINK}
  2551. {$IFDEF DYNAMIC_LINK}
  2552. var
  2553.   _NetLocalGroupEnum: Pointer;
  2555. function NetLocalGroupEnum;
  2556. begin
  2557.   GetProcedureAddress(_NetLocalGroupEnum, netapi32, 'NetLocalGroupEnum');
  2558.   asm
  2559.     mov esp, ebp
  2560.     pop ebp
  2561.     jmp [_NetLocalGroupEnum]
  2562.   end;
  2563. end;
  2564. {$ELSE}
  2565. function NetLocalGroupEnum; external netapi32 name 'NetLocalGroupEnum';
  2566. {$ENDIF DYNAMIC_LINK}
  2568. {$IFDEF DYNAMIC_LINK}
  2569. var
  2570.   _NetLocalGroupGetInfo: Pointer;
  2572. function NetLocalGroupGetInfo;
  2573. begin
  2574.   GetProcedureAddress(_NetLocalGroupGetInfo, netapi32, 'NetLocalGroupGetInfo');
  2575.   asm
  2576.     mov esp, ebp
  2577.     pop ebp
  2578.     jmp [_NetLocalGroupGetInfo]
  2579.   end;
  2580. end;
  2581. {$ELSE}
  2582. function NetLocalGroupGetInfo; external netapi32 name 'NetLocalGroupGetInfo';
  2583. {$ENDIF DYNAMIC_LINK}
  2585. {$IFDEF DYNAMIC_LINK}
  2586. var
  2587.   _NetLocalGroupSetInfo: Pointer;
  2589. function NetLocalGroupSetInfo;
  2590. begin
  2591.   GetProcedureAddress(_NetLocalGroupSetInfo, netapi32, 'NetLocalGroupSetInfo');
  2592.   asm
  2593.     mov esp, ebp
  2594.     pop ebp
  2595.     jmp [_NetLocalGroupSetInfo]
  2596.   end;
  2597. end;
  2598. {$ELSE}
  2599. function NetLocalGroupSetInfo; external netapi32 name 'NetLocalGroupSetInfo';
  2600. {$ENDIF DYNAMIC_LINK}
  2602. {$IFDEF DYNAMIC_LINK}
  2603. var
  2604.   _NetLocalGroupDel: Pointer;
  2606. function NetLocalGroupDel;
  2607. begin
  2608.   GetProcedureAddress(_NetLocalGroupDel, netapi32, 'NetLocalGroupDel');
  2609.   asm
  2610.     mov esp, ebp
  2611.     pop ebp
  2612.     jmp [_NetLocalGroupDel]
  2613.   end;
  2614. end;
  2615. {$ELSE}
  2616. function NetLocalGroupDel; external netapi32 name 'NetLocalGroupDel';
  2617. {$ENDIF DYNAMIC_LINK}
  2619. {$IFDEF DYNAMIC_LINK}
  2620. var
  2621.   _NetLocalGroupDelMember: Pointer;
  2623. function NetLocalGroupDelMember;
  2624. begin
  2625.   GetProcedureAddress(_NetLocalGroupDelMember, netapi32, 'NetLocalGroupDelMember');
  2626.   asm
  2627.     mov esp, ebp
  2628.     pop ebp
  2629.     jmp [_NetLocalGroupDelMember]
  2630.   end;
  2631. end;
  2632. {$ELSE}
  2633. function NetLocalGroupDelMember; external netapi32 name 'NetLocalGroupDelMember';
  2634. {$ENDIF DYNAMIC_LINK}
  2636. {$IFDEF DYNAMIC_LINK}
  2637. var
  2638.   _NetLocalGroupGetMembers: Pointer;
  2640. function NetLocalGroupGetMembers;
  2641. begin
  2642.   GetProcedureAddress(_NetLocalGroupGetMembers, netapi32, 'NetLocalGroupGetMembers');
  2643.   asm
  2644.     mov esp, ebp
  2645.     pop ebp
  2646.     jmp [_NetLocalGroupGetMembers]
  2647.   end;
  2648. end;
  2649. {$ELSE}
  2650. function NetLocalGroupGetMembers; external netapi32 name 'NetLocalGroupGetMembers';
  2651. {$ENDIF DYNAMIC_LINK}
  2653. {$IFDEF DYNAMIC_LINK}
  2654. var
  2655.   _NetLocalGroupSetMembers: Pointer;
  2657. function NetLocalGroupSetMembers;
  2658. begin
  2659.   GetProcedureAddress(_NetLocalGroupSetMembers, netapi32, 'NetLocalGroupSetMembers');
  2660.   asm
  2661.     mov esp, ebp
  2662.     pop ebp
  2663.     jmp [_NetLocalGroupSetMembers]
  2664.   end;
  2665. end;
  2666. {$ELSE}
  2667. function NetLocalGroupSetMembers; external netapi32 name 'NetLocalGroupSetMembers';
  2668. {$ENDIF DYNAMIC_LINK}
  2670. {$IFDEF DYNAMIC_LINK}
  2671. var
  2672.   _NetLocalGroupAddMembers: Pointer;
  2674. function NetLocalGroupAddMembers;
  2675. begin
  2676.   GetProcedureAddress(_NetLocalGroupAddMembers, netapi32, 'NetLocalGroupAddMembers');
  2677.   asm
  2678.     mov esp, ebp
  2679.     pop ebp
  2680.     jmp [_NetLocalGroupAddMembers]
  2681.   end;
  2682. end;
  2683. {$ELSE}
  2684. function NetLocalGroupAddMembers; external netapi32 name 'NetLocalGroupAddMembers';
  2685. {$ENDIF DYNAMIC_LINK}
  2687. {$IFDEF DYNAMIC_LINK}
  2688. var
  2689.   _NetLocalGroupDelMembers: Pointer;
  2691. function NetLocalGroupDelMembers;
  2692. begin
  2693.   GetProcedureAddress(_NetLocalGroupDelMembers, netapi32, 'NetLocalGroupDelMembers');
  2694.   asm
  2695.     mov esp, ebp
  2696.     pop ebp
  2697.     jmp [_NetLocalGroupDelMembers]
  2698.   end;
  2699. end;
  2700. {$ELSE}
  2701. function NetLocalGroupDelMembers; external netapi32 name 'NetLocalGroupDelMembers';
  2702. {$ENDIF DYNAMIC_LINK}
  2704. {$IFDEF DYNAMIC_LINK}
  2705. var
  2706.   _NetQueryDisplayInformation: Pointer;
  2708. function NetQueryDisplayInformation;
  2709. begin
  2710.   GetProcedureAddress(_NetQueryDisplayInformation, netapi32, 'NetQueryDisplayInformation');
  2711.   asm
  2712.     mov esp, ebp
  2713.     pop ebp
  2714.     jmp [_NetQueryDisplayInformation]
  2715.   end;
  2716. end;
  2717. {$ELSE}
  2718. function NetQueryDisplayInformation; external netapi32 name 'NetQueryDisplayInformation';
  2719. {$ENDIF DYNAMIC_LINK}
  2721. {$IFDEF DYNAMIC_LINK}
  2722. var
  2723.   _NetGetDisplayInformationIndex: Pointer;
  2725. function NetGetDisplayInformationIndex;
  2726. begin
  2727.   GetProcedureAddress(_NetGetDisplayInformationIndex, netapi32, 'NetGetDisplayInformationIndex');
  2728.   asm
  2729.     mov esp, ebp
  2730.     pop ebp
  2731.     jmp [_NetGetDisplayInformationIndex]
  2732.   end;
  2733. end;
  2734. {$ELSE}
  2735. function NetGetDisplayInformationIndex; external netapi32 name 'NetGetDisplayInformationIndex';
  2736. {$ENDIF DYNAMIC_LINK}
  2738. {$IFDEF DYNAMIC_LINK}
  2739. var
  2740.   _NetAccessAdd: Pointer;
  2742. function NetAccessAdd;
  2743. begin
  2744.   GetProcedureAddress(_NetAccessAdd, netapi32, 'NetAccessAdd');
  2745.   asm
  2746.     mov esp, ebp
  2747.     pop ebp
  2748.     jmp [_NetAccessAdd]
  2749.   end;
  2750. end;
  2751. {$ELSE}
  2752. function NetAccessAdd; external netapi32 name 'NetAccessAdd';
  2753. {$ENDIF DYNAMIC_LINK}
  2755. {$IFDEF DYNAMIC_LINK}
  2756. var
  2757.   _NetAccessEnum: Pointer;
  2759. function NetAccessEnum;
  2760. begin
  2761.   GetProcedureAddress(_NetAccessEnum, netapi32, 'NetAccessEnum');
  2762.   asm
  2763.     mov esp, ebp
  2764.     pop ebp
  2765.     jmp [_NetAccessEnum]
  2766.   end;
  2767. end;
  2768. {$ELSE}
  2769. function NetAccessEnum; external netapi32 name 'NetAccessEnum';
  2770. {$ENDIF DYNAMIC_LINK}
  2772. {$IFDEF DYNAMIC_LINK}
  2773. var
  2774.   _NetAccessGetInfo: Pointer;
  2776. function NetAccessGetInfo;
  2777. begin
  2778.   GetProcedureAddress(_NetAccessGetInfo, netapi32, 'NetAccessGetInfo');
  2779.   asm
  2780.     mov esp, ebp
  2781.     pop ebp
  2782.     jmp [_NetAccessGetInfo]
  2783.   end;
  2784. end;
  2785. {$ELSE}
  2786. function NetAccessGetInfo; external netapi32 name 'NetAccessGetInfo';
  2787. {$ENDIF DYNAMIC_LINK}
  2789. {$IFDEF DYNAMIC_LINK}
  2790. var
  2791.   _NetAccessSetInfo: Pointer;
  2793. function NetAccessSetInfo;
  2794. begin
  2795.   GetProcedureAddress(_NetAccessSetInfo, netapi32, 'NetAccessSetInfo');
  2796.   asm
  2797.     mov esp, ebp
  2798.     pop ebp
  2799.     jmp [_NetAccessSetInfo]
  2800.   end;
  2801. end;
  2802. {$ELSE}
  2803. function NetAccessSetInfo; external netapi32 name 'NetAccessSetInfo';
  2804. {$ENDIF DYNAMIC_LINK}
  2806. {$IFDEF DYNAMIC_LINK}
  2807. var
  2808.   _NetAccessDel: Pointer;
  2810. function NetAccessDel;
  2811. begin
  2812.   GetProcedureAddress(_NetAccessDel, netapi32, 'NetAccessDel');
  2813.   asm
  2814.     mov esp, ebp
  2815.     pop ebp
  2816.     jmp [_NetAccessDel]
  2817.   end;
  2818. end;
  2819. {$ELSE}
  2820. function NetAccessDel; external netapi32 name 'NetAccessDel';
  2821. {$ENDIF DYNAMIC_LINK}
  2823. {$IFDEF DYNAMIC_LINK}
  2824. var
  2825.   _NetAccessGetUserPerms: Pointer;
  2827. function NetAccessGetUserPerms;
  2828. begin
  2829.   GetProcedureAddress(_NetAccessGetUserPerms, netapi32, 'NetAccessGetUserPerms');
  2830.   asm
  2831.     mov esp, ebp
  2832.     pop ebp
  2833.     jmp [_NetAccessGetUserPerms]
  2834.   end;
  2835. end;
  2836. {$ELSE}
  2837. function NetAccessGetUserPerms; external netapi32 name 'NetAccessGetUserPerms';
  2838. {$ENDIF DYNAMIC_LINK}
  2840. {$IFDEF DYNAMIC_LINK}
  2841. var
  2842.   _NetValidatePasswordPolicy: Pointer;
  2844. function NetValidatePasswordPolicy;
  2845. begin
  2846.   GetProcedureAddress(_NetValidatePasswordPolicy, netapi32, 'NetValidatePasswordPolicy');
  2847.   asm
  2848.     mov esp, ebp
  2849.     pop ebp
  2850.     jmp [_NetValidatePasswordPolicy]
  2851.   end;
  2852. end;
  2853. {$ELSE}
  2854. function NetValidatePasswordPolicy; external netapi32 name 'NetValidatePasswordPolicy';
  2855. {$ENDIF DYNAMIC_LINK}
  2857. {$IFDEF DYNAMIC_LINK}
  2858. var
  2859.   _NetGetDCName: Pointer;
  2861. function NetGetDCName;
  2862. begin
  2863.   GetProcedureAddress(_NetGetDCName, netapi32, 'NetGetDCName');
  2864.   asm
  2865.     mov esp, ebp
  2866.     pop ebp
  2867.     jmp [_NetGetDCName]
  2868.   end;
  2869. end;
  2870. {$ELSE}
  2871. function NetGetDCName; external netapi32 name 'NetGetDCName';
  2872. {$ENDIF DYNAMIC_LINK}
  2874. {$IFDEF DYNAMIC_LINK}
  2875. var
  2876.   _NetGetAnyDCName: Pointer;
  2878. function NetGetAnyDCName;
  2879. begin
  2880.   GetProcedureAddress(_NetGetAnyDCName, netapi32, 'NetGetAnyDCName');
  2881.   asm
  2882.     mov esp, ebp
  2883.     pop ebp
  2884.     jmp [_NetGetAnyDCName]
  2885.   end;
  2886. end;
  2887. {$ELSE}
  2888. function NetGetAnyDCName; external netapi32 name 'NetGetAnyDCName';
  2889. {$ENDIF DYNAMIC_LINK}
  2891. {$IFDEF DYNAMIC_LINK}
  2892. var
  2893.   _I_NetLogonControl: Pointer;
  2895. function I_NetLogonControl;
  2896. begin
  2897.   GetProcedureAddress(_I_NetLogonControl, netapi32, 'I_NetLogonControl');
  2898.   asm
  2899.     mov esp, ebp
  2900.     pop ebp
  2901.     jmp [_I_NetLogonControl]
  2902.   end;
  2903. end;
  2904. {$ELSE}
  2905. function I_NetLogonControl; external netapi32 name 'I_NetLogonControl';
  2906. {$ENDIF DYNAMIC_LINK}
  2908. {$IFDEF DYNAMIC_LINK}
  2909. var
  2910.   _I_NetLogonControl2: Pointer;
  2912. function I_NetLogonControl2;
  2913. begin
  2914.   GetProcedureAddress(_I_NetLogonControl2, netapi32, 'I_NetLogonControl2');
  2915.   asm
  2916.     mov esp, ebp
  2917.     pop ebp
  2918.     jmp [_I_NetLogonControl2]
  2919.   end;
  2920. end;
  2921. {$ELSE}
  2922. function I_NetLogonControl2; external netapi32 name 'I_NetLogonControl2';
  2923. {$ENDIF DYNAMIC_LINK}
  2925. {$IFDEF DYNAMIC_LINK}
  2926. var
  2927.   _NetEnumerateTrustedDomains: Pointer;
  2929. function NetEnumerateTrustedDomains;
  2930. begin
  2931.   GetProcedureAddress(_NetEnumerateTrustedDomains, netapi32, 'NetEnumerateTrustedDomains');
  2932.   asm
  2933.     mov esp, ebp
  2934.     pop ebp
  2935.     jmp [_NetEnumerateTrustedDomains]
  2936.   end;
  2937. end;
  2938. {$ELSE}
  2939. function NetEnumerateTrustedDomains; external netapi32 name 'NetEnumerateTrustedDomains';
  2940. {$ENDIF DYNAMIC_LINK}
  2942. end.