VBScript: 关联逻辑分区与物理磁盘

出处：http://blogs.technet.com/b/heyscriptingguy/archive/2005/05/23/how-can-i-correlate-logical-drives-and-physical-disks.aspx

Code:

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colDiskDrives = objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive")
For Each objDrive In colDiskDrives
    WScript.Echo "Physical Disk: " & objDrive.Caption & " -- " & objDrive.DeviceID
    strDeviceID = Replace(objDrive.DeviceID, "\", "\\")
    Set colPartitions = objWMIService.ExecQuery _
        ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & _
            strDeviceID & """} WHERE AssocClass = " & _
                "Win32_DiskDriveToDiskPartition")
    For Each objPartition In colPartitions
        WScript.Echo "Disk Partition: " & objPartition.DeviceID
        Set colLogicalDisks = objWMIService.ExecQuery _
        ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & _
            objPartition.DeviceID & """} WHERE AssocClass = " & _
                "Win32_LogicalDiskToPartition")
        For Each objLogicalDisk In colLogicalDisks
            WScript.Echo "Logical Disk: " & objLogicalDisk.DeviceID
        Next
        WScript.Echo
    Next
    WScript.Echo
Next