Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.62/21: Рейтинг темы: голосов - 21, средняя оценка - 4.62
1 / 1 / 0
Регистрация: 10.11.2011
Сообщений: 45

Получить номер материнской платы и номер диска, который находится в дисководе в данный момент

19.04.2012, 00:31. Показов 4296. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Делаю базу данных на Visual Studio 2010 на языке Visual Basic. Необходимо собрать информацию о компьютере (желательно - номер материнской платы) и номер диска, который находится в дисководе в данный момент. Эти данные нужны для установки защиты от копирования на программу. Заранее спасибо
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
19.04.2012, 00:31
Ответы с готовыми решениями:

Получить номер материнской платы
Всем привет. Никак не могу получить номер материнской платы, как бы я не пытался. Пробовал этот код: (источник...

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

Получить аппаратный номер жесткого диска
Всем привет. Подскажите, пожалйуста, как узнать аппаратные номер жесткого диска ? (visual basic 2005). Спасибо

3
 Аватар для XIST
1960 / 1061 / 148
Регистрация: 01.10.2009
Сообщений: 3,589
Записей в блоге: 1
19.04.2012, 20:03
Цитата Сообщение от fastm0use Посмотреть сообщение
Делаю базу данных на Visual Studio 2010 на языке Visual Basic. Необходимо собрать информацию о компьютере (желательно - номер материнской платы) и номер диска, который находится в дисководе в данный момент. Эти данные нужны для установки защиты от копирования на программу. Заранее спасибо
материнка (не помню, рабочий код или нет)
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Computer As String 
Dim WMI As Variant 
Dim Items As Variant 
Dim Item As Variant 
 
Computer = "." 
Set WMI = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2") 
    Set Items = objWMIService.ExecQuery("SELECT * FROM Win32_BaseBoard", , 48) 
    For Each Item In Items 
        Debug.Print  Item.SerialNumber 
        Exit For 
    Next
Добавлено через 1 минуту
Аналогично BIOS

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Computer As String 
Dim WMI As Variant 
Dim Items As Variant 
Dim Item As Variant 
 
Computer = "." 
Set WMI = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2") 
Set Items = WMI.ExecQuery("Select * from Win32_BIOS") 
 
For Each Item In Items 
Debug.Print Item.SerialNumber 
Next
1
 Аватар для vova_king
34 / 34 / 12
Регистрация: 29.07.2010
Сообщений: 417
24.06.2015, 01:22
У меня ругается на
VB.NET
1
objWMIService
код
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Class Form1
    Dim Computer As String
    Dim WMI As Object
    Dim Items As Object
    Dim Item As Object
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Computer = "."
        WMI = GetObject("winmgmts:\\" & Computer & "\root\CIMV2")
        Items = objWMIService.ExecQuery("SELECT * FROM Win32_Service", , 48)
        For Each objItem In Items
            Debug.Print("ServiceName: " & objItem.Name & vbNewLine & "State: " & objItem.State)
            Exit For
        Next
 
    End Sub
 
 
 
End Class
Миниатюры
Получить номер материнской платы и номер диска, который находится в дисководе в данный момент  
0
 Аватар для Arcatic
0 / 0 / 0
Регистрация: 09.05.2020
Сообщений: 1
09.05.2020, 21:58
Ошибки в синтаксисе.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
Dim Computer As String
Dim WMI As Object
Dim Items As Object
Dim Item As Object
Computer = "."
WMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2")
Items = WMI.ExecQuery("SELECT * FROM Win32_BaseBoard", , 48)
For Each Item In Items
 MsgBox ("ServiceName: " & Item.Name & vbNewLine & "State: " & Item.SerialNumber)
 Exit For
Next
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
09.05.2020, 21:58
Помогаю со студенческими работами здесь

Как получить номер версии Excel и формат файла в котором работаю в данный момент?
Нужно узнать какой фаил(xlsm,xlsx,xlsb или xls) и версия msoffice(2003 или >)

серийный номер материнской платы
доброго времени суток прошу вашей помощи вот в каком вопросе мне нужно узнать серийный номер материнской платы, но вся трудность в...

Серийный номер процессора и материнской платы
Здравствуйте!!! :) Подскажите пожалуйста, как узнать серийный номер материнской платы или процессора? Заранее благодарю!!!!! :)

Узнать серийный номер (ID) материнской платы
Есть какой-нибудь другой способ, кроме как через WIN32_BaseBoard?

Серийный номер материнской платы и windows 10
Всем привет, народ подскажите как вытащить серий номер мат платы на ОС Windows 10? в гугле нашел этот код program Project1; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
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
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru