急，在线等。(50分)

如何取得计算机名为server的硬盘的ID号。

木马

我这儿有一个获得本机硬盘ID号的函数，你可以借鉴一下修改很简单的。
function GetIdeDiskId: String;
{ 获取 IDE 硬盘序列号 }
var iVer: Integer;
begin
Result:='';
iVer:=GetWindowsVersion;
case iVer of
0: Result:=GetIdeSn98;
1: Result:=GetIdeSn2K;
-1: Result:=GetIdeSn2K;
end;
end; { GetIdeDiskId }