Computername auslesen m. Programm auf Netzlaufwerk

[bwolf]

Hi all,

ich habe Computer A und Computer B.
Das Verzeichnis c:\test auf Computer B wurde auf Computer A als Netzlaufwerk Z verbunden.

Nun wird von Computer A ein Programm in Laufwerk Z kopiert und ausgeführt, und dieses Programm soll mir den Computernamen von Computer B ausgeben, gibt allerdings den Namen von Computer A aus.

Gibts da ne Möglichkeit was zu drehen oder ist das so nicht möglich?

Danke und Grüße,
ben

[Klaus01]

Guten Morgen,

das Dein Programm auf Computer A läuft wird auch nur der Rechnername
von Computer A ausgelesen.
Vielleicht gibt es die Möglichkeit den Namen von Computer B über WMI
abzufragen - dazu kann ich nun allerdings kein Beispiel geben.

Grüße
Klaus

[little_budda]

Hallo,

wenn du die IP von dem Rechner kennst so könntest du folgenden Code verwenden

Delphi-Quellcode:

  if (NetWkstaGetInfo(PWideChar(WideString(IpStr)), 100, @pBuffer) = NERR_SUCCESS)
    then Name := PWKSTA_INFO_100(pBuffer)^.wki100_computername
    else Name := IPAddrToName((IpStr));

Der Code stammt aus Luckies Ping
findest du hier

Gruß Holger.

[Computerbabalulu]

Hallo,

du kannst die Computernamen relativ einfach über NetBios (DNS) ermitteln.

Mit Hilfe der Suchfunktion findest du sicher auch einige Beispiele, wie z.B. Hier.

Gruß Frank

[marabu]

Hallo Ben,

dein Programm kennt seinen Speicherort - ParamStr(0). Über die Netzwerkfunktionen kannst du das Share zum Laufwerksbuchstaben ermitteln und Teil des so gewonnenen UNC-Namens ist der DNS bzw. Maschinenname:

Delphi-Quellcode:

uses
  StrUtils;

function GetConnection(const DriveName: String): String;
var
  unc: array of Char;
  size: Cardinal;
begin
  size := 0;
  if WNetGetConnection(PChar(DriveName), nil, size) = ERROR_MORE_DATA then
  begin
    SetLength(Result, Pred(size));
    WNetGetConnection(PChar(DriveName), @Result[1], size);
  end else Result := '';
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  drive, share, machine: String;
begin
  drive := ExtractFileDrive(ParamStr(0));
  share := GetConnection(drive);
  machine := Copy(share, 3, PosEx('\', share, 3) - 3);
  ShowMessage(machine);
end;

Grüße vom marabu