Идентификация дискеты

[Densil]

Доброе время суток всем.
Подскажите, если кто знает, каким образом можно узнать идентификационный номер дискеты с помощью программного кода VB?

[RayShade]

Берем WMI:

Код: Выделить всё

strComputer = "."
Set objWMIService = GetObject( _
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery( _
    "Select * from Win32_Logicaldisk")
For Each objItem in colItems
  If (objItem.DriveType=2) And ((objItem.FileSystem="FAT12") Or (objItem.FileSystem="FAT16")) Then WScript.Echo "Diskette Serial Number is " & objItem.VolumeSerialNumber
Next


О как.

[Densil]

Так... Пробую хоть что-то понять. Я ведь новичок :) и сходу в этом коде не разберусь. Может какие коменты добавите?

Что такое: "Берём WMI" ?

Значит strComputer, objWMIService, colItems, objItem - это переменные.

Что такое WScript.Echo?

[RayShade]

Это Windows Management Instrumentation.

Подробнее можно прочесть в MSDN.



Да, это переменные. strComputer - это имя компьютера. . означает, тот комп на котором запущена программа.

WScript.Echo это просто вывод на экран.



Для проверки того как это работает, вставь дискету в дисковод, потом скопируй этот код в файл, скажем, c:\123.vbs и запусти его.

[Densil]

Ну что-то определённо происходит. Происходит обращение к дискетке, после чего предъявляется пустая форма. Может сделать вывод результата на label?

Можно так написать? :

... Then Label1.Caption = objItem.VolumeSerialNumber
Next

Хм-м. Нельзя. Сразу ошибка возникает. Как тогда?

[RayShade]

Я бы попробовал тогда, CStr(objItem.VolumeSerialNumber)

[Densil]

Что-то не получается. В общем мне нужно чтобы при запуске программы происходила проверка того - моя дискета стоит в дисководе, или нет. Т.е. простейшая защита от копирования. Нужно чтобы идентификационный номер дискеты передавался в переменную, или в caption элемента, неважно, главное чтобы программа его распознала и я его тоже смог бы увидеть. Вот.

[Densil]

Ну хто-нибудь подскажите плиз.

[Kovu]

Densil

Код: Выделить всё


Private Sub Form_Load()
Dim objWMIService As Object, strComputer As String
strComputer = "."
Set objWMIService = GetObject( _
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery( _
    "Select * from Win32_Logicaldisk")
For Each objItem In colItems

  If (objItem.DriveType = 2) And ((objItem.FileSystem = "FAT12") Or (objItem.FileSystem = "FAT16")) Then
WScript.Echo "Diskette Serial Number is " & objItem.VolumeSerialNumber
  If Not IsNull(objItem.VolumeSerialNumber) Then Debug.Print CStr(objItem.VolumeSerialNumber)
end if
Next

End Sub


Правда если честно, он у меня не достает сериал дискетки (обращение к дисководу не происходит просто)хотя сериалы винчестера и дисковдов достал на ура =)
Ну а так код как раз тот что нужен =)

[Densil]

Дело в том, что я однажды что-то делал с дискетой - то ли форматировал, то ли на вирусы проверял, то ли ещё что (ну не помню хучь убей), и в конце этой операции появился ряд характеристик диска "А", в том числе и какой-то номер, по моему идентификационный или как он там называля. Но сейчас я не могу этого добиться и всё тут
Вот я и подумал, что это как-то несложно реализовать через VB. Но что-то не выходит каменный цветок
Кстати, Kovu, твой код тоже не помог, или я что не так сделал. Если этот код использовать как есть, то опять происходит обращение к дискете, после чего появляется пустая форма. Что за напасть

[Sirik]

а почему не воспользоваться GetVolumeInformation:

Код: Выделить всё

Private Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Private Sub Form_Load()
    Dim Serial As Long
    GetVolumeInformation "a:\", "", 255, Serial, 0, 0, "", 255
    MsgBox Serial
End Sub



[Densil]

Спасибо за совет. Вроде бы теперь высвечивается номер в диалоговом окне. Но мне нужно, чтобы происходила проверка:
если номер совпал - программа запускается, если не совпал - не запускается.
Например, при загрузке фомы передать номер в переменную Serial,
дальше проверка:
если Serial = 12345 то закончить проверку,
если нет - выгрузить форму программы.

Так можно, или только через MsgBox?

[Sirik]

ухты... через Msgbox ты только выводишь инфу.

зы. твою защиту можно обойти...даже очень просто. проверяй SN через таймер, хотя юзеру не понрявится тормоза с опросом флопа

зы. это не заводской номер дискеты, он "даётся" при форматировании диска

[tyomitch]

зы. это не заводской номер дискеты, он "даётся" при форматировании диска

...и за полминуты легко меняется на любой другой.

[Densil]

Это я в курсе, что этот номер даётся при форматировании. И то, что эту защиту легко обойти меня не волнует совершенно. Эту программу будут юзать люди о-очень далёкие от программирования и от хака Рабочие железной дороги. Но тупо скопировать прогу для друзей конечно смогут. И поэтому нужно какую-то препону поставить. Проще всего, ИМХО, то, что я описал выше. Всё же есть какая-нибудь встроенная функция VB для определения таких номеров? То что написал Sirik работает - номер вытаскивает, но я не понял этот код и не знаю как его переделать для моих целей.

[alibek]

Вместо MsgBox напиши If Serial <> 12345 Then End.

[Kovu]

Densil
То что передается первым параметором мсгбоксу(Serial) ставишь в условную конструкцию и будет тебе щастье

[Densil]

Большое спасибо всем, кажись заработало!