Computername auslesen m. Programm auf Netzlaufwerk

[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.