如何取得服务器上做的RAID5 以后硬盘的ID？

如何取得服务器上做的RAID5 以后硬盘的ID？在网上找了一段代码，只能找到普通HD 的ID,做了RAID 以后，就找不到了。
以下是代码，哪位高人能指点帮忙如何找做了RAID 后的HD 的ID 
function GetIdeSerialNumber:string; //获取硬盘的出厂系列号；
const IDENTIFY_BUFFER_SIZE = 512;
  type
     TIDERegs = packed record
       bFeaturesReg: BYTE;
       bSectorCountReg: BYTE;
       bSectorNumberReg: BYTE;
       bCylLowReg: BYTE;
       bCylHighReg: BYTE;
       bDriveHeadReg: BYTE;
       bCommandReg: BYTE;
       bReserved: BYTE;
  end;
  TSendCmdInParams = packed record
      cBufferSize: DWORD;
      irDriveRegs: TIDERegs;
      bDriveNumber: BYTE;
      bReserved: array[0..2] of Byte;
      dwReserved: array[0..3] of DWORD;
      bBuffer: array[0..0] of Byte;
  end;  TIdSector = packed record
      wGenConfig: Word;
      wNumCyls: Word;
      wReserved: Word;
      wNumHeads: Word;
      wBytesPerTrack: Word;
      wBytesPerSector: Word;
      wSectorsPerTrack: Word;
      wVendorUnique: array[0..2] of Word;
      sSerialNumber: array[0..19] of CHAR;
      wBufferType: Word;
      wBufferSize: Word;
      wECCSize: Word;
      sFirmwareRev: array[0..7] of Char;
      sModelNumber: array[0..39] of Char;
      wMoreVendorUnique: Word;
      wDoubleWordIO: Word;
      wCapabilities: Word;
      wReserved1: Word;
      wPIOTiming: Word;
      wDMATiming: Word;
      wBS: Word;
      wNumCurrentCyls: Word;
      wNumCurrentHeads: Word;
      wNumCurrentSectorsPerTrack: Word;
      ulCurrentSectorCapacity: DWORD;
      wMultSectorStuff: Word;
      ulTotalAddressableSectors: DWORD;
      wSingleWordDMA: Word;
      wMultiWordDMA: Word;
      bReserved: array[0..127] of BYTE;
  end;  PIdSector = ^TIdSector;
  TDriverStatus = packed record
      bDriverError: Byte;
      bIDEStatus: Byte;
      bReserved: array[0..1] of Byte;
      dwReserved: array[0..1] of DWORD;
  end;  TSendCmdOutParams = packed record
      cBufferSize: DWORD;
      DriverStatus: TDriverStatus;
      bBuffer: array[0..0] of BYTE;
  end;
  var
    hDevice: Thandle;
    cbBytesReturned: DWORD;
    SCIP: TSendCmdInParams;
    aIdOutCmd: array[0..(SizeOf(TSendCmdOutParams) + IDENTIFY_BUFFER_SIZE-1)-1] of Byte;
    IdOutCmd: TSendCmdOutParams absolute aIdOutCmd;  procedure ChangeByteOrder(var Data; Size: Integer);//函数中的过程
  var
    ptr: Pchar;
    i: Integer;
    c: Char;
  begin
    ptr := @Data;
    for I := 0 to (Size shr 1) - 1 do begin
        c := ptr^;
        ptr^ := (ptr + 1)^;
        (ptr + 1)^ := c;
        Inc(ptr, 2);
    end;
  end;begin          //函数主体
  //Result := '00000000';
  try
    if SysUtils.Win32Platform = VER_PLATFORM_WIN32_NT then
       begin // Windows NT, Windows 2000
         hDevice := CreateFile('\\.\PhysicalDrive0', GENERIC_READ or GENERIC_WRITE,
         FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
       end
    else // Version Windows 95 OSR2, Windows 98
       hDevice := CreateFile('\\.\SMARTVSD', 0, 0, nil, Create_NEW, 0, 0);
    if hDevice = INVALID_HANDLE_VALUE then Exit;
    try
      FillChar(SCIP, SizeOf(TSendCmdInParams) - 1, #0);
      FillChar(aIdOutCmd, SizeOf(aIdOutCmd), #0);
      cbBytesReturned := 0;
      with SCIP do
      begin
        cBufferSize := IDENTIFY_BUFFER_SIZE;
        with irDriveRegs do
        begin
          bSectorCountReg := 1;
          bSectorNumberReg := 1;
          bDriveHeadReg := $A0;
          bCommandReg := $EC;
        end;
      end;
      if not DeviceIoControl(hDevice, $0007C088, @SCIP, SizeOf(TSendCmdInParams) - 1,@aIdOutCmd, SizeOf(aIdOutCmd), cbBytesReturned, nil) then Exit;
    finally
      CloseHandle(hDevice);
    end;
    with PIdSector(@IdOutCmd.bBuffer)^ do
    begin
      ChangeByteOrder(sSerialNumber, SizeOf(sSerialNumber));
      (Pchar(@sSerialNumber) + SizeOf(sSerialNumber))^:= #0;
      Result := Pchar(@sSerialNumber);
    end;
  except
  end;
end;