WinAPI verfügbare Domains auflisten

[TiGü]

Zitat von Hobbycoder:

Auf der Suche nach Möglichkeiten verfügbare Ressourcen in einem Netzwerk ausfindig zu machen, ...

Verstehe ich die Möglichkeiten von WNetEnumResource so falsch?

Was ist denn deine Erwartungshaltung?
Also was genau möchtest du finden, abgesehen von Netzlaufwerken?

[Hobbycoder]

Mein Ziel ist es Informationen über die Netzwerkumgebung zu erhalten. z.B: Domänenname, erreichbare Computer (Server, Clients, etc), evtl. noch deren Freigaben.
Ich habe das so verstanden, dass man das mit WNetEnumResource realisieren könnte.

[TiGü]

Also im Prinzip das, was der Sysinternals AD Explorer kann?
https://docs.microsoft.com/de-de/sys...ads/adexplorer

[Hobbycoder]

Naja, so ungefähr. Nur dass ich das nicht aus dem AD haben will. Soll auch in Workgroups (Peer-To-Peer) funktionieren.

Ich brauch theoretisch auch nicht zwingend die Information, ob der Rechner im Netzwerk Domänencontroller, Server oder Client ist.
Wäre für mein aktuelles Projekt unerheblich. Wäre aber eine nette Zusatzleistung, die evtl. später doch noch mal Verwendung findet.

[TiGü]

WMI schon in Betracht gezogen?

Delphi-Quellcode:

//-----------------------------------------------------------------------------------------------------
//     This code was generated by the Wmi Delphi Code Creator (WDCC) Version 1.9.9.482
//     http://code.google.com/p/wmi-delphi-code-creator/
//     Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/
//     Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2015 
//----------------------------------------------------------------------------------------------------- 
//
//     LIABILITY DISCLAIMER
//     THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED.
//     YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS,
//     DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE.
//
//----------------------------------------------------------------------------------------------------
program GetWMI_Info;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  ActiveX,
  ComObj,
  Variants;
  

    
// Die Klasse "Win32_NTDomain" stellt eine NT-Domäne dar. Eine Domäne ist eine 
// einzelne Sicherheitsbegrenzung eines Windows NT-Computernetzwerks. Active 
// Directory besteht aus mindestens einer Domäne. Auf einer eigenständigen 
// Arbeitsstation besteht die Domäne aus dem Computer an sich. Eine Domäne kann 
// auf mehrere physikalische Standorte übergreifen. Jede Domäne verfügt über 
// eigene Sicherheitsrichtlinien und Sicherheitsverhältnisse mit anderen Domänen. 
// Wenn mehrere Domänen durch Vertrauensstellungen zusammengeschlossen sind und 
// ein Schema, eine Konfiguration und einen globalen Katalog teilen, wird dies 
// eine Domänenstruktur genannt. Mehrere Domänenstrukturen können in einer 
// Gesamtstruktur zusammen geschlossen werden. Alle Domänen in einer Struktur 
// teilen auch ein Schema, eine Konfiguration und einen globalen Katalog.

procedure  GetWin32_NTDomainInfo;
const
  WbemUser            ='';
  WbemPassword        ='';
  WbemComputer        ='localhost';
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator : OLEVariant;
  FWMIService   : OLEVariant;
  FWbemObjectSet: OLEVariant;
  FWbemObject   : OLEVariant;
  oEnum         : IEnumvariant;
  iValue        : LongWord;
begin;
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService   := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);
  FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM Win32_NTDomain','WQL',wbemFlagForwardOnly);
  oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
  while oEnum.Next(1, FWbemObject, iValue) = 0 do
  begin
    Writeln(Format('Caption                             %s',[(FWbemObject.Caption)]));// String
    Writeln(Format('ClientSiteName                      %s',[(FWbemObject.ClientSiteName)]));// String
    Writeln(Format('CreationClassName                   %s',[(FWbemObject.CreationClassName)]));// String
    Writeln(Format('DcSiteName                          %s',[(FWbemObject.DcSiteName)]));// String
    Writeln(Format('Description                         %s',[(FWbemObject.Description)]));// String
    Writeln(Format('DnsForestName                       %s',[(FWbemObject.DnsForestName)]));// String
    Writeln(Format('DomainControllerAddress             %s',[(FWbemObject.DomainControllerAddress)]));// String
//    if not VarIsClear(FWbemObject.DomainControllerAddressType) then
//      Writeln(Format('DomainControllerAddressType         %d',[(FWbemObject.DomainControllerAddressType)]));// Sint32
    Writeln(Format('DomainControllerName                %s',[(FWbemObject.DomainControllerName)]));// String
    Writeln(Format('DomainGuid                          %s',[(FWbemObject.DomainGuid)]));// String
    Writeln(Format('DomainName                          %s',[(FWbemObject.DomainName)]));// String
    Writeln(Format('DSDirectoryServiceFlag              %s',[(FWbemObject.DSDirectoryServiceFlag)]));// Boolean
    Writeln(Format('DSDnsControllerFlag                 %s',[(FWbemObject.DSDnsControllerFlag)]));// Boolean
    Writeln(Format('DSDnsDomainFlag                     %s',[(FWbemObject.DSDnsDomainFlag)]));// Boolean
    Writeln(Format('DSDnsForestFlag                     %s',[(FWbemObject.DSDnsForestFlag)]));// Boolean
    Writeln(Format('DSGlobalCatalogFlag                 %s',[(FWbemObject.DSGlobalCatalogFlag)]));// Boolean
    Writeln(Format('DSKerberosDistributionCenterFlag    %s',[(FWbemObject.DSKerberosDistributionCenterFlag)]));// Boolean
    Writeln(Format('DSPrimaryDomainControllerFlag       %s',[(FWbemObject.DSPrimaryDomainControllerFlag)]));// Boolean
    Writeln(Format('DSTimeServiceFlag                   %s',[(FWbemObject.DSTimeServiceFlag)]));// Boolean
    Writeln(Format('DSWritableFlag                      %s',[(FWbemObject.DSWritableFlag)]));// Boolean
    Writeln(Format('InstallDate                         %s',[(FWbemObject.InstallDate)]));// Datetime
    Writeln(Format('Name                                %s',[(FWbemObject.Name)]));// String
    Writeln(Format('NameFormat                          %s',[(FWbemObject.NameFormat)]));// String
    Writeln(Format('PrimaryOwnerContact                 %s',[(FWbemObject.PrimaryOwnerContact)]));// String
    Writeln(Format('PrimaryOwnerName                    %s',[(FWbemObject.PrimaryOwnerName)]));// String
    Writeln(Format('Roles                               %s',[(FWbemObject.Roles)]));// Array of String
    Writeln(Format('Status                              %s',[(FWbemObject.Status)]));// String

    Writeln('- - - - - - - - - - - - - - - - -');
    FWbemObject:=Unassigned;
  end;
end;


begin
 try
    CoInitialize(nil);
    try
      GetWin32_NTDomainInfo;
    finally
      CoUninitialize;
    end;
 except
    on E:EOleException do
        Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode])); 
    on E:Exception do
        Writeln(E.Classname, ':', E.Message);
 end;
 Writeln('Press Enter to exit');
 Readln;      
end.

[Delphi.Narium]

Guggst Du hier: Network infrastructure discovery

Ansonsten: WNetOpenEnum delphi source. Da sollten etliche Ansätze zu finden sein.

U. a.: Use the Windows API to generate a list of available Network ...
Enumerate list of network computers and shared folders in a tree view?

[Hobbycoder]

@TiGü: Danke für den Code. Wenn ich mit API nicht weiterkomme, werde ich den nehmen.

@Delphi.Narium: nach so ziemlich dem gleichen Begriffen habe ich auch gesucht. Um mir aus den ganzen Beispiele eben des Code zusammengesucht, den ich in dem Testprogramm verwende. Die Frage ist, warum bekomme ich so wenig Daten zurück. Selbst wenn ich alle verschiedenen Resource-Kontanten durch probiere, die es so für Scope, Type und Usage gibt, kommt bei mir nicht mehr raus als maximal meine eigenen Mappings. Und den Fehler würde ich gerne finden.

[Hobbycoder]

Zitat von Delphi.Narium:

Guggst Du hier: Network infrastructure discovery

Grad mal fix getestet....kommt das gleich raus wie bei mir. Hilft mir also auch nicht. Ich bekomme das Gefühl, dass WNetOpenEnum wohl nur die eigenen Verbindungen auflisten kann?

[Delphi.Narium]

Momentan hab' ich den Eindruck: Der Fehler liegt nicht bei Dir.

Hab' aber selbst keine Möglichkeit da was zu testen:

1. Mein Delphi ist zu alt.
2. Mein Windows ist zu alt.
3. Kein Netzwerk verfügbar.

Was ich aber weiß:

Habe da noch alte Quelltexte von 'ner Komponente aus dem Jahre 1998 gefunden. Auf der zugehörigen Webseite (oder sonstwo im Internet) kann ich die aber nicht mehr finden. Mit ihr funktionierte aber das, was Du haben möchtest. Und vieles im Quelltext ähnelt sehr stark dem, was wir bisher sonst so gefunden haben. Gehe daher mal davon aus, dass diese Komponenten auch heute noch ihre Aufgabe erledigen könnte, sofern sich nichts auf der Betriebssystemseite geändert hat. Zumindest zum Nachschauen "Wie ging das doch gleich?", sollte sie reichen.

Wenn Du sie haben möchtest, schicke mit bitte 'ne PN, 'ne Antwort von mir kann aber etwas dauern.