| Вопрос: Помогите !!! s/n винчестера | Добавлено: 27.01.03 22:49 |
Автор вопроса:  Phantom | Web-сайт: www.infozone.ukrbiz.net
|
Подскажите пожалуйста как программно узнать серийный номер винчестера???
|
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Nonamer ICQ: 268674940 Вопросов: 31 Ответов: 69 |
Web-сайт: Профиль | | #1 | Добавлено: 28.01.03 01:38 |
|
Если ты имеешь в виду серийный номер диска, (винчестер может быть разбит на несколько дисков), то это делается так: 1). Подключи библиотеку FSO (Progect->References, поставить галочку Microsoft Scripping Runtime) 2). Код : Private Sub Form_Load() Dim fso As FileSystemObject Dim Drv As Drive Set drv = fso.GetDrive("c:\") ' Здесь "с\" - буква диска SerialNamber = drv.SerialNumber Print SerialNamber End Sub
|
||
|
Номер ответа: 2 Автор ответа:  msv Вопросов: 34 Ответов: 312 |
Web-сайт: Профиль | | #2 | Добавлено: 28.01.03 07:25 |
|
Скачай WinControl: http://www.vbnet.ru/activex/activexdownload.asp?id=71 Там тебе не только серийник, но и много полезной информации о системе. Размер 23 Кб. |
||
Страница: 1 |