Hallo,

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

zusammenfalten · markieren

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.

Hallo,

als ich hab mal gegoogelt, und dort finde ich nichts
das die DLLs unterschiedliche Funktionalitäten auf W2k oder XP haben sollten.

Vielleicht muss auch nur der Aufruf geändert werden?
Vielleicht klappt das auch einfach bei Betriebssystemen < XP nicht?

Ich hab dazu keine Iddee...

Gruß Holger.

Hallo,

da meine Frage sich ja wohl nicht so einfach lösen lässt
werde ich den Thread mal zumachen damit er nicht ewig
als "offene Frage" durch das Forum geistert.

Ich hab derweil einen Hinweis eingebaut das die Abfragen
halt nur unter XP und höher sicher funktionieren.

Gruß Holger.

Moin Holger,

ich kenne jetzt nicht die Deklarationen, die Du verwendest, aber so

zusammenfalten · markieren

Delphi-Quellcode:

const
  NERR_Success = 0;
  MAX_PREFERRED_LENGTH = DWORD(-1);

type
  NET_API_STATUS = type DWORD;

  PSHARE_INFO_0 = ^SHARE_INFO_0;
  SHARE_INFO_0 = packed record
    shi0_netname : PWCHAR;
  end;

function NetApiBufferFree(const Buffer : Pointer) : NET_API_STATUS; stdcall; external 'netapi32.dll';

function NetShareEnum(const servername : PWCHAR;const level : DWORD;const bufptr : Pointer;const prefmaxlen : DWORD;
                      const entriesread : PDWORD;const totalentries : PDWORD;const resume_handle : PDWORD) : NET_API_STATUS; stdcall; external 'netapi32.dll';


var
  si0Work : PSHARE_INFO_0;
  si0Save : PSHARE_INFO_0;
  dwEntriesRead : DWORD;
  dwTotalEntries : DWORD;
  i : DWORD;

begin
  if NetShareEnum('\\192.168.1.2\',0,@si0Work,MAX_PREFERRED_LENGTH,@dwEntriesRead,@dwTotalEntries,nil) <> Nerr_Success then exit;
  try
    si0Save := si0Work;
    for i := 1 to dwEntriesRead do begin
      ComboBox1.Items.Add(si0Save.shi0_netname);
      inc(si0Save);
    end;
  finally
    NetApiBufferFree(si0Work);
  end;
end;

hat es bei mir schon vor XP funktioniert (in einem Netzwerk mit NT 4.0 und 2000).

Hallo,

danke für den Code.
Ich werde es ausprobieren.

Gruß Holger.