急，在线等。(50分)

怎样查询服务器的ID号

function Tform3.get_name(getname:string):string;
var
v_name:array[0..100] of char;
v_strname:string;
wsdata:TWSAdata;
begin
{$R-}
wsastartup(2,wsdata);
try
gethostname(v_name,100);
v_strname:=v_name;
result:=v_strname;
finally
wsacleaNup;
end;
end;

可以根据计算机名查询ID号么

接受答案了.