$aArray = DriveGetDrive("ALL")
If @error Then
	MsgBox(4096, "Ошибка", "Произошла ошибка при запросе дисков.")
Else
	For $i = 1 To $aArray[0]
		; Показывает все найденные диски и переводит букву в верхний регистр.
		MsgBox(4096, "Диск " & $i & "/" & $aArray[0], StringUpper($aArray[$i]))
	Next
EndIf