Как можно программно получить серийный номер винчестера

@Meruzhan Grigoryan · Регистрация: 13.11.2007

Студворк — интернет-сервис помощи студентам

Мне нужно программно создать 'Serial Key' -сериальный номер для
моей программы (soft-a), т.е. привязка к компьютеру, для этого я решил вместо этого взять серийный номер винча.....
Схема, например, может быть следующей: программа вычисляет упомянутые уникальные данные и показывает их пользователю; он посылает их автору, который (при подтверждении оплаты) вычисляет на их основе соответствующий пароль и посылает его обратно. В программе 'прошит' тот же самый алгоритм, и делается сверка ключей - введенного с правильным.
Если кто-либо когда-то занимался чем-то вроде этого и у него остались какие-либо исходники, у меня огромная прозьба пришлите
на мой e-mail: meruzhan@seua.am.
Если даже кто-то что-нибудь сможет посоветовать, я буду заранее
благодарен ему или ей.....

С огромной благодарностью...
Меружан Григорян

@sharig · 14.11.2007, 06:05

посмотри на http://sharig.webzone.ru/category/system/drive00_getserial.htm http://sharig.webzone.ru/category/system/comp01_serial.htm

@DEN_K · 15.11.2007, 13:19

Запустил эту программу. Она выдает не тот номер, что тест винта под дос. веры больше досовскому тесту. Кто поможет разобраться? Хотелось бы получить правельный номерок

@Alexey · 15.11.2007, 13:25

Определение серийного номера винчестера
http://relib.com/sources/code.asp?id=479

@DEN_K · 15.11.2007, 14:23

Да, эта программа работает. Но использует VXD!!! Это мне к сожалению совсем не подходит. Возможно без использования VXD и нельзя узнать серийного номера винта?? Кто что знает по этому поводу?

@boombastik · 18.11.2007, 15:05

http://support.microsoft.com/support/kb/articles/Q196/5/50.ASP
http://support.microsoft.com/support/kb/articles/Q208/0/48.ASP
http://www.microsoft.com/hwdev/respec/storspec.htm

Исходя из выше приведенных ссылок следует, что серийный номер винчестера можно получить только через запросы к контроллеру дисков (что в принципе и логично), все операции с оборудованием (hardware) на плвтформе Win32 осуществляются через драйвера устройств - повышение безопасности ОС. То есть нет возможности получить доступ к этой информации не воспользовавшись стандартным для платформы Win32 способом. Существует вероятность того что для Windows 9x, которые, для совместимости со старыми программами, предоставляют некоторые дополнительные возможности 16-разрядным программам, есть возможность реализовать это другим способом без использования VxD драйвера, я этим вопросом не занимался.
Впрочем, почему Вам не подходит использование стандартного VxD драйвера?

С уважением, Владимир

@boombastik · 18.11.2007, 15:13

P.S. Извиняюсь, не заметил, что тут не промелькнуло ссылки на следующий пример: http://relib.com/sources/code.asp?id=482

08.12.2007, 21:53

Visual Basic
1
2
3
4
5
6
7
Sub ShowDriveInfo(drvpath)
    Dim fs, d, s, t
    Set fs = CreateObject('Scripting.FileSystemObject')
    Set d = fs.GetDrive(drvpath)
    s = 'SN: ' & d.SerialNumber
    MsgBox s
End Sub

@pwa · 09.12.2007, 10:28

В MS MSDN (CD или online), поиск по слову 'SmartApp'. Исходник, кот. выдает всю инф-ю по HDD, в т.ч. firmware serial number. Для NT закоментировать
#define WINDOWS9X // Define this to compile for Windows 9x

@boombastik · 09.12.2007, 10:35

Ну да, он то ибыл использован в качестве основы для ActiveX control см. http://relib.com/sources/code.asp?id=482, все его недостатки указаны в описании, а их два (самых больших):
1) Не поддерживаются SCSI HDD
2) Для платформы Win 9x необходимо убедится, что стандартный драйвер Microsoft S.M.A.R.T. все же установлен там где положено...

Успехов, Владимир

23.12.2010, 11:09

кто нибудь может выложить код VB 2008 чтобы получить серийны номер винчестера

заранее примного благодарен

03.01.2013, 12:14

Вот программа на VB 2010 определяет идентификатор тома который присвоился ему при форматировании, как правило привязка идет к нему.

VB.NET
1
2
3
4
5
6
7
8
9
10
Public Function GetHDDSerialNumber(ByVal drive As String) As String
        Dim disk As ManagementObject = New ManagementObject("win32_logicaldisk.deviceid=""" + drive + ":""")
        disk.Get()
        Return disk("VolumeSerialNumber").ToString()
    End Function
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
                       txt_originalText.Text = (GetHDDSerialNumber("C"))
                     
    End Sub

После выполнения программы получаем такого вида строку 9CFFBA7A, если хотите привязывать программу к этому коду, то Вам необходимо перевести данную строку в числовой вид для дальнейшего создания генератора кода, но как это сделать я к сожалению еще не знаю, может у кого есть идеи по данному вопросу??

Комментарий модератора

metatronalex, прошу заметить, тот к кому Вы обращаетесь, последний раз заходил на форум года 2 назад.
А за код VB 2010 в разделе VB6 и нежелание пользоваться поиском (такой код, но под VB6, VBA уже пару раз выкладывали) - буду следующий раз наказывать.

dev.Free · 03.01.2013, 16:04

У HDD есть два вида серийного номера: 1 серийный номер для работы в операционной системе, он обычно меняется при переустановке Windows, или форматирования одного из разделов жесткого диска. 2 серийный номер это заводской номер HDD, который изменить ни как нельзя, так какой из нужен вам?

@dzug · 03.01.2013, 21:34

Интересно было бы посмотреть оба варианты.

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@Meruzhan Grigoryan 0 / 0 / 0 Регистрация: 13.11.2007 Сообщений: 15

	Как можно программно получить серийный номер винчестера 13.11.2007, 14:19. Показов 9948. Ответов 13 Метки нет (Все метки) Мне нужно программно создать 'Serial Key' -сериальный номер для моей программы (soft-a), т.е. привязка к компьютеру, для этого я решил вместо этого взять серийный номер винча..... Схема, например, может быть следующей: программа вычисляет упомянутые уникальные данные и показывает их пользователю; он посылает их автору, который (при подтверждении оплаты) вычисляет на их основе соответствующий пароль и посылает его обратно. В программе 'прошит' тот же самый алгоритм, и делается сверка ключей - введенного с правильным. Если кто-либо когда-то занимался чем-то вроде этого и у него остались какие-либо исходники, у меня огромная прозьба пришлите на мой e-mail: meruzhan@seua.am. Если даже кто-то что-нибудь сможет посоветовать, я буду заранее благодарен ему или ей..... С огромной благодарностью... Меружан Григорян 0

@sharig 2 / 2 / 1 Регистрация: 30.07.2007 Сообщений: 206
	14.11.2007, 06:05
	посмотри на http://sharig.webzone.ru/category/system/drive00_getserial.htm http://sharig.webzone.ru/category/system/comp01_serial.htm 0

@DEN_K 0 / 0 / 0 Регистрация: 18.09.2007 Сообщений: 43
	15.11.2007, 13:19
	Запустил эту программу. Она выдает не тот номер, что тест винта под дос. веры больше досовскому тесту. Кто поможет разобраться? Хотелось бы получить правельный номерок 0

@Alexey 0 / 1 / 3 Регистрация: 27.03.2012
	15.11.2007, 13:25
	Определение серийного номера винчестера http://relib.com/sources/code.asp?id=479 0

@DEN_K 0 / 0 / 0 Регистрация: 18.09.2007 Сообщений: 43
	15.11.2007, 14:23
	Да, эта программа работает. Но использует VXD!!! Это мне к сожалению совсем не подходит. Возможно без использования VXD и нельзя узнать серийного номера винта?? Кто что знает по этому поводу? 0

@boombastik 7 / 7 / 12 Регистрация: 13.02.2007 Сообщений: 1,255
	18.11.2007, 15:05
	http://support.microsoft.com/support/kb/articles/Q196/5/50.ASP http://support.microsoft.com/support/kb/articles/Q208/0/48.ASP http://www.microsoft.com/hwdev/respec/storspec.htm Исходя из выше приведенных ссылок следует, что серийный номер винчестера можно получить только через запросы к контроллеру дисков (что в принципе и логично), все операции с оборудованием (hardware) на плвтформе Win32 осуществляются через драйвера устройств - повышение безопасности ОС. То есть нет возможности получить доступ к этой информации не воспользовавшись стандартным для платформы Win32 способом. Существует вероятность того что для Windows 9x, которые, для совместимости со старыми программами, предоставляют некоторые дополнительные возможности 16-разрядным программам, есть возможность реализовать это другим способом без использования VxD драйвера, я этим вопросом не занимался. Впрочем, почему Вам не подходит использование стандартного VxD драйвера? С уважением, Владимир 0

@boombastik 7 / 7 / 12 Регистрация: 13.02.2007 Сообщений: 1,255
	18.11.2007, 15:13
	P.S. Извиняюсь, не заметил, что тут не промелькнуло ссылки на следующий пример: http://relib.com/sources/code.asp?id=482 0

@pwa 0 / 0 / 1 Регистрация: 04.11.2007 Сообщений: 35
	09.12.2007, 10:28
	В MS MSDN (CD или online), поиск по слову 'SmartApp'. Исходник, кот. выдает всю инф-ю по HDD, в т.ч. firmware serial number. Для NT закоментировать #define WINDOWS9X // Define this to compile for Windows 9x 0

@boombastik 7 / 7 / 12 Регистрация: 13.02.2007 Сообщений: 1,255
	09.12.2007, 10:35
	Ну да, он то ибыл использован в качестве основы для ActiveX control см. http://relib.com/sources/code.asp?id=482, все его недостатки указаны в описании, а их два (самых больших): 1) Не поддерживаются SCSI HDD 2) Для платформы Win 9x необходимо убедится, что стандартный драйвер Microsoft S.M.A.R.T. все же установлен там где положено... Успехов, Владимир 0

2007serj
	23.12.2010, 11:09
	кто нибудь может выложить код VB 2008 чтобы получить серийны номер винчестера заранее примного благодарен

@dzug 695 / 236 / 18 Регистрация: 17.01.2011 Сообщений: 583 Записей в блоге: 1
	03.01.2013, 21:34
	Интересно было бы посмотреть оба варианты. 0

dev.Free Заблокирован
	03.01.2013, 16:04
	У HDD есть два вида серийного номера: 1 серийный номер для работы в операционной системе, он обычно меняется при переустановке Windows, или форматирования одного из разделов жесткого диска. 2 серийный номер это заводской номер HDD, который изменить ни как нельзя, так какой из нужен вам? 0