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

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

Windows编程

开发平台：

Delphi

JwaSubAuth.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Subauthentication packages 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: subauth.h, released June 2000. The original Pascal     }
  9. { code is: SubAuth.pas, released December 2000. 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 JwaSubAuth;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "subauth.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57.   JwaWinType;
  59. type
  60.   SAM_HANDLE = PVOID;
  61.   {$EXTERNALSYM SAM_HANDLE}
  62.   PSAM_HANDLE = ^SAM_HANDLE;
  63.   {$EXTERNALSYM PSAM_HANDLE}
  65.   POLD_LARGE_INTEGER = ^OLD_LARGE_INTEGER;
  66.   {$EXTERNALSYM POLD_LARGE_INTEGER}
  67.   _OLD_LARGE_INTEGER = record
  68.     LowPart: ULONG;
  69.     HighPart: LONG;
  70.   end;
  71.   {$EXTERNALSYM _OLD_LARGE_INTEGER}
  72.   OLD_LARGE_INTEGER = _OLD_LARGE_INTEGER;
  73.   {$EXTERNALSYM OLD_LARGE_INTEGER}
  74.   TOldLargeInteger = OLD_LARGE_INTEGER;
  75.   POldLargeInteger = POLD_LARGE_INTEGER;
  77. //
  78. // User account control flags...
  79. //
  81. const
  82.   USER_ACCOUNT_DISABLED                = ($00000001);
  83.   {$EXTERNALSYM USER_ACCOUNT_DISABLED}
  84.   USER_HOME_DIRECTORY_REQUIRED         = ($00000002);
  85.   {$EXTERNALSYM USER_HOME_DIRECTORY_REQUIRED}
  86.   USER_PASSWORD_NOT_REQUIRED           = ($00000004);
  87.   {$EXTERNALSYM USER_PASSWORD_NOT_REQUIRED}
  88.   USER_TEMP_DUPLICATE_ACCOUNT          = ($00000008);
  89.   {$EXTERNALSYM USER_TEMP_DUPLICATE_ACCOUNT}
  90.   USER_NORMAL_ACCOUNT                  = ($00000010);
  91.   {$EXTERNALSYM USER_NORMAL_ACCOUNT}
  92.   USER_MNS_LOGON_ACCOUNT               = ($00000020);
  93.   {$EXTERNALSYM USER_MNS_LOGON_ACCOUNT}
  94.   USER_INTERDOMAIN_TRUST_ACCOUNT       = ($00000040);
  95.   {$EXTERNALSYM USER_INTERDOMAIN_TRUST_ACCOUNT}
  96.   USER_WORKSTATION_TRUST_ACCOUNT       = ($00000080);
  97.   {$EXTERNALSYM USER_WORKSTATION_TRUST_ACCOUNT}
  98.   USER_SERVER_TRUST_ACCOUNT            = ($00000100);
  99.   {$EXTERNALSYM USER_SERVER_TRUST_ACCOUNT}
  100.   USER_DONT_EXPIRE_PASSWORD            = ($00000200);
  101.   {$EXTERNALSYM USER_DONT_EXPIRE_PASSWORD}
  102.   USER_ACCOUNT_AUTO_LOCKED             = ($00000400);
  103.   {$EXTERNALSYM USER_ACCOUNT_AUTO_LOCKED}
  104.   USER_ENCRYPTED_TEXT_PASSWORD_ALLOWED = ($00000800);
  105.   {$EXTERNALSYM USER_ENCRYPTED_TEXT_PASSWORD_ALLOWED}
  106.   USER_SMARTCARD_REQUIRED              = ($00001000);
  107.   {$EXTERNALSYM USER_SMARTCARD_REQUIRED}
  108.   USER_TRUSTED_FOR_DELEGATION          = ($00002000);
  109.   {$EXTERNALSYM USER_TRUSTED_FOR_DELEGATION}
  110.   USER_NOT_DELEGATED                   = ($00004000);
  111.   {$EXTERNALSYM USER_NOT_DELEGATED}
  112.   USER_USE_DES_KEY_ONLY                = ($00008000);
  113.   {$EXTERNALSYM USER_USE_DES_KEY_ONLY}
  114.   USER_DONT_REQUIRE_PREAUTH            = ($00010000);
  115.   {$EXTERNALSYM USER_DONT_REQUIRE_PREAUTH}
  116.   USER_PASSWORD_EXPIRED                = ($00020000);
  117.   {$EXTERNALSYM USER_PASSWORD_EXPIRED}
  118.   USER_TRUSTED_TO_AUTHENTICATE_FOR_DELEGATION = ($00040000);
  119.   {$EXTERNALSYM USER_TRUSTED_TO_AUTHENTICATE_FOR_DELEGATION}
  120.   NEXT_FREE_ACCOUNT_CONTROL_BIT        = (USER_TRUSTED_TO_AUTHENTICATE_FOR_DELEGATION shl 1);
  121.   {$EXTERNALSYM NEXT_FREE_ACCOUNT_CONTROL_BIT}
  123.   USER_MACHINE_ACCOUNT_MASK = USER_INTERDOMAIN_TRUST_ACCOUNT or USER_WORKSTATION_TRUST_ACCOUNT or USER_SERVER_TRUST_ACCOUNT;
  124.   {$EXTERNALSYM USER_MACHINE_ACCOUNT_MASK}
  125.   USER_ACCOUNT_TYPE_MASK    = USER_TEMP_DUPLICATE_ACCOUNT or USER_NORMAL_ACCOUNT or USER_MACHINE_ACCOUNT_MASK;
  126.   {$EXTERNALSYM USER_ACCOUNT_TYPE_MASK}
  128.   USER_COMPUTED_ACCOUNT_CONTROL_BITS = USER_ACCOUNT_AUTO_LOCKED or USER_PASSWORD_EXPIRED;
  129.   {$EXTERNALSYM USER_COMPUTED_ACCOUNT_CONTROL_BITS}
  131. //
  132. // Logon times may be expressed in day, hour, or minute granularity.
  133. //
  134. //              Days per week    = 7
  135. //              Hours per week   = 168
  136. //              Minutes per week = 10080
  137. //
  139.   SAM_DAYS_PER_WEEK    = (7);
  140.   {$EXTERNALSYM SAM_DAYS_PER_WEEK}
  141.   SAM_HOURS_PER_WEEK   = (24 * SAM_DAYS_PER_WEEK);
  142.   {$EXTERNALSYM SAM_HOURS_PER_WEEK}
  143.   SAM_MINUTES_PER_WEEK = (60 * SAM_HOURS_PER_WEEK);
  144.   {$EXTERNALSYM SAM_MINUTES_PER_WEEK}
  146. type
  147.   PLOGON_HOURS = ^LOGON_HOURS;
  148.   {$EXTERNALSYM PLOGON_HOURS}
  149.   _LOGON_HOURS = record
  150.     UnitsPerWeek: USHORT;
  151.     //
  152.     // UnitsPerWeek is the number of equal length time units the week is
  153.     // divided into.  This value is used to compute the length of the bit
  154.     // string in logon_hours.  Must be less than or equal to
  155.     // SAM_UNITS_PER_WEEK (10080) for this release.
  156.     //
  157.     // LogonHours is a bit map of valid logon times.  Each bit represents
  158.     // a unique division in a week.  The largest bit map supported is 1260
  159.     // bytes (10080 bits), which represents minutes per week.  In this case
  160.     // the first bit (bit 0, byte 0) is Sunday, 00:00:00 - 00-00:59; bit 1,
  161.     // byte 0 is Sunday, 00:01:00 - 00:01:59, etc.  A NULL pointer means
  162.     // DONT_CHANGE for SamSetInformationUser() calls.
  163.     //
  164.     LogonHours: PUCHAR;
  165.   end;
  166.   {$EXTERNALSYM _LOGON_HOURS}
  167.   LOGON_HOURS = _LOGON_HOURS;
  168.   {$EXTERNALSYM LOGON_HOURS}
  169.   TLogonHours = LOGON_HOURS;
  170.   PLogonHours = PLOGON_HOURS;
  172.   PSR_SECURITY_DESCRIPTOR = ^SR_SECURITY_DESCRIPTOR;
  173.   {$EXTERNALSYM PSR_SECURITY_DESCRIPTOR}
  174.   _SR_SECURITY_DESCRIPTOR = record
  175.     Length: ULONG;
  176.     SecurityDescriptor: PUCHAR;
  177.   end;
  178.   {$EXTERNALSYM _SR_SECURITY_DESCRIPTOR}
  179.   SR_SECURITY_DESCRIPTOR = _SR_SECURITY_DESCRIPTOR;
  180.   {$EXTERNALSYM SR_SECURITY_DESCRIPTOR}
  181.   TSrSecurityDescriptor = SR_SECURITY_DESCRIPTOR;
  182.   PSrSecurityDescriptor = PSR_SECURITY_DESCRIPTOR;
  184. // #include "pshpack4.h"
  186.   PUSER_ALL_INFORMATION = ^USER_ALL_INFORMATION;
  187.   {$EXTERNALSYM PUSER_ALL_INFORMATION}
  188.   _USER_ALL_INFORMATION = record
  189.     LastLogon: LARGE_INTEGER;
  190.     LastLogoff: LARGE_INTEGER;
  191.     PasswordLastSet: LARGE_INTEGER;
  192.     AccountExpires: LARGE_INTEGER;
  193.     PasswordCanChange: LARGE_INTEGER;
  194.     PasswordMustChange: LARGE_INTEGER;
  195.     UserName: UNICODE_STRING;
  196.     FullName: UNICODE_STRING;
  197.     HomeDirectory: UNICODE_STRING;
  198.     HomeDirectoryDrive: UNICODE_STRING;
  199.     ScriptPath: UNICODE_STRING;
  200.     ProfilePath: UNICODE_STRING;
  201.     AdminComment: UNICODE_STRING;
  202.     WorkStations: UNICODE_STRING;
  203.     UserComment: UNICODE_STRING;
  204.     Parameters: UNICODE_STRING;
  205.     LmPassword: UNICODE_STRING;
  206.     NtPassword: UNICODE_STRING;
  207.     PrivateData: UNICODE_STRING;
  208.     SecurityDescriptor: SR_SECURITY_DESCRIPTOR;
  209.     UserId: ULONG;
  210.     PrimaryGroupId: ULONG;
  211.     UserAccountControl: ULONG;
  212.     WhichFields: ULONG;
  213.     LogonHours: LOGON_HOURS;
  214.     BadPasswordCount: USHORT;
  215.     LogonCount: USHORT;
  216.     CountryCode: USHORT;
  217.     CodePage: USHORT;
  218.     LmPasswordPresent: ByteBool;
  219.     NtPasswordPresent: ByteBool;
  220.     PasswordExpired: ByteBool;
  221.     PrivateDataSensitive: ByteBool;
  222.   end;
  223.   {$EXTERNALSYM _USER_ALL_INFORMATION}
  224.   USER_ALL_INFORMATION = _USER_ALL_INFORMATION;
  225.   {$EXTERNALSYM USER_ALL_INFORMATION}
  226.   TUserAllInformation = USER_ALL_INFORMATION;
  227.   PUserAllInformation = PUSER_ALL_INFORMATION;
  229. // #include "poppack.h"
  231. const
  232.   USER_ALL_PARAMETERS = $00200000;
  233.   {$EXTERNALSYM USER_ALL_PARAMETERS}
  235.   CLEAR_BLOCK_LENGTH = 8;
  236.   {$EXTERNALSYM CLEAR_BLOCK_LENGTH}
  238. type
  239.   PCLEAR_BLOCK = ^CLEAR_BLOCK;
  240.   {$EXTERNALSYM PCLEAR_BLOCK}
  241.   _CLEAR_BLOCK = record
  242.     data: array [0..CLEAR_BLOCK_LENGTH - 1] of CHAR;
  243.   end;
  244.   {$EXTERNALSYM _CLEAR_BLOCK}
  245.   CLEAR_BLOCK = _CLEAR_BLOCK;
  246.   {$EXTERNALSYM CLEAR_BLOCK}
  247.   TClearBlock = CLEAR_BLOCK;
  248.   PClearBlock = PCLEAR_BLOCK;
  250. const
  251.   CYPHER_BLOCK_LENGTH = 8;
  252.   {$EXTERNALSYM CYPHER_BLOCK_LENGTH}
  254. type
  255.   PCYPHER_BLOCK = ^CYPHER_BLOCK;
  256.   {$EXTERNALSYM PCYPHER_BLOCK}
  257.   _CYPHER_BLOCK = record
  258.     data: array [0..CYPHER_BLOCK_LENGTH - 1] of CHAR;
  259.   end;
  260.   {$EXTERNALSYM _CYPHER_BLOCK}
  261.   CYPHER_BLOCK = _CYPHER_BLOCK;
  262.   {$EXTERNALSYM CYPHER_BLOCK}
  263.   TCypherBlock = CYPHER_BLOCK;
  264.   PCypherBlock = PCYPHER_BLOCK;
  266.   PLM_OWF_PASSWORD = ^LM_OWF_PASSWORD;
  267.   {$EXTERNALSYM PLM_OWF_PASSWORD}
  268.   _LM_OWF_PASSWORD = record
  269.     data: array [0..1] of CYPHER_BLOCK;
  270.   end;
  271.   {$EXTERNALSYM _LM_OWF_PASSWORD}
  272.   LM_OWF_PASSWORD = _LM_OWF_PASSWORD;
  273.   {$EXTERNALSYM LM_OWF_PASSWORD}
  274.   TLmOwfPassword = LM_OWF_PASSWORD;
  275.   PLmOwfPassword = PLM_OWF_PASSWORD;
  277.   LM_CHALLENGE = CLEAR_BLOCK;
  278.   {$EXTERNALSYM LM_CHALLENGE}
  279.   PLM_CHALLENGE = ^LM_CHALLENGE;
  280.   {$EXTERNALSYM PLM_CHALLENGE}
  281.   NT_OWF_PASSWORD = LM_OWF_PASSWORD;
  282.   {$EXTERNALSYM NT_OWF_PASSWORD}
  283.   PNT_OWF_PASSWORD = ^NT_OWF_PASSWORD;
  284.   {$EXTERNALSYM PNT_OWF_PASSWORD}
  285.   NT_CHALLENGE = LM_CHALLENGE;
  286.   {$EXTERNALSYM NT_CHALLENGE}
  287.   PNT_CHALLENGE = ^NT_CHALLENGE;
  288.   {$EXTERNALSYM PNT_CHALLENGE}
  290. const
  291.   USER_SESSION_KEY_LENGTH = (CYPHER_BLOCK_LENGTH * 2);
  292.   {$EXTERNALSYM USER_SESSION_KEY_LENGTH}
  294. type
  295.   PUSER_SESSION_KEY = ^USER_SESSION_KEY;
  296.   {$EXTERNALSYM PUSER_SESSION_KEY}
  297.   _USER_SESSION_KEY = record
  298.     data: array [0..1] of CYPHER_BLOCK;
  299.   end;
  300.   {$EXTERNALSYM _USER_SESSION_KEY}
  301.   USER_SESSION_KEY = _USER_SESSION_KEY;
  302.   {$EXTERNALSYM USER_SESSION_KEY}
  303.   TUserSessionKey = USER_SESSION_KEY;
  304.   PUserSessionKey = PUSER_SESSION_KEY;
  306.   _NETLOGON_LOGON_INFO_CLASS = (
  307.     NetlogonFiller0,
  308.     NetlogonInteractiveInformation,
  309.     NetlogonNetworkInformation,
  310.     NetlogonServiceInformation,
  311.     NetlogonGenericInformation,
  312.     NetlogonInteractiveTransitiveInformation,
  313.     NetlogonNetworkTransitiveInformation,
  314.     NetlogonServiceTransitiveInformation);
  315.   {$EXTERNALSYM _NETLOGON_LOGON_INFO_CLASS}
  316.   NETLOGON_LOGON_INFO_CLASS = _NETLOGON_LOGON_INFO_CLASS;
  317.   {$EXTERNALSYM NETLOGON_LOGON_INFO_CLASS}
  319.   PNETLOGON_LOGON_IDENTITY_INFO = ^NETLOGON_LOGON_IDENTITY_INFO;
  320.   {$EXTERNALSYM PNETLOGON_LOGON_IDENTITY_INFO}
  321.   _NETLOGON_LOGON_IDENTITY_INFO = record
  322.     LogonDomainName: UNICODE_STRING;
  323.     ParameterControl: ULONG;
  324.     LogonId: OLD_LARGE_INTEGER;
  325.     UserName: UNICODE_STRING;
  326.     Workstation: UNICODE_STRING;
  327.   end;
  328.   {$EXTERNALSYM _NETLOGON_LOGON_IDENTITY_INFO}
  329.   NETLOGON_LOGON_IDENTITY_INFO = _NETLOGON_LOGON_IDENTITY_INFO;
  330.   {$EXTERNALSYM NETLOGON_LOGON_IDENTITY_INFO}
  331.   TNetlogonLogonIdentityInfo = NETLOGON_LOGON_IDENTITY_INFO;
  332.   PNetlogonLogonIdentityInfo = PNETLOGON_LOGON_IDENTITY_INFO;
  334.   PNETLOGON_INTERACTIVE_INFO = ^NETLOGON_INTERACTIVE_INFO;
  335.   {$EXTERNALSYM PNETLOGON_INTERACTIVE_INFO}
  336.   _NETLOGON_INTERACTIVE_INFO = record
  337.     Identity: NETLOGON_LOGON_IDENTITY_INFO;
  338.     LmOwfPassword: LM_OWF_PASSWORD;
  339.     NtOwfPassword: NT_OWF_PASSWORD;
  340.   end;
  341.   {$EXTERNALSYM _NETLOGON_INTERACTIVE_INFO}
  342.   NETLOGON_INTERACTIVE_INFO = _NETLOGON_INTERACTIVE_INFO;
  343.   {$EXTERNALSYM NETLOGON_INTERACTIVE_INFO}
  344.   TNetlogonInteractiveInfo = NETLOGON_INTERACTIVE_INFO;
  345.   PNetlogonInteractiveInfo = PNETLOGON_INTERACTIVE_INFO;
  347.   PNETLOGON_SERVICE_INFO = ^NETLOGON_SERVICE_INFO;
  348.   {$EXTERNALSYM PNETLOGON_SERVICE_INFO}
  349.   _NETLOGON_SERVICE_INFO = record
  350.     Identity: NETLOGON_LOGON_IDENTITY_INFO;
  351.     LmOwfPassword: LM_OWF_PASSWORD;
  352.     NtOwfPassword: NT_OWF_PASSWORD;
  353.   end;
  354.   {$EXTERNALSYM _NETLOGON_SERVICE_INFO}
  355.   NETLOGON_SERVICE_INFO = _NETLOGON_SERVICE_INFO;
  356.   {$EXTERNALSYM NETLOGON_SERVICE_INFO}
  357.   TNetlogonServiceInfo = NETLOGON_SERVICE_INFO;
  358.   PNetlogonServiceInfo = PNETLOGON_SERVICE_INFO;
  360.   PNETLOGON_NETWORK_INFO = ^NETLOGON_NETWORK_INFO;
  361.   {$EXTERNALSYM PNETLOGON_NETWORK_INFO}
  362.   _NETLOGON_NETWORK_INFO = record
  363.     Identity: NETLOGON_LOGON_IDENTITY_INFO;
  364.     LmChallenge: LM_CHALLENGE;
  365.     NtChallengeResponse: STRING;
  366.     LmChallengeResponse: STRING;
  367.   end;
  368.   {$EXTERNALSYM _NETLOGON_NETWORK_INFO}
  369.   NETLOGON_NETWORK_INFO = _NETLOGON_NETWORK_INFO;
  370.   {$EXTERNALSYM NETLOGON_NETWORK_INFO}
  371.   TNetlogonNetworkInfo = NETLOGON_NETWORK_INFO;
  372.   PNetlogonNetworkInfo = PNETLOGON_NETWORK_INFO;
  374.   PNETLOGON_GENERIC_INFO = ^NETLOGON_GENERIC_INFO;
  375.   {$EXTERNALSYM PNETLOGON_GENERIC_INFO}
  376.   _NETLOGON_GENERIC_INFO = record
  377.     Identity: NETLOGON_LOGON_IDENTITY_INFO;
  378.     PackageName: UNICODE_STRING;
  379.     DataLength: ULONG;
  380.     LogonData: PUCHAR;
  381.   end;
  382.   {$EXTERNALSYM _NETLOGON_GENERIC_INFO}
  383.   NETLOGON_GENERIC_INFO = _NETLOGON_GENERIC_INFO;
  384.   {$EXTERNALSYM NETLOGON_GENERIC_INFO}
  385.   TNetlogonGenericInfo = NETLOGON_GENERIC_INFO;
  386.   PNetlogonGenericInfo = PNETLOGON_GENERIC_INFO;
  388. // Values for Flags
  390. const
  391.   MSV1_0_PASSTHRU    = $01;
  392.   {$EXTERNALSYM MSV1_0_PASSTHRU}
  393.   MSV1_0_GUEST_LOGON = $02;
  394.   {$EXTERNALSYM MSV1_0_GUEST_LOGON}
  396. //function Msv1_0SubAuthenticationRoutine(LogonLevel: NETLOGON_LOGON_INFO_CLASS;
  397. //  LogonInformation: PVOID; Flags: ULONG; UserAll: PUSER_ALL_INFORMATION;
  398. //  WhichFields, UserFlags: PULONG; Authoritative: PBOOLEAN; LogoffTime,
  399. //  KickoffTime: PLARGE_INTEGER): NTSTATUS; stdcall;
  400. //{$EXTERNALSYM Msv1_0SubAuthenticationRoutine}
  402. type
  403.   PMSV1_0_VALIDATION_INFO = ^MSV1_0_VALIDATION_INFO;
  404.   {$EXTERNALSYM PMSV1_0_VALIDATION_INFO}
  405.   _MSV1_0_VALIDATION_INFO = record
  406.     LogoffTime: LARGE_INTEGER;
  407.     KickoffTime: LARGE_INTEGER;
  408.     LogonServer: UNICODE_STRING;
  409.     LogonDomainName: UNICODE_STRING;
  410.     SessionKey: USER_SESSION_KEY;
  411.     Authoritative: ByteBool;
  412.     UserFlags: ULONG;
  413.     WhichFields: ULONG;
  414.     UserId: ULONG;
  415.   end;
  416.   {$EXTERNALSYM _MSV1_0_VALIDATION_INFO}
  417.   MSV1_0_VALIDATION_INFO = _MSV1_0_VALIDATION_INFO;
  418.   {$EXTERNALSYM MSV1_0_VALIDATION_INFO}
  419.   TMsv10ValidationInfo = MSV1_0_VALIDATION_INFO;
  420.   PMsv10ValidationInfo = PMSV1_0_VALIDATION_INFO;
  422. // values for WhichFields
  424. const
  425.   MSV1_0_VALIDATION_LOGOFF_TIME  = $00000001;
  426.   {$EXTERNALSYM MSV1_0_VALIDATION_LOGOFF_TIME}
  427.   MSV1_0_VALIDATION_KICKOFF_TIME = $00000002;
  428.   {$EXTERNALSYM MSV1_0_VALIDATION_KICKOFF_TIME}
  429.   MSV1_0_VALIDATION_LOGON_SERVER = $00000004;
  430.   {$EXTERNALSYM MSV1_0_VALIDATION_LOGON_SERVER}
  431.   MSV1_0_VALIDATION_LOGON_DOMAIN = $00000008;
  432.   {$EXTERNALSYM MSV1_0_VALIDATION_LOGON_DOMAIN}
  433.   MSV1_0_VALIDATION_SESSION_KEY  = $00000010;
  434.   {$EXTERNALSYM MSV1_0_VALIDATION_SESSION_KEY}
  435.   MSV1_0_VALIDATION_USER_FLAGS   = $00000020;
  436.   {$EXTERNALSYM MSV1_0_VALIDATION_USER_FLAGS}
  437.   MSV1_0_VALIDATION_USER_ID      = $00000040;
  438.   {$EXTERNALSYM MSV1_0_VALIDATION_USER_ID}
  440. // legal values for ActionsPerformed
  442.   MSV1_0_SUBAUTH_ACCOUNT_DISABLED = $00000001;
  443.   {$EXTERNALSYM MSV1_0_SUBAUTH_ACCOUNT_DISABLED}
  444.   MSV1_0_SUBAUTH_PASSWORD         = $00000002;
  445.   {$EXTERNALSYM MSV1_0_SUBAUTH_PASSWORD}
  446.   MSV1_0_SUBAUTH_WORKSTATIONS     = $00000004;
  447.   {$EXTERNALSYM MSV1_0_SUBAUTH_WORKSTATIONS}
  448.   MSV1_0_SUBAUTH_LOGON_HOURS      = $00000008;
  449.   {$EXTERNALSYM MSV1_0_SUBAUTH_LOGON_HOURS}
  450.   MSV1_0_SUBAUTH_ACCOUNT_EXPIRY   = $00000010;
  451.   {$EXTERNALSYM MSV1_0_SUBAUTH_ACCOUNT_EXPIRY}
  452.   MSV1_0_SUBAUTH_PASSWORD_EXPIRY  = $00000020;
  453.   {$EXTERNALSYM MSV1_0_SUBAUTH_PASSWORD_EXPIRY}
  454.   MSV1_0_SUBAUTH_ACCOUNT_TYPE     = $00000040;
  455.   {$EXTERNALSYM MSV1_0_SUBAUTH_ACCOUNT_TYPE}
  456.   MSV1_0_SUBAUTH_LOCKOUT          = $00000080;
  457.   {$EXTERNALSYM MSV1_0_SUBAUTH_LOCKOUT}
  459. //function Msv1_0SubAuthenticationRoutineEx(LogonLevel: NETLOGON_LOGON_INFO_CLASS;
  460. //  LogonInformation: PVOID; Flags: ULONG; UserAll: PUSER_ALL_INFORMATION;
  461. //  UserHandle: SAM_HANDLE; ValidationInfo: PMSV1_0_VALIDATION_INFO;
  462. //  ActionsPerformed: PULONG): NTSTATUS; stdcall;
  463. //{$EXTERNALSYM Msv1_0SubAuthenticationRoutineEx}
  465. //function Msv1_0SubAuthenticationRoutineGeneric(SubmitBuffer: PVOID;
  466. //  SubmitBufferLength: ULONG; ReturnBufferLength: PULONG;
  467. //  ReturnBuffer: PPVOID): NTSTATUS; stdcall;
  468. //{$EXTERNALSYM Msv1_0SubAuthenticationRoutineGeneric}
  470. //function Msv1_0SubAuthenticationFilter(LogonLevel: NETLOGON_LOGON_INFO_CLASS;
  471. //  LogonInformation: PVOID; Flags: ULONG; UserAll: PUSER_ALL_INFORMATION;
  472. //  WhichFields, UserFlags: PULONG; Authoritative: PBOOLEAN; LogoffTime,
  473. //  KickoffTime: PLARGE_INTEGER): NTSTATUS; stdcall;
  474. //{$EXTERNALSYM Msv1_0SubAuthenticationFilter}
  476. const
  477.   STATUS_SUCCESS                = NTSTATUS($00000000);
  478.   {$EXTERNALSYM STATUS_SUCCESS}
  479.   STATUS_INVALID_INFO_CLASS     = NTSTATUS($C0000003);
  480.   {$EXTERNALSYM STATUS_INVALID_INFO_CLASS}
  481.   STATUS_NO_SUCH_USER           = NTSTATUS($C0000064);
  482.   {$EXTERNALSYM STATUS_NO_SUCH_USER}
  483.   STATUS_WRONG_PASSWORD         = NTSTATUS($C000006A);
  484.   {$EXTERNALSYM STATUS_WRONG_PASSWORD}
  485.   STATUS_PASSWORD_RESTRICTION   = NTSTATUS($C000006C);
  486.   {$EXTERNALSYM STATUS_PASSWORD_RESTRICTION}
  487.   STATUS_LOGON_FAILURE          = NTSTATUS($C000006D);
  488.   {$EXTERNALSYM STATUS_LOGON_FAILURE}
  489.   STATUS_ACCOUNT_RESTRICTION    = NTSTATUS($C000006E);
  490.   {$EXTERNALSYM STATUS_ACCOUNT_RESTRICTION}
  491.   STATUS_INVALID_LOGON_HOURS    = NTSTATUS($C000006F);
  492.   {$EXTERNALSYM STATUS_INVALID_LOGON_HOURS}
  493.   STATUS_INVALID_WORKSTATION    = NTSTATUS($C0000070);
  494.   {$EXTERNALSYM STATUS_INVALID_WORKSTATION}
  495.   STATUS_PASSWORD_EXPIRED       = NTSTATUS($C0000071);
  496.   {$EXTERNALSYM STATUS_PASSWORD_EXPIRED}
  497.   STATUS_ACCOUNT_DISABLED       = NTSTATUS($C0000072);
  498.   {$EXTERNALSYM STATUS_ACCOUNT_DISABLED}
  499.   STATUS_INSUFFICIENT_RESOURCES = NTSTATUS($C000009A);
  500.   {$EXTERNALSYM STATUS_INSUFFICIENT_RESOURCES}
  501.   STATUS_ACCOUNT_EXPIRED        = NTSTATUS($C0000193);
  502.   {$EXTERNALSYM STATUS_ACCOUNT_EXPIRED}
  503.   STATUS_PASSWORD_MUST_CHANGE   = NTSTATUS($C0000224);
  504.   {$EXTERNALSYM STATUS_PASSWORD_MUST_CHANGE}
  505.   STATUS_ACCOUNT_LOCKED_OUT     = NTSTATUS($C0000234);
  506.   {$EXTERNALSYM STATUS_ACCOUNT_LOCKED_OUT}
  508. implementation
  510. end.