Getting all partitions connected to a computer

[Allow2010 7]

Hi all,

i need a way to get a list of all partitions of all drives connected to a computer. Even those that do not have a driveletter (like the one that windows 7 creates for its bootfiles)...

They should be named HD1:1, HD1:2, HD2:1....and so on...

Can anyone give me an idea how i can get this?

Thanks!

[guinness 1,459]

Maybe this will give you some idea?

expandcollapse popup

#AutoIt3Wrapper_UseX64=N
#include <Array.au3>

Global $aExample

$aExample = _GetDriveDetails()
_ArrayDisplay($aExample)

Func _GetDriveDetails()
    Local $aReturn[26 + 1][10] = [[0, 9]], $oColItems, $oWMIService, $sData, $sUnknown

    $sUnknown = "(Unknown)"
    $aGetDrives = _DriveGetDrive(0)
    For $A = 1 To $aGetDrives[0]
        $aReturn[0][0] += 1
        For $B = 1 To $aReturn[0][1] - 5
            $aReturn[$A][$B] = $sUnknown ; Fill the first 4 columns with Unknown.
        Next
        $aReturn[$A][0] = StringUpper(StringLeft($aGetDrives[$A], 1))
        $aReturn[$A][3] = _RandomText(10)
    Next

    $oWMIService = ObjGet("winmgmts:localhost")
    $oColItems = $oWMIService.ExecQuery("Select * From Win32_LogicalDiskToPartition", "WQL", 0x30)

    If IsObj($oColItems) Then
        For $oObjectItem In $oColItems
            $sData = _StringBetweenEx($oObjectItem.Dependent, 'Win32_LogicalDisk.DeviceID="', ':"')
            For $A = 1 To $aReturn[0][0]
                If $sData = $aReturn[$A][0] Then
                    $aReturn[$A][1] = _StringBetweenEx($oObjectItem.Antecedent, 'Win32_DiskPartition.DeviceID="', '"')
                    $aStringSplit = StringSplit($aReturn[$A][1], ",", 2)
                    $aReturn[$A][1] = $aStringSplit[0]
                    $aReturn[$A][2] = $aStringSplit[1]
                    ExitLoop
                EndIf
            Next
        Next
    EndIf
    $oColItems = $oWMIService.ExecQuery("Select * From Win32_DiskDriveToDiskPartition", "WQL", 0x30)
    If IsObj($oColItems) Then
        For $oObjectItem In $oColItems
            $sData = _StringBetweenEx($oObjectItem.Dependent, 'Win32_DiskPartition.DeviceID="', '"')
            For $A = 1 To $aReturn[0][0]
                If $sData = $aReturn[$A][1] & "," & $aReturn[$A][2] Then
                    $aReturn[$A][3] = StringReplace(_StringBetweenEx($oObjectItem.Antecedent, 'Win32_DiskDrive.DeviceID="', '"'), ".", ".")
                EndIf
            Next
        Next
    EndIf
    $oColItems = $oWMIService.ExecQuery("Select * From Win32_DiskDrive", "WQL", 0x30)
    If IsObj($oColItems) Then
        For $oObjectItem In $oColItems
            For $A = 1 To $aReturn[0][0]
                If $oObjectItem.DeviceID = $aReturn[$A][3] Then
                    $aReturn[$A][4] = $oObjectItem.Model
                    $aReturn[$A][5] = $oObjectItem.InterfaceType
                    $aReturn[$A][6] = $oObjectItem.PNPDeviceID
                    $aReturn[$A][7] = $oObjectItem.Partitions
                EndIf
            Next
        Next
    EndIf

    For $A = 1 To $aReturn[0][0] ; Find Drive Partitions.
        For $B = 1 To $aReturn[0][0]
            If $aReturn[$A][3] = $aReturn[$B][3] Then
                $aReturn[$B][8] &= $aReturn[$A][0] & "|"
            EndIf
        Next
    Next
    For $A = 1 To $aReturn[0][0] ; Trim '|' From The End Of The Drive Partitions.
        $aReturn[$A][3] = $sUnknown
        $aReturn[$A][8] = StringTrimRight($aReturn[$A][8], 1)
    Next

    ReDim $aReturn[$aReturn[0][0] + 1][$aReturn[0][1]]
    Return $aReturn
EndFunc   ;==>_GetDriveDetails

Func _DriveGetDrive($iDriveType)
    Local $aArray
    Switch $iDriveType
        Case -1, 0
            $iDriveType = "ALL"
        Case 1
            $iDriveType = "FIXED"
        Case 2
            $iDriveType = "REMOVABLE"
    EndSwitch

    $aArray = DriveGetDrive($iDriveType)
    If @error Then
        Return SetError(1, 0, 0)
    EndIf
    Return $aArray
EndFunc   ;==>_DriveGetDrive

Func _RandomText($iLength = 10)
    Local $sData = "", $sRandom
    For $A = 1 To $iLength
        $sRandom = Random(55, 116, 1)
        $sData &= Chr($sRandom + 6 * ($sRandom > 90) - 7 * ($sRandom < 65))
    Next
    Return $sData
EndFunc   ;==>_RandomText

Func _StringBetweenEx($sString, $sStart, $sEnd)
    Local $aReturn
    If $sStart = "" Then
        $sStart = "A"
    EndIf
    If $sEnd = "" Then
        $sEnd = "z"
    EndIf
    $aReturn = StringRegExp($sString, '(?s)(?i)' & $sStart & '(.*?)' & $sEnd, 3)
    If @error Then
        Return $sString
    EndIf
    If $aReturn[0] = "" Then
        Return $sString
    EndIf
    Return $aReturn[0]
EndFunc   ;==>_StringBetweenEx

[Allow2010 7]

Thanks a lot, but it does not show partitions without drive letters....and those are my main problem:-)

Edit: the code is quite interresting, maybe i can work something out based on it....any easy idea is still welcome.-)

Edited January 3, 2012 by Allow2010

[guinness 1,459]

Thanks a lot, but it does not show partitions without drive letters....and those are my main problem:-)

I knew it wasn't what you were looking for but what you are asking just doesn't sound feasible to me.

Edit: the code is quite interresting, maybe i can work something out based on it....any easy idea is still welcome.-)

I'm glad. Edited January 3, 2012 by guinness