Test NTLM login session in your Delphi application

Test NTLM login in application
This Delphi-demo application performs a login to NT Domain.
Username/Password/Domain is authenticated and success status is returned. If login was successful, then a list of NTgroups is populated.

Most of the code in SSPIValidatePassword.pas is done by Colin Wilson. I've added the following methods:
ReadGroups
LookupAccountBySid
QueryTokenInformation
GetCurrentUser (not used)



Question to you
How do these same tasks are performed in Win2k/XP ActiveDirectory environment? Do this same source code works without changes?

Purpose of the application:
Authenticate the given username against NTDomain and populate a list of member groups.

TestNTLMLogin.zip

self-exe program to test tweaked login. This package contains an impersonation test, and iterate NTGroups code. TestNTLogin.zip