Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.87/15: Рейтинг темы: голосов - 15, средняя оценка - 4.87
 Аватар для Dilshod Komilov
40 / 41 / 13
Регистрация: 10.08.2016
Сообщений: 310

Уникальная идентификация компьютеров

21.10.2016, 18:21. Показов 3011. Ответов 13
Метки wmi (Все метки)

Студворк — интернет-сервис помощи студентам
В мире миллиарды компьютеров. Есть ли что нибудь который отделяют их друг от друга. Если есть что это и возможно ли его использовать на VB.NEt. Заранее спасибо!
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
21.10.2016, 18:21
Ответы с готовыми решениями:

Идентификация компьютера (работа приложения на ограниченном количестве компьютеров)
Здравствуйта! Есть проблема. Приложение должно работать на ограниченном количестве компьютеров. Т.е. только на некоторых известных...

Вычислить среднюю стоимость всех компьютеров и напечатать наименования компьютеров
Есть задача: создать структуру данных про компьютеры которая включает Список компьютеров: название частота объем...

Есть локальная сеть предприятия с множеством компьютеров, нужно чтобы доступ был на 5 компьютеров под паролем как это сделать?
Есть локальная сеть предприятия с множеством компьютеров, нужно что бы доступ был на 5 компьютеров под паролем как это сделать ? (эти компы...

13
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
 Аватар для magirus
28049 / 15785 / 983
Регистрация: 15.09.2009
Сообщений: 67,752
Записей в блоге: 78
21.10.2016, 18:35
совсем не понятно чего вы хотите.
2
34 / 34 / 6
Регистрация: 24.11.2015
Сообщений: 330
21.10.2016, 18:43
в каком смысле отделяют?
0
 Аватар для XIST
1960 / 1061 / 148
Регистрация: 01.10.2009
Сообщений: 3,589
Записей в блоге: 1
21.10.2016, 19:35
В мире миллиарды людей, одинаковы ли они?
0
399 / 318 / 53
Регистрация: 14.08.2014
Сообщений: 1,010
21.10.2016, 19:47
Dilshod Komilov, если ты про железо, то да, смотри WMI.

Так же в последнее всё чаще проскакивает информация про Audio Finger Print. Технология в целом завязана на железе, но отпечаток снимается на основе неких аудио волн и это не связано с микрофоном или аудио в привычном для нас понимании. Насколько мне известно, гугл активно использует данную технологию для выявления накрутчиков и прочих редисок, а так же продвинутые маркетинговые кампании для более точного таргетинга.
По этой технологии для vb сомневаюсь что можно что-то нагуглить, информации крайне мало, всё по крупицам. Там кто-то проболтается, сям... как-то так.
0
 Аватар для Dilshod Komilov
40 / 41 / 13
Регистрация: 10.08.2016
Сообщений: 310
22.10.2016, 03:12  [ТС]
Объясню еще раз. Допустим есть два компьютера HP одинаковыми характеристиками. Есть ли разница между ними?
0
Эксперт .NET
 Аватар для Usaga
14098 / 9315 / 1349
Регистрация: 21.01.2016
Сообщений: 34,991
22.10.2016, 03:36
Лучший ответ Сообщение было отмечено Dilshod Komilov как решение

Решение

Dilshod Komilov, да, у их материнских плат разные серийные номера. У накопителей тоже. Короче, у всех железяк есть серийные номера.

Вот пример того, как через ранее упомянутый WMI можно посмотреть серийный номер материнской платы (код на C#, первое, что в гугле попалось):

Кликните здесь для просмотра всего текста

C#
1
2
3
4
5
6
7
8
9
10
11
12
ManagementObjectSearcher searcher =
    new ManagementObjectSearcher("SELECT Product, SerialNumber FROM Win32_BaseBoard");
 
ManagementObjectCollection information = searcher.Get();
foreach (ManagementObject obj in information)
{
    foreach (PropertyData data in obj.Properties)
        Console.WriteLine("{0} = {1}", data.Name, data.Value);
    Console.WriteLine();
}
 
searcher.Dispose();
1
Лень — мое второе и
 Аватар для Orlangur
3226 / 2414 / 687
Регистрация: 28.11.2014
Сообщений: 3,600
Записей в блоге: 3
22.10.2016, 17:09
HardwareID

Добавлено через 9 минут
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
Imports System.Management
Imports System
Imports System.Text
Imports System.Security.Cryptography
 
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim hw As New clsComputerInfo
 
        Dim hdd As String
        Dim cpu As String
        Dim mb As String
        Dim mac As String
 
        cpu = hw.GetProcessorId()
        hdd = hw.GetVolumeSerial("C")
        mb = hw.GetMotherBoardID()
        mac = hw.GetMACAddress()
 
        'MsgBox(cpu & "   " & hdd & "   " & mb & "   " & mac)
 
        Dim hwid As String = Strings.UCase(hw.getMD5Hash(cpu & hdd & mb & mac))
 
        ' MessageBox.Show(Strings.UCase(hwid))
 
        TextBox1.Text = hwid
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
 
 
End Class
 
 
Public Class clsComputerInfo
 
    Friend Function GetProcessorId() As String
        Dim strProcessorId As String = String.Empty
        Dim query As New SelectQuery("Win32_processor")
        Dim search As New ManagementObjectSearcher(query)
        Dim info As ManagementObject
 
        For Each info In search.Get()
            strProcessorId = info("processorId").ToString()
        Next
        Return strProcessorId
 
    End Function
 
    Friend Function GetMACAddress() As String
 
        Dim mc As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim moc As ManagementObjectCollection = mc.GetInstances()
        Dim MACAddress As String = String.Empty
        For Each mo As ManagementObject In moc
 
            If (MACAddress.Equals(String.Empty)) Then
                If CBool(mo("IPEnabled")) Then MACAddress = mo("MacAddress").ToString()
 
                mo.Dispose()
            End If
            MACAddress = MACAddress.Replace(":", String.Empty)
 
        Next
        Return MACAddress
    End Function
 
    Friend Function GetVolumeSerial(Optional ByVal strDriveLetter As String = "C") As String
 
        Dim disk As ManagementObject = New ManagementObject(String.Format("win32_logicaldisk.deviceid=""{0}:""", strDriveLetter))
        disk.Get()
        Return disk("VolumeSerialNumber").ToString()
    End Function
 
    Friend Function GetMotherBoardID() As String
 
        Dim strMotherBoardID As String = String.Empty
        Dim query As New SelectQuery("Win32_BaseBoard")
        Dim search As New ManagementObjectSearcher(query)
        Dim info As ManagementObject
        For Each info In search.Get()
 
            strMotherBoardID = info("SerialNumber").ToString()
 
        Next
        Return strMotherBoardID
 
    End Function
 
 
 
    Friend Function getMD5Hash(ByVal strToHash As String) As String
        Dim md5Obj As New Security.Cryptography.MD5CryptoServiceProvider
        Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash)
 
        bytesToHash = md5Obj.ComputeHash(bytesToHash)
 
        Dim strResult As String = ""
 
        For Each b As Byte In bytesToHash
            strResult += b.ToString("x2")
        Next
 
        Return strResult
    End Function
 
 
End Class
1
Ушел с форума
Эксперт С++
 Аватар для Убежденный
16481 / 7444 / 1187
Регистрация: 02.05.2013
Сообщений: 11,616
Записей в блоге: 1
22.10.2016, 18:21
Цитата Сообщение от Dilshod Komilov Посмотреть сообщение
Допустим есть два компьютера HP одинаковыми характеристиками. Есть ли разница между ними?
Есть. Например, серийные номера различных компонентов оборудования,
версии их прошивок, настройки аппаратной конфигурации...
Но до некоторых таких характеристик очень тяжело дотянуться программным путем.
Я имею в виду по-настоящему рабочее и универсальное решение, которое бы
работало на подавляющем большинстве компьютеров, какой ни возьми.
3
399 / 318 / 53
Регистрация: 14.08.2014
Сообщений: 1,010
22.10.2016, 23:13
Убежденный, это верно.
Доводилось как-то работать с WMI и большим количеством ПК. В итоге, то у кого-то материнка не пробивается, то HDD, то ещё чего. В общем не всё так просто, как может показаться на первый взгляд.
На низкоуровневых ЯП говорят есть варианты более безотказного детекта оборудования, уж правда это или нет, не знаю.
1
Ушел с форума
Эксперт С++
 Аватар для Убежденный
16481 / 7444 / 1187
Регистрация: 02.05.2013
Сообщений: 11,616
Записей в блоге: 1
23.10.2016, 09:08
Цитата Сообщение от Дядя Корней Посмотреть сообщение
На низкоуровневых ЯП говорят есть варианты более безотказного детекта оборудования, уж правда это или нет, не знаю.
Бессовестно врут
0
 Аватар для Dilshod Komilov
40 / 41 / 13
Регистрация: 10.08.2016
Сообщений: 310
23.10.2016, 15:01  [ТС]
Всем спасибо большое!!! У меня еще два вопроса. 1) Как узнать эти параметры на языке PHP 2) Я думаю это невозможно но все таки можно ли каким то образом изменить эти параметры или можно ли перехитрить VB ?
0
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
 Аватар для magirus
28049 / 15785 / 983
Регистрация: 15.09.2009
Сообщений: 67,752
Записей в блоге: 78
23.10.2016, 15:05
Цитата Сообщение от Dilshod Komilov Посмотреть сообщение
все таки можно ли каким то образом изменить эти параметры
ваш вопрос начинает выходить за рамки правил форума. взлом, мошенничество, на форуме не обсуждается.
0
 Аватар для Dilshod Komilov
40 / 41 / 13
Регистрация: 10.08.2016
Сообщений: 310
23.10.2016, 15:24  [ТС]
magirus,Я понял извиняюсь
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
23.10.2016, 15:24
Помогаю со студенческими работами здесь

УНИКАЛЬНАЯ ЗАДАЧА!
Разработать программу для расчета площади фигуры, изображенной на рисунке сплошной утолщенной линией. Исходные данные (х1, у1, R1, х2, у2,...

Уникальная строка
Здравствуйте, такой вопрос. Есть выборка результата SELECT из таблицы t1. Есть таблица t2 ,в которой составной первичный ключ (4...

Уникальная выборка
Приветствую. Есть таблица c полями ID, Param1, Param2 Таблица заполнена примерно так: 1 FirstValue1, SecondValue1 2 FirstValue1,...

Уникальная ссылка и счетчик
Доброго времени суток. Встала проблема создания страници по следующим параметрам. Для каждого вновь вошедшего генерируется новая...

Уникальная информационная система
Здравствуйте, предстоит писать дипломку, посоветуйте актуальный объект автоматизации в 1С:Предприятие, если такой есть)


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

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему
Новые блоги и статьи
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
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
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru