Task abschiessen unter Win2k

[runger]

Hallo,

folgendes Problem:
Wir müssen auf einem Win2k Rechner den Prozess sendsms.exe abschiessen.
Ich hab mir Luckies Demo gezogen, hab ein Konsolenprogramm geschrieben. Hat auch alles prima funktioniert, bis wir das ganze auf
einem Südafrikanischen ( engl. installiert ) Rechner ausprobiert haben. Dort klappt das nicht.
Kann jemand erklären warum?

Delphi-Quellcode:

{******************************************************************************} 
{**                                                                          **} 
{** ProzessID an Hand der Exe-Datei ermittlen                                **} 
{**                                                                          **} 
{******************************************************************************} 
function GetProcessID(sProcName: String): Integer; 
var 
  hProcSnap: THandle;
  pe32: TProcessEntry32;
begin 
  result := -1;
  hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0); 
  if hProcSnap = INVALID_HANDLE_VALUE then exit; 

  pe32.dwSize := SizeOf(ProcessEntry32); 

  { wenn es geklappt hat } 
  if Process32First(hProcSnap, pe32) = true then 
    { und los geht's: Prozess suchen} 
    while Process32Next(hProcSnap, pe32) = true do 
    begin 
      if pos(sProcName, pe32.szExeFile) <> 0then 
        result := pe32.th32ProcessID; 
    end; 
CloseHandle(hProcSnap); 
end; 

{******************************************************************************} 
{**                                                                          **} 
{** Prozess beenden                                                          **} 
{**                                                                          **} 
{******************************************************************************} 
procedure KillProcess(dwProcID: DWORD); 
var 
  hProcess : Cardinal; 
  dw       : DWORD; 
begin
  If dwprocID=-1 then
     begin
       Writeln('Process not started');
       exit;
     end;
  { open the process and store the process-handle } 
  hProcess := OpenProcess(SYNCHRONIZE or PROCESS_TERMINATE, False, dwProcID); 
  { kill it } 
  TerminateProcess(hProcess, 0); 
  { TerminateProcess returns immediately, so wie have to verify the result via 
    WaitfForSingleObject } 
  dw := WaitForSingleObject(hProcess, 5000); 
  case dw of 
    { everythings's all right, we killed the process } 
    WAIT_OBJECT_0: writeln('Terminate Process');

    { process could not be terminated after 5 seconds }
    WAIT_TIMEOUT:
    begin
      Writeln('Process could not be terminated, because Timeout');
      CloseHandle(hProcess);
      exit;
    end;
    { error in calling WaitForSingleObject }
    WAIT_FAILED:
    begin
//      RaiseLastOSError;
      Writeln('Process could not be terminated.');
      CloseHandle(hProcess);
      exit; 
    end; 
  end; 
  CloseHandle(hProcess); 
end;


begin
  { TODO -oUser -cConsole Main : Hier Code einfügen }
   KillProcess(GetProcessID('Sendsms.exe')); // in edit1 muss zb icq.exe stehen
end;

Nachtrag: der User hat Adminrechte und auch sonst ist alles so wie bei uns???

Danke
Rainer