Abfragen von Informationen klappt nicht bei einem w2k Host

[little_budda]

Hallo,

ich verwende die Abfragen von Luckie um die Domain, die Arbeitsgruppe und die Freigaben anzuzeigen.
Folgender Code:

Delphi-Quellcode:

...

const
  netapi32lib       = 'netapi32.dll';
  iphlpapilib       = 'iphlpapi.dll';

function NetWkstaGetInfo; external netapi32lib name 'NetWkstaGetInfo';
function NetServerGetInfo; external netapi32lib name 'NetServerGetInfo';
function NetShareEnum; external netapi32lib name 'NetShareEnum';

...

function GetDomainName(const Computername: string): string;
var
  err               : Integer;
  buf               : pointer;
  fDomainName       : string;
  wServerName       : WideString;
begin
  buf := nil;
  wServerName := ComputerName;
  err := NetServerGetInfo(PWideChar(wServerName), 503, @buf);
  if err = 0 then
  try
    fDomainName := PSERVER_INFO_503(buf)^.sv503_domain;
  finally
    NetAPIBufferFree(buf)
  end;
  result := fDomainName;
end;

function ListSharedFolders(const ServerName: PWideChar): TStringDynArray;
var
  aShareBuffer      : PSHARE_INFO_0;
  aWorkBuffer       : TShareInfo0Array;
  dwEntriesRead     : Cardinal;
  i                 : integer;
  err               : DWORD;
begin
  aWorkBuffer := nil;
  aShareBuffer := nil;
  err := NetShareEnum(ServerName, 0, PByte(aShareBuffer), MAX_PREFERRED_LENGTH, @dwEntriesRead, @dwEntriesRead,
    nil);
  if err = 0 then
  begin
    aWorkBuffer := TShareInfo0Array(aShareBuffer);
    setlength(result, dwEntriesRead);
    for i := 0 to dwEntriesRead - 1 do
    begin
      result[i] := aWorkBuffer[i].shi0_netname;
    end;
    //NetAPIBufferFree(aShareBuffer);
  end;
end;

Meine IDE läuft unter XP.
Wenn ich einen Rechner mir XP abfrage, erhalte ich die gewünschten Informationen.
Wenn auf dem abgefragten Host Windows 2000 läuft, so erhalte ich leere Rückgaben.

Klappen die Abfragen vielleicht nur unter (oder nur für) XP?

Gruß Holger.