ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сбор данных о компьютере (постановка защиты)
8 сообщений из 8, страница 1 из 1
Сбор данных о компьютере (постановка защиты)
    #35747580
DarkEvil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkEvil
Гость
Всем привет
Я учусь на програмиста, пишу в основном на C++ / C#, но сейчас для работы возникла необходимость писать на VB 6.0 (service park 5).
Необходимо собрать информацию о компьютере (желательно - номер материнской платы) и номер диска, который находится в дисководе в данный момент. Эти данные нужны для установки защиты от копирования на программу.

При работе с WMI:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    Dim colProcessList
    Dim objprocess
    Set colProcessList = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
    For Each objprocess In colProcessList.ExecQuery("SELECT * FROM Win32_MotherBoardDevice")
        MsgBox "name=" & objprocess.name & " serial number " & objprocess.DeviceID
    Next
    Set colProcessList = Nothing
    Set objprocess = Nothing
поле name выдает "Материкая плата", а DeviceID вообще NULL
Может есть какие-нибудь другие подходы к решению этой задачи?

Заранее благодарен за внимание и буду очень признателен за полезные советы / идеи / код.
P.S. Необходимость установки защиты не моя прихоть, а требование заказчика
...
Рейтинг: 0 / 0
08.01.2009, 16:18
| Ответить | Цитировать | Написать  
Сбор данных о компьютере (постановка защиты)
    #35747880
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
У материнских плат нет серийного номера.
...
Рейтинг: 0 / 0
08.01.2009, 20:17
| Ответить | Цитировать | Написать  
Сбор данных о компьютере (постановка защиты)
    #35747921
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Насколько я помню, на флоппи дисков ( номер диска, который находится в дисководе в данный момент), серийный номер - это дата и время последнего форматирования, поэтому для защиты это не самый лучший выбор.
...
Рейтинг: 0 / 0
08.01.2009, 20:49
| Ответить | Цитировать | Написать  
Сбор данных о компьютере (постановка защиты)
    #35748046
devilofdarksides@mail.ru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
devilofdarksides@mail.ru
Гость
Так мне CD нужен :))
...
Рейтинг: 0 / 0
08.01.2009, 22:40
| Ответить | Цитировать | Написать  
Сбор данных о компьютере (постановка защиты)
    #35748051
DarkEvil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkEvil
Гость
Так мне номер CD нужен
...
Рейтинг: 0 / 0
08.01.2009, 22:43
| Ответить | Цитировать | Написать  
Сбор данных о компьютере (постановка защиты)
    #35748305
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
У CD тоже.
...
Рейтинг: 0 / 0
09.01.2009, 10:03
| Ответить | Цитировать | Написать  
Сбор данных о компьютере (постановка защиты)
    #35757262
MiX0N
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MiX0N
Гость
А почему бы просто не снимать с системы МАС адрес?
...
Рейтинг: 0 / 0
14.01.2009, 14:25
| Ответить | Цитировать | Написать  
Сбор данных о компьютере (постановка защиты)
    #35757326
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Его можно подделать.
...
Рейтинг: 0 / 0
14.01.2009, 14:43
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сбор данных о компьютере (постановка защиты)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35748046&tid=2161449]:
 0ms
get settings:
 8ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 60ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 204ms
total:  359ms
созд. / загр.: 359ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]