Серый форум — AHK: Получение информации о диске

Re: AHK: Получение информации о диске

2012-04-10T07:52:59Z

loop, parse, list
   MsgBox Drive: %A_LoopField%

Re: AHK: Получение информации о диске

2012-04-10T05:01:42Z

О_о а я вот так вот решал данную особенность с DriveGet:

#NoTrayIcon
FileSelectFolder, OKnaid, , 3, Выберите съемный носитель:

if folder =
sleep, 200

DriveGet, serial, serial, %OKnaid%

          MsgBox, 64, Внимание, SN: %serial% 
 ExitApp

Может в чем то и не прав...
хотел сделать чтобы при подключении съемного устройства программа автоматом проверяла S/N.

Знаю что класс у устройства REMOVABLE, но вместе с съёмником он захватывает диск А:\ B:\ ((

DriveGet, list, list, REMOVABLE

результат выводит как: "ABG" (КАК их разъединить и обработать отдельно?)

Re: AHK: Получение информации о диске

2012-04-06T19:14:04Z

Через WMI можно получить, только не Win32_DiskDrive нужен, а Win32_LogicalDiskToPartition(по-моему это вполне очевидно из названия ).

Re: AHK: Получение информации о диске

2012-04-06T17:56:56Z

Плагиат конечно но сам я не селен в dllcall понял только 50% написаного))


var:=GetDeviceID("I:")
 MsgBox %var%

GetDeviceID(Disk_Lit)
{
Drv := "\\.\"Disk_lit
hVol := DllCall( "CreateFile", Str,Drv, UInt,0xC0000000, UInt,0x3, UInt,0, UInt,0x3 , UInt,0x0, UInt,0 )
VarSetCapacity( VDE,1024,0 ) 
If DllCall( "DeviceIoControl", UInt,hVol, UInt,0x560000, UInt,0, UInt,0, UInt,&VDE, UInt,1024, UIntP,BR, UInt,0 )
DllCall("CloseHandle", UInt,hVol )
   return	 "\\.\PhysicalDrive" NumGet( VDE,8 )
 }

Поправки будут?
Как будет работать без прав администратора?

Re: AHK: Получение информации о диске

2012-04-05T15:57:12Z

Я видно не так выразился, требуется например по букве диска определить его номер.
Типа входная переменная I:\ выходная \\.\phisicalDrive2
И обратный: входная- phisicalDrive2, выходная I:,H:
Хотя примеры несколько развеяли туман;)

Re: AHK: Получение информации о диске

2012-04-05T15:08:21Z

В контексте «маленькой функции»:

GetPDriveSerial(needleName) {
    For Drive in ComObjGet("winmgmts:").ExecQuery("SELECT Name, SerialNumber FROM Win32_DiskDrive")
        If Drive.Name = needleName
            return Drive.SerialNumber
}
MsgBox % GetPDriveSerial("\\.\PHYSICALDRIVE0")

Сделать проще не вышло, уместен был бы вариант «в одну строку», надеюсь кто-то заинтересуется.

Re: AHK: Получение информации о диске

2012-04-05T13:58:59Z

for Drive in ComObjGet("winmgmts:").ExecQuery("SELECT Name, FirmwareRevision, SerialNumber, Signature FROM Win32_DiskDrive")
    o .=    Drive.Name . "`n"
          . Drive.FirmwareRevision . "`n"
          . Drive.SerialNumber . "`n"
          . Drive.Signature . "`n`n"
MsgBox, % Clipboard := o

Win32_DiskDrive
Пример внизу

Только не говорите, что выше — много кода

AHK: Получение информации о диске

2012-04-05T13:16:56Z

Стандартная функция DriveGet не удовлетворяет потребности. В часности интересует номер у-ва вида \\.\phisicalDrive2
Пробовал и через WMI и API но получается слишком много кода и выходных не нужных переменных для такой маленькой функции. Может существует более элегантный способ?