Опять серийный номер HDD, штоп ему...

[Antonariy]

Помогите, горю!
В моей коллекции определения серийников есть три способа. Первый:

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

    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMedia")
    For Each objItem In colItems
        wscript.echo objItem.SerialNumber
    Next

Два других в аттачах. Однако ни один из них не работает на одном компе под win2000. Винт там стоит обычный, samsund ide на primary master. А всякие тулзы типа HDDLife определяют на ура. Как они это делают?

[kibernetics]

незнаю, что за номер возращает. но попробуй:

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

Private Declare Function GetVolumeSerialNumber 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

Public Function VolumeSerialNumber(ByVal RootPath As String) As String

Dim VolLabel As String
Dim VolSize As Long
Dim Serial As Long
Dim MaxLen As Long
Dim Flags As Long
Dim Name As String
Dim NameSize As Long
Dim s As String
Dim ret As Boolean

ret = GetVolumeSerialNumber(RootPath, VolLabel, VolSize, Serial, MaxLen, Flags, Name, NameSize)

...

[Antonariy]

Это метка тома.

[awl100Alex]

Помогите, горю!
... А всякие тулзы типа HDDLife определяют на ура. Как они это делают?

Они это делают прямым обращением к устройству через драйвер.

[Igor_123]

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

[dr-kvn]

Цитирую выдержку из топика Dummiel'я:

Поиспражнялись в остроумии, умники?

Теперь загляните на этом же форуме в тему "Методы защиты VB программы от копирования."

http://bbs.vbstreets.ru/viewtopic.php?t=20643&start=0&postdays=0&postorder=asc&highlight=

И посмотрите на код, который сбросил FleX_2004.

[Antonariy]

Igor_123
Нет.

dr-kvn
Что это было?

[alibek]

dr-kvn, объяснись. Срок - сутки.

[dr-kvn]

Чем я не угодил уважаемому собранию? В чем объясняться?

Был топик Dummel'я по поводу серийного номера компьютера. Там ему популярно объяснили, что не бывает серийного номера компьютера, а бывают серийные номера комплектующих его компонентов.
Там Dummel и привел ссылку на другой топик, где FleX_2004 приводит код вычисления серийного номера винта.

И все, собственно. И вроде как тема моего совета подпадает под тему данного топика?

[Antonariy]

dr-kvn
Ты сам-то пробовал сходить по этой ссылке? Она ведет в самое начало десятистраничного обсуждения.

Что самое интересное, я не нашел там постов FleX'a
Куда они делись? Это уже вопрос администрации.

[Хакер]

Antonariy
Кто-нибудь помнит userid флэкса или какую-нибудь фразу, по которой можно было бы найти его пост?

А то, всё ещё пожинаем плоды "большой чистки".

[dr-kvn]

dr-kvn
Ты сам-то пробовал сходить по этой ссылке? Она ведет в самое начало десятистраничного обсуждения.

Ну, если я привел эту ссылку, значит ходил по этой ссылке. Логично?

И читал все десятистраничное обсуждение!

А вот куда делся Flex - это тоже хотелось бы знать!

[kibernetics]

Antonariy
если тебе проблема ещё актуальна, то можно использовать стороннюю библу.

[Antonariy]

Какую?

[Igor_123]

Это не совсем номер, но может поищешь в этом направлении?

[ALX_2002]

Отцы, я видать чего то не понимаю (делаю такой вывод, судя по тому как опытные знатоки мучаются с вопросом). Объясните мне пожалуйста.

А какой Serial Number тогда возвращает банальный FSO ?

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


    Dim FileSystemObject
    Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
    For Each Drive In FileSystemObject.Drives
        With Drive
                infolog = infolog & "DriveLetter: " & .DriveLetter & vbCrLf
                infolog = infolog & "DriveType: " & .DriveType & vbCrLf
                infolog = infolog & "IsReady: " & .IsReady & vbCrLf
                infolog = infolog & "Path: " & .Path & vbCrLf
                infolog = infolog & "ShareName: " & .ShareName & vbCrLf
           
                 If .IsReady Then
                     infolog = infolog & "SerialNumber: " & .SerialNumber & vbCrLf
                     infolog = infolog & "AvailableSpace: " & .AvailableSpace & vbCrLf
                     infolog = infolog & "TotalSize: " & .TotalSize & vbCrLf
                     infolog = infolog & "FreeSpace: " & .FreeSpace & vbCrLf
                     infolog = infolog & "FileSystem: " & .FileSystem & vbCrLf
                     infolog = infolog & "RootFolder: " & .RootFolder & vbCrLf
                     infolog = infolog & "VolumeName: " & .VolumeName & vbCrLf
                     infolog = infolog & "RootFolder: " & .RootFolder & vbCrLf
                End If
               
                infolog = infolog & vbCrLf
                       
        End With
    Next
    MsgBox infolog, vbInformation, "Disks Info"


[Хакер]

ALX_2002
Тома. А надо - девайса.

[kibernetics]

Antonariy
io.dll
в общем, есть мысля другая. если найти как можно посылать команды АТА накопителю, то при посылке команды &HEC можно получить пасспорт накопителя где всё указано, в том числе и его серийный номер. Через эту длл-ку это можно сделать. А как послать обычному порту(например, 1F0 или 0170) команду я незнаю, но точно знаю, что можно...

[ALX_2002]

ALX_2002
Тома. А надо - девайса.

Задумался. А через свойства диска это где можно найти ? А то с трудом втыкаю где такой параметр.

[dr-kvn]

Столько всяческих гуру и больших человеков, а проблему раздули!

В аттаче код, про который я говорил выше. Работает на ура, серийник HDD за миллисекунды...

[Matew]

dr-kvn, что это?
Прикол еще и в том, что он у меня меняется

[keks-n]

Прикол ещё и в том, что все эти ID можно элементарно сменить, добавив свой драйвер в цепочку обработки IRP. Привязка к серийным номерам оборудования - порочная практика.

[Igor_123]

Привет Antonariy
Смотрю ответов уже много, не знаю, решил проблему или нет, нашёл вот у себя код, может поможет

Удачи

[Matew]

Igor_123, тот же самый вариант, что предложил dr-kvn. На моем рэйде ведет себя прикольно .

[VVitafresh]

Igor_123, тот же самый вариант, что предложил dr-kvn. На моем рэйде ведет себя прикольно .

Ну а какой у рейда может быть серийник?
Сумма серийников входящях в него винтов, деленная на их количество, что ли

[kibernetics]

вот один из примеров:

[Antonariy]

Последний пример это HDD Info из моего первого поста, два предыдущих - вариации его же. Как только подвернется комп, где HDD Info не работает, проверю, отпишусь.

[dr-kvn]

Matew!
Сие есть тайна великая, мраком покрытая!

У меня ноутбук и настольный компы. На обоих все выдает правильно, сверял через BIOS и утилиты. А почему он у тебя так себя ведет - я в растерянности.

Мабуть, греческое чо-нить?