BorlandTalk.com

Guest · Posted: Tue Oct 03, 2006 6:20 pm Post subject: ImpersonateUser RegistryConnect

Hi there,

I am creating a CGI executable that runs under IIS. I have used
Windows Intergrated authentication so the CGI executable runs as a
specific user, rather than IUSR_SERVERNAME.

What the executable needs to do is impersonate another user
(administrator) and connect to a registry on another computer on the
network. This doesn't seem to work. RegistryConnect (part of the
TRegistry class) fails, and the registry calls end up looking at the
webserver machine.

Am I not approaching this in the right way or something? I think I
ought to work. Here's a code snippet (mostly taken from Delphi3000.com
and adapted)

function PerformLogon(const User, Domain, Password: String): Cardinal;
begin
if NOT LogonUser(pChar(User), pChar(Domain), pChar(Password),
LOGON32_LOGON_NETWORK,
LOGON32_PROVIDER_DEFAULT,
Result) then
RaiseLastWin32Error;
end;

hToken := PerformLogon('administrator','INTERNAL','password');
try
ImpersonateLoggedOnUser(hToken);
try

With TRegistry.Create do begin try
RootKey:=HKEY_LOCAL_MACHINE;
If Not RegistryConnect('\\'+ParamStr(2)) then
WriteLn('Failed to connect.');

....

This doesn't seem to work. Any suggestions?

Riki Wiki · Guest

On 3 Oct 2006 06:20:22 -0700, troggy (AT) gmail (DOT) com wrote: