Alle Arbeitsgruppen, alle Rechner und dann alle freigaben?

[Zerolith]

ups *G*

thx - funktioniert....

und wie kann ich alle Arbeitsgruppen scannen?

[Mario]

Ich vermute mal, hier liegt der Schlüssel:

Delphi-Quellcode:

// RESOURCE_CONNECTED RESOURCE_CONTEXT RESOURCE_GLOBALNET RESOURCE_REMEMBERED 
c_dwScope = RESOURCE_GLOBALNET;

Schau mal ins SDK, dass müsste Dir da weiterhelfen.

[Zerolith]

k - thx!

[Christian Seehase]

Moin Zusammen,

die Resourcen sind strukturiert.

1. Zuerst werden (mit nil) die Provider ermittelt (in reinen Windowsnetzen, wird man da nur einen erhalten, nämlich "Microsoft Windows-Netzwerk",
2. dann die darin enthaltenen Domänen/Arbeitsgruppen (wenn man den Provider angibt),
3. dann die darin enthaltenen Rechner (eben bei Angabe von Domäne bzw. Arbeitsgruppe, das wird bei dieser Funktion (WNetEnumResource) nicht weiter unterschieden,
4. und, zu guter Letzt, die Freigaben der Rechner

Solange eine aufgezählte Resource die Usage RESOURCEUSAGE_CONTAINER hat, kann man darin suchen.

Man muss eigentlich "nur" noch filtern (durch Angabe/Überprüfung von Type, DisplayType und Usage) was man haben will.

[webhuhn]

mhh.. ich hab ein ähnliches problem:
ich will alle rechner der netzwerkes in einem ListView auflisten...

aber mit dem code hier komme ich nicht ganz klar :-(

gibt es noch eine andere möglichkeit?

[Assarbad]

NetServerEnum und WNetEnumResource benutzen

[webhuhn]

nur wie?
das is mein problem

[Assarbad]

Geh mal auf meine Seite und schau dir den Source von LoggedOn2 an. Da findest du ein Beispiel zu NetServerEnum(). Ist glaub ich in der Datei LoggedOnFunc.pas

Für die andere Funktion haste ja weiter oben schon Beispiele.

[webhuhn]

dein quellcode lässt sich bei mir net compilieren,er meckert bei:

Code:

...
VAR
  "NIL_HANDLE: Integer ABSOLUTE 0;" ( << die zeile mag er net)
  NetApiBufferFree: TNetApiBufferFree = NIL; //NT31+
  NetServerEnum: TNetServerEnum = NIL; //NT31+
...

Error:
[Error] LoggedOnFunc.pas(26): Variable name expected


auf der LoggedOnFun.pas

[Mario]

Hier ist Dein Angriffspunkt:

Delphi-Quellcode:

procedure AddComputerToList(Value: TNetResource); 
begin 
   strRemoteName := Value.lpRemoteName; 
   if Value.dwDisplayType <> RESOURCEDISPLAYTYPE_SERVER THEN Exit; 
   ListBox.Items.Add(strRemoteName);
end;

ListBox.Items.Add(strRemoteName);

Dann brauchst Du nur noch die Funktion aufrufen:

Delphi-Quellcode:

RechnerInWG(NIL)