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


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