Server Alias Namen

[bernhard_LA]

Gibt es eine Delphi Funktion um herauszufinden ob zwei Pfad-Strings auf den selben physiaklischen Server und Unterordner beziehen oder nicht ?


ich könnte die erste Pfadangabe nehmen dort eine _alias_path.txt anlegen mit dem Servernamen und dann wenn ich den zweiten Pfad checke prüfen ob schon diese Datei vorhanden ist und ggf. den dort eingetragenen Alias Namen dann im weiteren verwenden ....
Besserer Ansatz ?

[freimatz]

und dann gibt es ja noch Subst, net share/use, soft- und hard-links ...
Wenn dann statt "_alias_path.txt" den Text einer GUID nehmen als Name?

[bernhard_LA]

was kann ich genau damit anfangen ?

[Papaschlumpf73]

Hiermit könnte es funktionieren. Ich weiß aber gerade nicht, ob die Funktion auch Links weiter verfolgt.

System.SysUtils.ExpandUNCFileName

[bernhard_LA]

gibt es eine bessere Lösung als via nslookup ? was mir fehlt : code für NslookupOutput := ExecuteCommand('nslookup ' + Servername); aktueller code spielt nicht

Delphi-Quellcode:

uses
  SysUtils, Classes, Windows;


function GetServernamesAliasList(Servername: string): string;
var
  NslookupOutput: string;
  AliasList: TStringList;
  Line: string;
begin
  NslookupOutput := ExecuteCommand('nslookup ' + Servername);
  AliasList := TStringList.Create;
  try
    AliasList.Delimiter := #13#10;
    AliasList.StrictDelimiter := True;
    AliasList.DelimitedText := NslookupOutput;

    for Line in AliasList do
    begin
      // Parse the output to extract aliases (if needed)
      // Example: "Aliases: alias1, alias2, alias3"
      // Extract the aliases after "Aliases: "
    end;

    // Join the aliases into a comma-separated string
    Result := AliasList.DelimitedText;
  finally
    AliasList.Free;
  end;
end;