如何读取RAID后的每一个硬盘的序列号

dongcijie 2013-06-04 02:48:52

如题：请问Delphi编程来读取RAID0、RAID1、RAID5等里的每一个硬盘的序列号？
我可以读取一般硬盘的序列号，也能读取到raid后的raid序列号，但是无法读取内部每一个硬盘的序列号。请问有什么办法读取么？

PS：Everest可以读取，在ATA设备信息里看到。

...全文

1374 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

猴子先生大宝贝 2013-08-11

打赏
举报

HD Tune Pro以及HD Tach等也无法读取。

猴子先生大宝贝 2013-08-11

打赏
举报

经鉴定，z77主板自带raid无法被AIDA64及everest读取！

oushengfen 2013-08-10

打赏
举报

顶一下，求解决。

dongcijie 2013-07-04

打赏
举报

只能自己顶一下了。这个难道一点技术资料也没有么？为啥everest可以读取呢？

dongcijie 2013-06-13

打赏
举报

没人知道么？

dongcijie 2013-06-08

打赏
举报

现在还有一个工具：AIDA64也能读取到RAID中每一个硬盘的序列号。求方法。

pricks 2013-06-06

打赏
举报

帮你顶一下，正好我也需要这方面的资料

dongcijie 2013-06-05

打赏
举报

不行，只能获取Raid卡的序列号。找了个VBSrcipt的示例程序，应该是一个概念。


strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

'在脚本运行路径下创建文件SerialNumber.txt
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.CreateTextFile("SerialNumber.txt")
objFile.WriteLine "Date: " & Now()
objFile.WriteBlankLines 1

'获取硬盘序列号并写入文件
Set colDiskDrives = objWMIService.ExecQuery("Select * from Win32_DiskDrive where InterfaceType <> 'USB'")
For each objDiskDrive in colDiskDrives
    objFile.WriteLine "Caption: " & objDiskDrive.Caption
    objFile.WriteLine "Signature: " & objDiskDrive.Signature
    
    Set colPhyDrives = objWMIService.ExecQuery("Select * from Win32_PhysicalMedia")
    For each objPhyDrive in colPhyDrives
        if objPhyDrive.Tag = objDiskDrive.DeviceID then objFile.WriteLine "SerialNumber: " & objPhyDrive.SerialNumber
    Next
    
    objFile.WriteBlankLines 1
Next

objFile.Close