请教各位大虾，怎样才能判断某计算机是否连到局域网上？（编程，救急）(50分)

请教各位大虾，怎样才能判断某计算机是否连到局域网上？（编程，救急）

uses WinSock;

function FindComputer(ComputerName: string):boolean;
var
WSAData: TWSAData;
HostEnt: PHostEnt;
begin
Result := False;
WSAStartup(2, WSAData);
HostEnt := gethostbyname(PChar(ComputerName));
if HostEnt <> nil then Result := true;
WSACleanup;
end;

myname:按你的方法作了，但是，我在程序运行中拔掉网线，它还是显示‘正在连接’状态。