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

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

Windows编程

开发平台：

Delphi

JwaLmAudit.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Lan Manager Audit 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: lmaudit.h, released November 2001. The original Pascal }
  9. { code is: LmAudit.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 JwaLmAudit;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "lmaudit.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57.   JwaLmCons, JwaWinType;
  59. type
  60.   _HLOG = record
  61.     time: DWORD;
  62.     last_flags: DWORD;
  63.     offset: DWORD;
  64.     rec_offset: DWORD;
  65.   end;
  66.   {$EXTERNALSYM _HLOG}
  67.   HLOG = _HLOG;
  68.   {$EXTERNALSYM HLOG}
  69.   LPHLOG = ^HLOG;
  70.   {$EXTERNALSYM LPHLOG}
  71.   PHLOG = ^HLOG;
  72.   {$EXTERNALSYM PHLOG}
  74. const
  75.   LOGFLAGS_FORWARD  = 0;
  76.   {$EXTERNALSYM LOGFLAGS_FORWARD}
  77.   LOGFLAGS_BACKWARD = $1;
  78.   {$EXTERNALSYM LOGFLAGS_BACKWARD}
  79.   LOGFLAGS_SEEK     = $2;
  80.   {$EXTERNALSYM LOGFLAGS_SEEK}
  82. //
  83. // Function Prototypes - Audit
  84. //
  86. function NetAuditClear(server, backupfile, service: LPCWSTR): NET_API_STATUS; stdcall;
  87. {$EXTERNALSYM NetAuditClear}
  89. function NetAuditRead(server, service: LPCWSTR; auditloghandle: LPHLOG; offset: DWORD; reserved1: LPDWORD; reserved2, offsetflag: DWORD; var bufptr: LPBYTE; prefmaxlen: DWORD; bytesread, totalavailable: LPDWORD): NET_API_STATUS; stdcall;
  90. {$EXTERNALSYM NetAuditRead}
  92. function NetAuditWrite(type_: DWORD; buf: LPBYTE; numbytes: DWORD; service: LPCWSTR; reserved: LPBYTE): NET_API_STATUS; stdcall;
  93. {$EXTERNALSYM NetAuditWrite}
  95. //
  96. // Data Structures - Audit
  97. //
  99. type
  100.   _AUDIT_ENTRY = record
  101.     ae_len: DWORD;
  102.     ae_reserved: DWORD;
  103.     ae_time: DWORD;
  104.     ae_type: DWORD;
  105.     ae_data_offset: DWORD; // Offset from beginning address of audit_entry
  106.     ae_data_size: DWORD; // byte count of ae_data area (not incl pad).
  107.   end;
  108.   {$EXTERNALSYM _AUDIT_ENTRY}
  109.   AUDIT_ENTRY = _AUDIT_ENTRY;
  110.   {$EXTERNALSYM AUDIT_ENTRY}
  111.   LPAUDIT_ENTRY = ^AUDIT_ENTRY;
  112.   {$EXTERNALSYM LPAUDIT_ENTRY}
  113.   PAUDIT_ENTRY = ^AUDIT_ENTRY;
  114.   {$EXTERNALSYM PAUDIT_ENTRY}
  115.   TAuditEntry = AUDIT_ENTRY;
  116.   PAuditEntry = PAUDIT_ENTRY;
  118. {$DEFINE REVISED_AUDIT_ENTRY_STRUCT}
  120.   _AE_SRVSTATUS = record
  121.     ae_sv_status: DWORD ;
  122.   end;
  123.   {$EXTERNALSYM _AE_SRVSTATUS}
  124.   //AE_SRVSTATUS = _AE_SRVSTATUS;
  125.   //{$EXTERNALSYM AE_SRVSTATUS}
  126.   LPAE_SRVSTATUS = ^_AE_SRVSTATUS;
  127.   {$EXTERNALSYM LPAE_SRVSTATUS}
  128.   PAE_SRVSTATUS = ^_AE_SRVSTATUS;
  129.   {$EXTERNALSYM PAE_SRVSTATUS}
  130.   TAeSrvStatus = _AE_SRVSTATUS;
  131.   PAeSrvStatus = PAE_SRVSTATUS;
  133.   _AE_SESSLOGON = record
  134.     ae_so_compname: DWORD;
  135.     ae_so_username: DWORD;
  136.     ae_so_privilege: DWORD;
  137.   end;
  138.   {$EXTERNALSYM _AE_SESSLOGON}
  139.   //AE_SESSLOGON = _AE_SESSLOGON;
  140.   //{$EXTERNALSYM AE_SESSLOGON}
  141.   LPAE_SESSLOGON = ^_AE_SESSLOGON;
  142.   {$EXTERNALSYM LPAE_SESSLOGON}
  143.   PAE_SESSLOGON = ^_AE_SESSLOGON;
  144.   {$EXTERNALSYM PAE_SESSLOGON}
  145.   TAeSessLogon = _AE_SESSLOGON;
  146.   PAeSessLogon = PAE_SESSLOGON;
  148.   _AE_SESSLOGOFF = record
  149.     ae_sf_compname: DWORD;
  150.     ae_sf_username: DWORD;
  151.     ae_sf_reason: DWORD;
  152.   end;
  153.   {$EXTERNALSYM _AE_SESSLOGOFF}
  154.   //AE_SESSLOGOFF = _AE_SESSLOGOFF;
  155.   //{$EXTERNALSYM AE_SESSLOGOFF}
  156.   LPAE_SESSLOGOFF = ^_AE_SESSLOGOFF;
  157.   {$EXTERNALSYM LPAE_SESSLOGOFF}
  158.   PAE_SESSLOGOFF = ^_AE_SESSLOGOFF;
  159.   {$EXTERNALSYM PAE_SESSLOGOFF}
  160.   TAeSessLogoff = _AE_SESSLOGOFF;
  161.   PAeSessLogoff = PAE_SESSLOGOFF;
  163.   _AE_SESSPWERR = record
  164.     ae_sp_compname: DWORD;
  165.     ae_sp_username: DWORD;
  166.   end;
  167.   {$EXTERNALSYM _AE_SESSPWERR}
  168.   //AE_SESSPWERR = _AE_SESSPWERR;
  169.   //{$EXTERNALSYM AE_SESSPWERR}
  170.   LPAE_SESSPWERR = ^_AE_SESSPWERR;
  171.   {$EXTERNALSYM LPAE_SESSPWERR}
  172.   PAE_SESSPWERR = ^_AE_SESSPWERR;
  173.   {$EXTERNALSYM PAE_SESSPWERR}
  174.   TAeSessPwerr = _AE_SESSPWERR;
  175.   PAeSessPwerr = PAE_SESSPWERR;
  177.   _AE_CONNSTART = record
  178.     ae_ct_compname: DWORD;
  179.     ae_ct_username: DWORD;
  180.     ae_ct_netname: DWORD;
  181.     ae_ct_connid: DWORD;
  182.   end;
  183.   {$EXTERNALSYM _AE_CONNSTART}
  184.   //AE_CONNSTART = _AE_CONNSTART;
  185.   //{$EXTERNALSYM AE_CONNSTART}
  186.   LPAE_CONNSTART = ^_AE_CONNSTART;
  187.   {$EXTERNALSYM LPAE_CONNSTART}
  188.   PAE_CONNSTART = ^_AE_CONNSTART;
  189.   {$EXTERNALSYM PAE_CONNSTART}
  190.   TAeConnStart = _AE_CONNSTART;
  191.   PAeConnStart = PAE_CONNSTART;
  193.   _AE_CONNSTOP = record
  194.     ae_cp_compname: DWORD;
  195.     ae_cp_username: DWORD;
  196.     ae_cp_netname: DWORD;
  197.     ae_cp_connid: DWORD;
  198.     ae_cp_reason: DWORD;
  199.   end;
  200.   {$EXTERNALSYM _AE_CONNSTOP}
  201.   //AE_CONNSTOP = _AE_CONNSTOP;
  202.   //{$EXTERNALSYM AE_CONNSTOP}
  203.   LPAE_CONNSTOP = ^_AE_CONNSTOP;
  204.   {$EXTERNALSYM LPAE_CONNSTOP}
  205.   PAE_CONNSTOP = ^_AE_CONNSTOP;
  206.   {$EXTERNALSYM PAE_CONNSTOP}
  207.   TAeConnStop = _AE_CONNSTOP;
  208.   PAeConnStop = PAE_CONNSTOP;
  210.   _AE_CONNREJ = record
  211.     ae_cr_compname: DWORD;
  212.     ae_cr_username: DWORD;
  213.     ae_cr_netname: DWORD;
  214.     ae_cr_reason: DWORD;
  215.   end;
  216.   {$EXTERNALSYM _AE_CONNREJ}
  217.   //AE_CONNREJ = _AE_CONNREJ;
  218.   //{$EXTERNALSYM AE_CONNREJ}
  219.   LPAE_CONNREJ = ^_AE_CONNREJ;
  220.   {$EXTERNALSYM LPAE_CONNREJ}
  221.   PAE_CONNREJ = ^_AE_CONNREJ;
  222.   {$EXTERNALSYM PAE_CONNREJ}
  223.   TAeConnRej = _AE_CONNREJ;
  224.   PAeConnRej = PAE_CONNREJ;
  226.   _AE_RESACCESS = record
  227.     ae_ra_compname: DWORD;
  228.     ae_ra_username: DWORD;
  229.     ae_ra_resname: DWORD;
  230.     ae_ra_operation: DWORD;
  231.     ae_ra_returncode: DWORD;
  232.     ae_ra_restype: DWORD;
  233.     ae_ra_fileid: DWORD;
  234.   end;
  235.   {$EXTERNALSYM _AE_RESACCESS}
  236.   //AE_RESACCESS = _AE_RESACCESS;
  237.   //{$EXTERNALSYM AE_RESACCESS}
  238.   LPAE_RESACCESS = ^_AE_RESACCESS;
  239.   {$EXTERNALSYM LPAE_RESACCESS}
  240.   PAE_RESACCESS = ^_AE_RESACCESS;
  241.   {$EXTERNALSYM PAE_RESACCESS}
  242.   TAeResAccess = _AE_RESACCESS;
  243.   PAeResAccess = PAE_RESACCESS;
  245.   _AE_RESACCESSREJ = record
  246.     ae_rr_compname: DWORD;
  247.     ae_rr_username: DWORD;
  248.     ae_rr_resname: DWORD;
  249.     ae_rr_operation: DWORD;
  250.   end;
  251.   {$EXTERNALSYM _AE_RESACCESSREJ}
  252.   //AE_RESACCESSREJ = _AE_RESACCESSREJ;
  253.   //{$EXTERNALSYM AE_RESACCESSREJ}
  254.   LPAE_RESACCESSREJ = ^_AE_RESACCESSREJ;
  255.   {$EXTERNALSYM LPAE_RESACCESSREJ}
  256.   PAE_RESACCESSREJ = ^_AE_RESACCESSREJ;
  257.   {$EXTERNALSYM PAE_RESACCESSREJ}
  258.   TAeResAccessRej = _AE_RESACCESSREJ;
  259.   PAeResAccessRej = PAE_RESACCESSREJ;
  261.   _AE_CLOSEFILE = record
  262.     ae_cf_compname: DWORD;
  263.     ae_cf_username: DWORD;
  264.     ae_cf_resname: DWORD;
  265.     ae_cf_fileid: DWORD;
  266.     ae_cf_duration: DWORD;
  267.     ae_cf_reason: DWORD;
  268.   end;
  269.   {$EXTERNALSYM _AE_CLOSEFILE}
  270.   //AE_CLOSEFILE = _AE_CLOSEFILE;
  271.   //{$EXTERNALSYM AE_CLOSEFILE}
  272.   LPAE_CLOSEFILE = ^_AE_CLOSEFILE;
  273.   {$EXTERNALSYM LPAE_CLOSEFILE}
  274.   PAE_CLOSEFILE = ^_AE_CLOSEFILE;
  275.   {$EXTERNALSYM PAE_CLOSEFILE}
  276.   TAeCloseFile = _AE_CLOSEFILE;
  277.   PAeCloseFile = PAE_CLOSEFILE;
  279.   _AE_SERVICESTAT = record
  280.     ae_ss_compname: DWORD;
  281.     ae_ss_username: DWORD;
  282.     ae_ss_svcname: DWORD;
  283.     ae_ss_status: DWORD;
  284.     ae_ss_code: DWORD;
  285.     ae_ss_text: DWORD;
  286.     ae_ss_returnval: DWORD;
  287.   end;
  288.   {$EXTERNALSYM _AE_SERVICESTAT}
  289.   //AE_SERVICESTAT = _AE_SERVICESTAT;
  290.   //{$EXTERNALSYM AE_SERVICESTAT}
  291.   LPAE_SERVICESTAT = ^_AE_SERVICESTAT;
  292.   {$EXTERNALSYM LPAE_SERVICESTAT}
  293.   PAE_SERVICESTAT = ^_AE_SERVICESTAT;
  294.   {$EXTERNALSYM PAE_SERVICESTAT}
  295.   TAeServiceStat = _AE_SERVICESTAT;
  296.   PAeServiceStat = PAE_SERVICESTAT;
  298.   _AE_ACLMOD = record
  299.     ae_am_compname: DWORD;
  300.     ae_am_username: DWORD;
  301.     ae_am_resname: DWORD;
  302.     ae_am_action: DWORD;
  303.     ae_am_datalen: DWORD;
  304.   end;
  305.   {$EXTERNALSYM _AE_ACLMOD}
  306.   //AE_ACLMOD = _AE_ACLMOD;
  307.   //{$EXTERNALSYM AE_ACLMOD}
  308.   LPAE_ACLMOD = ^_AE_ACLMOD;
  309.   {$EXTERNALSYM LPAE_ACLMOD}
  310.   PAE_ACLMOD = ^_AE_ACLMOD;
  311.   {$EXTERNALSYM PAE_ACLMOD}
  312.   TAeAclMod = _AE_ACLMOD;
  313.   PAeAclMod = PAE_ACLMOD;
  315.   _AE_UASMOD = record
  316.     ae_um_compname: DWORD;
  317.     ae_um_username: DWORD;
  318.     ae_um_resname: DWORD;
  319.     ae_um_rectype: DWORD;
  320.     ae_um_action: DWORD;
  321.     ae_um_datalen: DWORD;
  322.   end;
  323.   {$EXTERNALSYM _AE_UASMOD}
  324.   //AE_UASMOD = _AE_UASMOD;
  325.   //{$EXTERNALSYM AE_UASMOD}
  326.   LPAE_UASMOD = ^_AE_UASMOD;
  327.   {$EXTERNALSYM LPAE_UASMOD}
  328.   PAE_UASMOD = ^_AE_UASMOD;
  329.   {$EXTERNALSYM PAE_UASMOD}
  330.   TAeUasMod = _AE_UASMOD;
  331.   PAeUasMod = PAE_UASMOD;
  333.   _AE_NETLOGON = record
  334.     ae_no_compname: DWORD;
  335.     ae_no_username: DWORD;
  336.     ae_no_privilege: DWORD;
  337.     ae_no_authflags: DWORD;
  338.   end;
  339.   {$EXTERNALSYM _AE_NETLOGON}
  340.   //AE_NETLOGON = _AE_NETLOGON;
  341.   //{$EXTERNALSYM AE_NETLOGON}
  342.   LPAE_NETLOGON = ^_AE_NETLOGON;
  343.   {$EXTERNALSYM LPAE_NETLOGON}
  344.   PAE_NETLOGON = ^_AE_NETLOGON;
  345.   {$EXTERNALSYM PAE_NETLOGON}
  346.   TAeNetLogon = _AE_NETLOGON;
  347.   PAeNetLogon = PAE_NETLOGON;
  349.   _AE_NETLOGOFF = record
  350.     ae_nf_compname: DWORD;
  351.     ae_nf_username: DWORD;
  352.     ae_nf_reserved1: DWORD;
  353.     ae_nf_reserved2: DWORD;
  354.   end;
  355.   {$EXTERNALSYM _AE_NETLOGOFF}
  356.   //AE_NETLOGOFF = _AE_NETLOGOFF;
  357.   //{$EXTERNALSYM AE_NETLOGOFF}
  358.   LPAE_NETLOGOFF = ^_AE_NETLOGOFF;
  359.   {$EXTERNALSYM LPAE_NETLOGOFF}
  360.   PAE_NETLOGOFF = ^_AE_NETLOGOFF;
  361.   {$EXTERNALSYM PAE_NETLOGOFF}
  362.   TAeNetLogoff = _AE_NETLOGOFF;
  363.   PAeNetLogoff = PAE_NETLOGOFF;
  365.   _AE_ACCLIM = record
  366.     ae_al_compname: DWORD;
  367.     ae_al_username: DWORD;
  368.     ae_al_resname: DWORD;
  369.     ae_al_limit: DWORD;
  370.   end;
  371.   {$EXTERNALSYM _AE_ACCLIM}
  372.   //AE_ACCLIM = _AE_ACCLIM;
  373.   //{$EXTERNALSYM AE_ACCLIM}
  374.   LPAE_ACCLIM = ^_AE_ACCLIM;
  375.   {$EXTERNALSYM LPAE_ACCLIM}
  376.   PAE_ACCLIM = ^_AE_ACCLIM;
  377.   {$EXTERNALSYM PAE_ACCLIM}
  378.   TAeAccLim = _AE_ACCLIM;
  379.   PAeAccLim = PAE_ACCLIM;
  381. const
  382.   ACTION_LOCKOUT     = 0;
  383.   {$EXTERNALSYM ACTION_LOCKOUT}
  384.   ACTION_ADMINUNLOCK = 1;
  385.   {$EXTERNALSYM ACTION_ADMINUNLOCK}
  387. type
  388.   _AE_LOCKOUT = record
  389.     ae_lk_compname: DWORD; // Ptr to computername of client.
  390.     ae_lk_username: DWORD; // Ptr to username of client (NULL
  391.     //  if same as computername).
  392.     ae_lk_action: DWORD; // Action taken on account:
  393.     // 0 means locked out, 1 means not.
  394.     ae_lk_bad_pw_count: DWORD; // Bad password count at the time
  395.     // of lockout.
  396.   end;
  397.   {$EXTERNALSYM _AE_LOCKOUT}
  398.   //AE_LOCKOUT = _AE_LOCKOUT;
  399.   //{$EXTERNALSYM AE_LOCKOUT}
  400.   LPAE_LOCKOUT = ^_AE_LOCKOUT;
  401.   {$EXTERNALSYM LPAE_LOCKOUT}
  402.   PAE_LOCKOUT = ^_AE_LOCKOUT;
  403.   {$EXTERNALSYM PAE_LOCKOUT}
  404.   TAeLockout = _AE_LOCKOUT;
  405.   PAeLockout = PAE_LOCKOUT;
  407.   _AE_GENERIC = record
  408.     ae_ge_msgfile: DWORD;
  409.     ae_ge_msgnum: DWORD;
  410.     ae_ge_params: DWORD;
  411.     ae_ge_param1: DWORD;
  412.     ae_ge_param2: DWORD;
  413.     ae_ge_param3: DWORD;
  414.     ae_ge_param4: DWORD;
  415.     ae_ge_param5: DWORD;
  416.     ae_ge_param6: DWORD;
  417.     ae_ge_param7: DWORD;
  418.     ae_ge_param8: DWORD;
  419.     ae_ge_param9: DWORD;
  420.   end;
  421.   {$EXTERNALSYM _AE_GENERIC}
  422.   //AE_GENERIC = _AE_GENERIC;
  423.   //{$EXTERNALSYM AE_GENERIC}
  424.   LPAE_GENERIC = ^_AE_GENERIC;
  425.   {$EXTERNALSYM LPAE_GENERIC}
  426.   PAE_GENERIC = ^_AE_GENERIC;
  427.   {$EXTERNALSYM PAE_GENERIC}
  428.   TAeGeneric = _AE_GENERIC;
  429.   PAeGeneric = PAE_GENERIC;
  431. //
  432. // Special Values and Constants - Audit
  433. //
  435. //
  436. //  Audit entry types (field ae_type in audit_entry).
  437. //
  439. const
  440.   AE_SRVSTATUS    = 0;
  441.   {$EXTERNALSYM AE_SRVSTATUS}
  442.   AE_SESSLOGON    = 1;
  443.   {$EXTERNALSYM AE_SESSLOGON}
  444.   AE_SESSLOGOFF   = 2;
  445.   {$EXTERNALSYM AE_SESSLOGOFF}
  446.   AE_SESSPWERR    = 3;
  447.   {$EXTERNALSYM AE_SESSPWERR}
  448.   AE_CONNSTART    = 4;
  449.   {$EXTERNALSYM AE_CONNSTART}
  450.   AE_CONNSTOP     = 5;
  451.   {$EXTERNALSYM AE_CONNSTOP}
  452.   AE_CONNREJ      = 6;
  453.   {$EXTERNALSYM AE_CONNREJ}
  454.   AE_RESACCESS    = 7;
  455.   {$EXTERNALSYM AE_RESACCESS}
  456.   AE_RESACCESSREJ = 8;
  457.   {$EXTERNALSYM AE_RESACCESSREJ}
  458.   AE_CLOSEFILE    = 9;
  459.   {$EXTERNALSYM AE_CLOSEFILE}
  460.   AE_SERVICESTAT  = 11;
  461.   {$EXTERNALSYM AE_SERVICESTAT}
  462.   AE_ACLMOD       = 12;
  463.   {$EXTERNALSYM AE_ACLMOD}
  464.   AE_UASMOD       = 13;
  465.   {$EXTERNALSYM AE_UASMOD}
  466.   AE_NETLOGON     = 14;
  467.   {$EXTERNALSYM AE_NETLOGON}
  468.   AE_NETLOGOFF    = 15;
  469.   {$EXTERNALSYM AE_NETLOGOFF}
  470.   AE_NETLOGDENIED = 16;
  471.   {$EXTERNALSYM AE_NETLOGDENIED}
  472.   AE_ACCLIMITEXCD = 17;
  473.   {$EXTERNALSYM AE_ACCLIMITEXCD}
  474.   AE_RESACCESS2   = 18;
  475.   {$EXTERNALSYM AE_RESACCESS2}
  476.   AE_ACLMODFAIL   = 19;
  477.   {$EXTERNALSYM AE_ACLMODFAIL}
  478.   AE_LOCKOUT      = 20;
  479.   {$EXTERNALSYM AE_LOCKOUT}
  480.   AE_GENERIC_TYPE = 21;
  481.   {$EXTERNALSYM AE_GENERIC_TYPE}
  483. //
  484. // Values for ae_ss_status field of ae_srvstatus.
  485. //
  487.   AE_SRVSTART  = 0;
  488.   {$EXTERNALSYM AE_SRVSTART}
  489.   AE_SRVPAUSED = 1;
  490.   {$EXTERNALSYM AE_SRVPAUSED}
  491.   AE_SRVCONT   = 2;
  492.   {$EXTERNALSYM AE_SRVCONT}
  493.   AE_SRVSTOP   = 3;
  494.   {$EXTERNALSYM AE_SRVSTOP}
  496. //
  497. //  Values for ae_so_privilege field of ae_sesslogon.
  498. //
  500.   AE_GUEST = 0;
  501.   {$EXTERNALSYM AE_GUEST}
  502.   AE_USER  = 1;
  503.   {$EXTERNALSYM AE_USER}
  504.   AE_ADMIN = 2;
  505.   {$EXTERNALSYM AE_ADMIN}
  507. //
  508. // Values for various ae_XX_reason fields.
  509. //
  511.   AE_NORMAL        = 0;
  512.   {$EXTERNALSYM AE_NORMAL}
  513.   AE_USERLIMIT     = 0;
  514.   {$EXTERNALSYM AE_USERLIMIT}
  515.   AE_GENERAL       = 0;
  516.   {$EXTERNALSYM AE_GENERAL}
  517.   AE_ERROR         = 1;
  518.   {$EXTERNALSYM AE_ERROR}
  519.   AE_SESSDIS       = 1;
  520.   {$EXTERNALSYM AE_SESSDIS}
  521.   AE_BADPW         = 1;
  522.   {$EXTERNALSYM AE_BADPW}
  523.   AE_AUTODIS       = 2;
  524.   {$EXTERNALSYM AE_AUTODIS}
  525.   AE_UNSHARE       = 2;
  526.   {$EXTERNALSYM AE_UNSHARE}
  527.   AE_ADMINPRIVREQD = 2;
  528.   {$EXTERNALSYM AE_ADMINPRIVREQD}
  529.   AE_ADMINDIS      = 3;
  530.   {$EXTERNALSYM AE_ADMINDIS}
  531.   AE_NOACCESSPERM  = 3;
  532.   {$EXTERNALSYM AE_NOACCESSPERM}
  533.   AE_ACCRESTRICT   = 4;
  534.   {$EXTERNALSYM AE_ACCRESTRICT}
  536.   AE_NORMAL_CLOSE = 0;
  537.   {$EXTERNALSYM AE_NORMAL_CLOSE}
  538.   AE_SES_CLOSE    = 1;
  539.   {$EXTERNALSYM AE_SES_CLOSE}
  540.   AE_ADMIN_CLOSE  = 2;
  541.   {$EXTERNALSYM AE_ADMIN_CLOSE}
  543. //
  544. // Values for xx_subreason fields.
  545. //
  547.   AE_LIM_UNKNOWN     = 0;
  548.   {$EXTERNALSYM AE_LIM_UNKNOWN}
  549.   AE_LIM_LOGONHOURS  = 1;
  550.   {$EXTERNALSYM AE_LIM_LOGONHOURS}
  551.   AE_LIM_EXPIRED     = 2;
  552.   {$EXTERNALSYM AE_LIM_EXPIRED}
  553.   AE_LIM_INVAL_WKSTA = 3;
  554.   {$EXTERNALSYM AE_LIM_INVAL_WKSTA}
  555.   AE_LIM_DISABLED    = 4;
  556.   {$EXTERNALSYM AE_LIM_DISABLED}
  557.   AE_LIM_DELETED     = 5;
  558.   {$EXTERNALSYM AE_LIM_DELETED}
  560. //
  561. // Values for xx_action fields
  562. //
  564.   AE_MOD    = 0;
  565.   {$EXTERNALSYM AE_MOD}
  566.   AE_DELETE = 1;
  567.   {$EXTERNALSYM AE_DELETE}
  568.   AE_ADD    = 2;
  569.   {$EXTERNALSYM AE_ADD}
  571. //
  572. // Types of UAS record for um_rectype field
  573. //
  575.   AE_UAS_USER   = 0;
  576.   {$EXTERNALSYM AE_UAS_USER}
  577.   AE_UAS_GROUP  = 1;
  578.   {$EXTERNALSYM AE_UAS_GROUP}
  579.   AE_UAS_MODALS = 2;
  580.   {$EXTERNALSYM AE_UAS_MODALS}
  582. //
  583. // Bitmasks for auditing events
  584. //
  585. // The parentheses around the hex constants broke h_to_inc
  586. // and have been purged from the face of the earth.
  587. //
  589.   SVAUD_SERVICE       = $1;
  590.   {$EXTERNALSYM SVAUD_SERVICE}
  591.   SVAUD_GOODSESSLOGON = $6;
  592.   {$EXTERNALSYM SVAUD_GOODSESSLOGON}
  593.   SVAUD_BADSESSLOGON  = $18;
  594.   {$EXTERNALSYM SVAUD_BADSESSLOGON}
  595.   SVAUD_SESSLOGON     = (SVAUD_GOODSESSLOGON or SVAUD_BADSESSLOGON);
  596.   {$EXTERNALSYM SVAUD_SESSLOGON}
  597.   SVAUD_GOODNETLOGON  = $60;
  598.   {$EXTERNALSYM SVAUD_GOODNETLOGON}
  599.   SVAUD_BADNETLOGON   = $180;
  600.   {$EXTERNALSYM SVAUD_BADNETLOGON}
  601.   SVAUD_NETLOGON      = (SVAUD_GOODNETLOGON or SVAUD_BADNETLOGON);
  602.   {$EXTERNALSYM SVAUD_NETLOGON}
  603.   SVAUD_LOGON         = (SVAUD_NETLOGON or SVAUD_SESSLOGON);
  604.   {$EXTERNALSYM SVAUD_LOGON}
  605.   SVAUD_GOODUSE       = $600;
  606.   {$EXTERNALSYM SVAUD_GOODUSE}
  607.   SVAUD_BADUSE        = $1800;
  608.   {$EXTERNALSYM SVAUD_BADUSE}
  609.   SVAUD_USE           = (SVAUD_GOODUSE or SVAUD_BADUSE);
  610.   {$EXTERNALSYM SVAUD_USE}
  611.   SVAUD_USERLIST      = $2000;
  612.   {$EXTERNALSYM SVAUD_USERLIST}
  613.   SVAUD_PERMISSIONS   = $4000;
  614.   {$EXTERNALSYM SVAUD_PERMISSIONS}
  615.   SVAUD_RESOURCE      = $8000;
  616.   {$EXTERNALSYM SVAUD_RESOURCE}
  617.   SVAUD_LOGONLIM      = $00010000;
  618.   {$EXTERNALSYM SVAUD_LOGONLIM}
  620. //
  621. // Resource access audit bitmasks.
  622. //
  624.   AA_AUDIT_ALL = $0001;
  625.   {$EXTERNALSYM AA_AUDIT_ALL}
  626.   AA_A_OWNER   = $0004;
  627.   {$EXTERNALSYM AA_A_OWNER}
  628.   AA_CLOSE     = $0008;
  629.   {$EXTERNALSYM AA_CLOSE}
  630.   AA_S_OPEN    = $0010;
  631.   {$EXTERNALSYM AA_S_OPEN}
  632.   AA_S_WRITE   = $0020;
  633.   {$EXTERNALSYM AA_S_WRITE}
  634.   AA_S_CREATE  = $0020;
  635.   {$EXTERNALSYM AA_S_CREATE}
  636.   AA_S_DELETE  = $0040;
  637.   {$EXTERNALSYM AA_S_DELETE}
  638.   AA_S_ACL     = $0080;
  639.   {$EXTERNALSYM AA_S_ACL}
  640.   AA_S_ALL     = ( AA_S_OPEN or AA_S_WRITE or AA_S_DELETE or AA_S_ACL);
  641.   {$EXTERNALSYM AA_S_ALL}
  642.   AA_F_OPEN    = $0100;
  643.   {$EXTERNALSYM AA_F_OPEN}
  644.   AA_F_WRITE   = $0200;
  645.   {$EXTERNALSYM AA_F_WRITE}
  646.   AA_F_CREATE  = $0200;
  647.   {$EXTERNALSYM AA_F_CREATE}
  648.   AA_F_DELETE  = $0400;
  649.   {$EXTERNALSYM AA_F_DELETE}
  650.   AA_F_ACL     = $0800;
  651.   {$EXTERNALSYM AA_F_ACL}
  652.   AA_F_ALL     = ( AA_F_OPEN or AA_F_WRITE or AA_F_DELETE or AA_F_ACL);
  653.   {$EXTERNALSYM AA_F_ALL}
  655. // Pinball-specific
  657.   AA_A_OPEN   = $1000;
  658.   {$EXTERNALSYM AA_A_OPEN}
  659.   AA_A_WRITE  = $2000;
  660.   {$EXTERNALSYM AA_A_WRITE}
  661.   AA_A_CREATE = $2000;
  662.   {$EXTERNALSYM AA_A_CREATE}
  663.   AA_A_DELETE = $4000;
  664.   {$EXTERNALSYM AA_A_DELETE}
  665.   AA_A_ACL    = $8000;
  666.   {$EXTERNALSYM AA_A_ACL}
  667.   AA_A_ALL    = (AA_F_OPEN or AA_F_WRITE or AA_F_DELETE or AA_F_ACL);
  668.   {$EXTERNALSYM AA_A_ALL}
  670. implementation
  673. {$IFDEF DYNAMIC_LINK}
  674. var
  675.   _NetAuditClear: Pointer;
  677. function NetAuditClear;
  678. begin
  679.   GetProcedureAddress(_NetAuditClear, netapi32, 'NetAuditClear');
  680.   asm
  681.     mov esp, ebp
  682.     pop ebp
  683.     jmp [_NetAuditClear]
  684.   end;
  685. end;
  686. {$ELSE}
  687. function NetAuditClear; external netapi32 name 'NetAuditClear';
  688. {$ENDIF DYNAMIC_LINK}
  690. {$IFDEF DYNAMIC_LINK}
  691. var
  692.   _NetAuditRead: Pointer;
  694. function NetAuditRead;
  695. begin
  696.   GetProcedureAddress(_NetAuditRead, netapi32, 'NetAuditRead');
  697.   asm
  698.     mov esp, ebp
  699.     pop ebp
  700.     jmp [_NetAuditRead]
  701.   end;
  702. end;
  703. {$ELSE}
  704. function NetAuditRead; external netapi32 name 'NetAuditRead';
  705. {$ENDIF DYNAMIC_LINK}
  707. {$IFDEF DYNAMIC_LINK}
  708. var
  709.   _NetAuditWrite: Pointer;
  711. function NetAuditWrite;
  712. begin
  713.   GetProcedureAddress(_NetAuditWrite, netapi32, 'NetAuditWrite');
  714.   asm
  715.     mov esp, ebp
  716.     pop ebp
  717.     jmp [_NetAuditWrite]
  718.   end;
  719. end;
  720. {$ELSE}
  721. function NetAuditWrite; external netapi32 name 'NetAuditWrite';
  722. {$ENDIF DYNAMIC_LINK}
  724. end.