Как узнать заводской серийный номер винчестера в Viste?

[Star Cat]

Как узнать заводской серийный номер винчестера в Viste? Проблема в том, что прежний способ не работает.

[Williams]

Не работает или недостаточно прав? Во втором случае следует осуществлять элевацию.

[Star Cat]

Не работает или недостаточно прав? Во втором случае следует осуществлять элевацию.

Скорей всего не работает. В общем, результат такой же, как и в Windows’98

[keks-n]

Баловство это всё. Все и всяческие привязки к железяке легко обходятся переватом обращений к драйверу оной.

[Star Cat]

Баловство это всё. Все и всяческие привязки к железяке легко обходятся переватом обращений к драйверу оной.

Мои программы покупают, значит не баловство. Просто цену завышать не надо.

[Хакер]

Значит стоимость взлома не превышает стоимость программы. Или контингент пользователей — законопослушный.

[tyomitch]

Значит стоимость взлома не превышает стоимость программы.

Наоборот, превышает.
Раз не ломают, а покупают.

[Хакер]

Угу. "не" лишнее.

[Star Cat]

Я продаю программы оптом, все сразу за 100р.
Так кто нибудь даст совет?

[mrs2000]

Как узнать заводской серийный номер винчестера в Viste? Проблема в том, что прежний способ не работает.

Способ то какой?
Мой способ работает в XP/2003/Vista, но не работает в Win2K.

[Star Cat]

Способ то какой?
Мой способ работает в XP/2003/Vista, но не работает в Win2K.

Вот исходник.

[xenomorph]

Привет всем!

Вопрос в тему: -
У кого-нибудь есть ЭТОТ же код но на vb.net?

Я пробовал портировать на нет, но там ест много нюансов - в частности Dim As Any и CopyMemory +
ещё др. несовместимости.

Заранее огромное спасибо!

[Star Cat]

Мой способ работает в XP/2003/Vista, но не работает в Win2K.

Так выложите свой исходник, плиз.

[mrs2000]

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

        Dim objWMIService As Object
        Dim objItem As Object
        Dim colItems As Object

        Set objWMIService = GetObject("winmgmts:")
        If Not objWMIService Is Nothing Then
            Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMedia")
            If Not colItems Is Nothing Then
                For Each objItem In colItems
                    If IsNull(objItem.SerialNumber) = False Then
                        Result = Trim$(objItem.SerialNumber)
                        Exit For
                    End If
                Next
            End If
        End If


[Star Cat]

ОГРОМНОЕ спасибо за код! Удачи!

[homeworld]

А как быть с SATA дисками ?

[773FF]

А если пользователь купил новый винчестер на замену старому? Это уже нарушение лицензионного соглашения?

[Star Cat]

А если пользователь купил новый винчестер на замену старому? Это уже нарушение лицензионного соглашения?

Да. Но винчестеры редко ломаются. Старый винчестер можно подключить вторым номером. В крайнем случае, заплатить еще раз 100 рублей не так уж сложно.
Если человек однажды купил мою программу, то вероятность того, что это снова произойдет, равна нулю. Поэтому я продаю все свои программы оптом, как сборник.

[iGrok]

Да. Но винчестеры редко ломаются. Старый винчестер можно подключить вторым номером.

По моей статистике не так уж и редко.

В крайнем случае, заплатить еще раз 100 рублей не так уж сложно.

А вот это вообще плохая практика. Более хорошей практикой было бы ввести активацию/реактивацию. Принцип простой. Ключ лицензии уникален, и хранится у тебя в БД вместе с данными юзера. На основе ключа, и серийника винта прога генерит код активации. Ты его у себя обрабатываешь, и выдаёшь ответный ключ. Прога работает. Если у чела сменился винт - ключ лицензии у него остаётся, и ему просто нужно заново пройти активацию.

Правда, в целесообразности такого подхода для программного продукта за "100 рублей" я, честно говоря, сомневаюсь.. )

[Star Cat]

Более хорошей практикой было бы ввести активацию/реактивацию.

Как произвести реактивацию, если винт накрылся?
Я делаю так: Высылаю покупателю прогу, которая кодирует серийник в число. Покупатель сообщает это число мне. Я ввожу число в регистрационную прогу и отправляю ее челу. При регистрации рег-прога кодирует серийник в число и сравнивает его с присланным. Если они совпадают, то создается файл с паролем. При чем пароль основан не на серийнике (в Windows98 его определить нельзя), а на номере тома. Посмотрите файл.
P.S. Мне несколько раз переводили деньги и люди пропадали. У кого-нибудь такое было?

[tyomitch]

Номер тома слишком легко поменять

[0xy]

А разве WMI не видет SATA?
(у меня нет возможности проверить)

[0xy]

Походу, способ через WMI не работает в русской версии Windows Millenium (а возможно и в 98?).
Там нужно юзать smartvsd.
Под XP иногда работают и PhisicalDrive, и WMI, иногда--только WMI, но бывает, что обламываются оба.
Причем некоторый софт (п примеру, "Аспирин") серийник все же получает (или "получает"--нет возможности проверить).
В Vista и выше, по моим наблюдениям, PhisicalDrive не работает никогда.
Так что универсальный способ по прежднему в розыске.

[Twister]

Какой смысл заниматься поддержкой этих систем?

[Star Cat]

Какой смысл заниматься поддержкой этих систем?

Эта тема конечно же уже устарела.

[0xy]

Twister, Star Cat
Ребята, вы чего? Что устарело??? Прочли б сперва мой пост повнимательнее

Под XP иногда работают и PhisicalDrive, и WMI, иногда--только WMI, но бывает, что обламываются оба.
В Vista и выше, по моим наблюдениям, PhisicalDrive не работает никогда.

Т.е. проблема именно с НОВЫМИ осями!

[Денис]

Если есть способ программно вытянуть эти строки из двух-трех установленных устройств, то было б наверное оно.

[0xy]

И к чему здесь это?
Топег посвещен добыче серийника винта IDE и SATA.

[Денис]

И к чему здесь это?
Топег посвещен добыче серийника винта IDE и SATA.

Тю, та ты шо? А такое же окно для винта открыть, не могэ? Я скриншотом показал, что коды экземпляра универсальны (по крайней мере в диспетчере устройств) для любого устройства. И если научиться извлекать эти коды, можно сделать универсальную привязку к любому железу.