AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi WinAPI verfügbare Domains auflisten

WinAPI verfügbare Domains auflisten

Ein Thema von Hobbycoder · begonnen am 28. Mai 2020 · letzter Beitrag vom 31. Mai 2020
Antwort Antwort
Seite 1 von 2  1 2   
Hobbycoder

Registriert seit: 22. Feb 2017
928 Beiträge
 
#1

WinAPI verfügbare Domains auflisten

  Alt 28. Mai 2020, 09:34
Auf der Suche nach Möglichkeiten verfügbare Ressourcen in einem Netzwerk ausfindig zu machen, bin ich im Internet auf folgenden Beitrag gestoßen http://www.delphigroups.info/2/72/169815.html (Ich hab das einfach mal als Unit angehängt).

Das wollte ich mir jetzt mal genauer anschauen. Dabei bin ich auf 2 Fragen gestoßen.

Frage 1: LPDWORD bzw. DWORD. Ein DWORD kann ja nur positive Werte beinhalten. LPDWORD ist jawohl nur ein Pointer auf ein DWORD. In Zeile 145 der Unit steht:
Delphi-Quellcode:
procedure GetDomainList(const sNetwork : string; sl : TStrings);
var
  rNetRes : TNetResource;
begin
  if sl = nil then exit;
  sl.BeginUpdate;
  try
    sl.Clear;
    { Start here }
    with rNetRes do begin
      dwScope := RESOURCE_GLOBALNET;
      dwType := RESOURCETYPE_ANY ;
      dwDisplayType := RESOURCEDISPLAYTYPE_NETWORK;
      dwUsage := -2147483646;
      lpLocalName := nil;
      lpRemoteName := pChar(sNetwork);
      lpComment := nil;
      lpProvider := pChar(sNetwork);
    end;
    EnumNetRes(RESOURCE_GLOBALNET,RESOURCETYPE_Disk,3,@rNetRes,sl,ekDomain);
  finally
    sl.EndUpdate;
  end;
end;
dwUsage ist laut Windapi.Windows ein DWORD.
Dem zur Folge kann man da natürlich keine negativen Werte laden. Der Autor lädt hier einen Negativen Wert, was natürlich schon vom Compiler abgelehnt wird. Ob das ein Fehler vom Autor ist, oder ob das so mal funktioniert hat, kann ich natürlich auch nicht sagen.
Mögliche verfügbare Constanten wäre hier:
Delphi-Quellcode:
  RESOURCEUSAGE_CONNECTABLE = 1;
  RESOURCEUSAGE_CONTAINER = 2;
  RESOURCEUSAGE_NOLOCALDEVICE = 4;
  RESOURCEUSAGE_SIBLING = 8;
  RESOURCEUSAGE_ATTACHED = $00000010;
  RESOURCEUSAGE_ALL = (RESOURCEUSAGE_CONNECTABLE or RESOURCEUSAGE_CONTAINER or RESOURCEUSAGE_ATTACHED);
  RESOURCEUSAGE_RESERVED = DWORD($80000000);
Nur welche wäre für diese Funktion die Richtige? Oder kann ich da gar noch anderen Verwenden, die hier nicht aufgelistet sind?

Bei meinen Versuchen kam bisher noch nicht viel heraus. Vielleicht ist der Code auch zu alt. Denn laut Aussage des Autors war das für NT4. Aber die API-Aufrufe gibt es ja noch, demnach sollten sie ja noch Ergebnisse liefern.

Frage 2: Aufgerufen wird im Code WNetOpenEnum .
Meine Suche im Internet bringt mich aber immer zu WNetOpenEnumA bzw. zu WNetOpenEnumW .
In der Winapi.Windows sind aber alle 3 Varianten aufgeführt.
Delphi-Quellcode:
function WNetOpenEnum(dwScope, dwType, dwUsage: DWORD;
  lpNetResource: PNetResource; var lphEnum: THandle): DWORD; stdcall;
{$EXTERNALSYM WNetOpenEnumA}
function WNetOpenEnumA(dwScope, dwType, dwUsage: DWORD;
  lpNetResource: PNetResourceA; var lphEnum: THandle): DWORD; stdcall;
{$EXTERNALSYM WNetOpenEnumW}
function WNetOpenEnumW(dwScope, dwType, dwUsage: DWORD;
  lpNetResource: PNetResourceW; var lphEnum: THandle): DWORD; stdcall;
Ich nehmen mal an, dass die WNetOpenEnum (Ohne A oder W) intern auf eine der beiden gemappt wird. Welche wäre denn das?
Angehängte Dateien
Dateityp: pas uNetwork.pas (6,3 KB, 3x aufgerufen)
Gruß Hobbycoder
Alle sagten: "Das geht nicht.". Dann kam einer, der wusste das nicht, und hat's einfach gemacht.
  Mit Zitat antworten Zitat
Hobbycoder

Registriert seit: 22. Feb 2017
928 Beiträge
 
#2

AW: WinAPI verfügbare Domains auflisten

  Alt 29. Mai 2020, 10:53
*PUSH*

Ich habe mir mal ein kleines Testprogramm geschrieben, um mir die Möglichkeiten vom WNetEnumResource irgendwie zu verdeutlichen. Komme aber zu keinem zufriedenstellendem Ergebnis.
Das einzige was ich zur Anzeige bekommt sind die verbunden Shares, sonst nichts. Ich habe das getestet auf meinem Win10-Rechner und auf einem Win2012R2 Domänencontroller.

Vielleicht mag da mal einer drüber schauen. Ich habe mal den Source angehängt. (Wer sich keine Mühe machen möchte, kann auch die angehängten Win32 / Win64-Exe nehmen).

Verstehe ich die Möglichkeiten von WNetEnumResource so falsch?
Angehängte Dateien
Dateityp: zip Funktionstest_Source.zip (50,1 KB, 9x aufgerufen)
Dateityp: zip Funktionstest32.zip (1,31 MB, 13x aufgerufen)
Dateityp: zip Funktionstest64.zip (1,61 MB, 11x aufgerufen)
Gruß Hobbycoder
Alle sagten: "Das geht nicht.". Dann kam einer, der wusste das nicht, und hat's einfach gemacht.
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.058 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: WinAPI verfügbare Domains auflisten

  Alt 29. Mai 2020, 11:06
Frage 2: Aufgerufen wird im Code WNetOpenEnum .
Meine Suche im Internet bringt mich aber immer zu WNetOpenEnumA bzw. zu WNetOpenEnumW .
In der Winapi.Windows sind aber alle 3 Varianten aufgeführt.
Delphi-Quellcode:
function WNetOpenEnum(dwScope, dwType, dwUsage: DWORD;
  lpNetResource: PNetResource; var lphEnum: THandle): DWORD; stdcall;
{$EXTERNALSYM WNetOpenEnumA}
function WNetOpenEnumA(dwScope, dwType, dwUsage: DWORD;
  lpNetResource: PNetResourceA; var lphEnum: THandle): DWORD; stdcall;
{$EXTERNALSYM WNetOpenEnumW}
function WNetOpenEnumW(dwScope, dwType, dwUsage: DWORD;
  lpNetResource: PNetResourceW; var lphEnum: THandle): DWORD; stdcall;
Ich nehmen mal an, dass die WNetOpenEnum (Ohne A oder W) intern auf eine der beiden gemappt wird. Welche wäre denn das?
Du zeigst uns nur die Definition (in Delphi 10.2 bspw. in Zeile 35137 ff.), aber das eigentliche statische importieren ist erst einige Zeilen später (38341):
Delphi-Quellcode:
function WNetOpenEnum; external mpr name 'WNetOpenEnumW';
function WNetOpenEnumA; external mpr name 'WNetOpenEnumA';
function WNetOpenEnumW; external mpr name 'WNetOpenEnumW';
Oder um deine Frage konkret zu beantworten: WNetOpenEnum mappt auf WNetOpenEnumW, also die WideString-Variante.
Wenn du das anderes möchtest, muss du explizit die Version mit A hinten aufrufen.
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.058 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: WinAPI verfügbare Domains auflisten

  Alt 29. Mai 2020, 11:09
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?
  Mit Zitat antworten Zitat
Hobbycoder

Registriert seit: 22. Feb 2017
928 Beiträge
 
#5

AW: WinAPI verfügbare Domains auflisten

  Alt 29. Mai 2020, 11:14
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.
Gruß Hobbycoder
Alle sagten: "Das geht nicht.". Dann kam einer, der wusste das nicht, und hat's einfach gemacht.
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.058 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: WinAPI verfügbare Domains auflisten

  Alt 29. Mai 2020, 11:20
Also im Prinzip das, was der Sysinternals AD Explorer kann?
https://docs.microsoft.com/de-de/sys...ads/adexplorer
  Mit Zitat antworten Zitat
Hobbycoder

Registriert seit: 22. Feb 2017
928 Beiträge
 
#7

AW: WinAPI verfügbare Domains auflisten

  Alt 29. Mai 2020, 11:28
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.
Gruß Hobbycoder
Alle sagten: "Das geht nicht.". Dann kam einer, der wusste das nicht, und hat's einfach gemacht.

Geändert von Hobbycoder (29. Mai 2020 um 11:31 Uhr)
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.058 Beiträge
 
Delphi 10.4 Sydney
 
#8

AW: WinAPI verfügbare Domains auflisten

  Alt 29. Mai 2020, 11:42
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.
  Mit Zitat antworten Zitat
Delphi.Narium

Registriert seit: 27. Nov 2017
2.400 Beiträge
 
Delphi 7 Professional
 
#9

AW: WinAPI verfügbare Domains auflisten

  Alt 29. Mai 2020, 11:47
Guggst Du hier: Network infrastructure discovery

Ansonsten: Bei Google suchenWNetOpenEnum 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?
  Mit Zitat antworten Zitat
Hobbycoder

Registriert seit: 22. Feb 2017
928 Beiträge
 
#10

AW: WinAPI verfügbare Domains auflisten

  Alt 29. Mai 2020, 15:16
@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.
Gruß Hobbycoder
Alle sagten: "Das geht nicht.". Dann kam einer, der wusste das nicht, und hat's einfach gemacht.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:07 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz