Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/10: Рейтинг темы: голосов - 10, средняя оценка - 4.50
runo
2 / 2 / 0
Регистрация: 07.07.2014
Сообщений: 61
1

Как программно узнать серийный номер винчестера в VBA?

03.01.2009, 16:03. Просмотров 1945. Ответов 5
Метки нет (Все метки)

Подскажите, как программно узнать серийный номер винчестера???
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.01.2009, 16:03
Ответы с готовыми решениями:

Как программно узнать серийный номер винчестера?
Подскажите как мне программно узнать серийник винчестера. Есть ли какие-нибудь стандартные функции,...

Как узнать серийный номер винчестера?
и возможно ли такое?

Как можно программно получить серийный номер винчестера?
Мне нужно программно создать 'Serial Key' -сериальный номер для моей программы (soft-a), т.е....

Как можно программно получить серийный номер винчестера
Мне нужно программно создать 'Serial Key' -сериальный номер для моей программы (soft-a), т.е....

Как можно программно получить SCSI серийный номер винчестера?
Возможно ли программно получить получить серийны номер SCSI винчестера? Если кто-то когда-либо...

5
AmbX
0 / 0 / 0
Регистрация: 21.12.2007
Сообщений: 122
04.01.2009, 11:05 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ShowDriveInfo(drvpath)
    Dim fs, d, s, t
    Set fs = CreateObject('Scripting.FileSystemObject')
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
    Select Case d.DriveType
        Case 0: t = 'Unknown'
        Case 1: t = 'Removable'
        Case 2: t = 'Fixed'
        Case 3: t = 'Network'
        Case 4: t = 'CD-ROM'
        Case 5: t = 'RAM Disk'
    End Select
    s = 'Drive ' & d.DriveLetter & ': - ' & t
    s = s & vbCrLf & 'SN: ' & d.SerialNumber
    MsgBox s
End Sub
0
Genka
09.01.2009, 18:16 3
посмотри на hiprog.com
Comanche
14.01.2009, 14:21 4
Если тебе нужен ЗАВОДСКОЙ номер, который не меняется ни при каких форматированиях и который можно узнать только через DOS-утилиту IDEINFO.EXE, то однозначно пользуй компоненту TVICHW32.OCX. Правда, сначала в ней надо в двоичном редакторе пару байтов подправить )
Также понадобятся: VICHW11.VXD и TVICHW32.DLL. Ну и прога по опросу портов. Работает только с IDE-устройствами.
sergmagunov
0 / 0 / 1
Регистрация: 29.12.2008
Сообщений: 108
14.01.2009, 15:08 5
Можно попробовать это сделать через API

Сергей
0
sergmagunov
0 / 0 / 1
Регистрация: 29.12.2008
Сообщений: 108
14.01.2009, 15:09 6
Можно попробовать это сделать через API

Сергей
0
14.01.2009, 15:09
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.01.2009, 15:09

Определить заводской серийный номер винчестера
как можно определить заводской серийный номер винчестера для delphi

Серийный номер материнской платы или винчестера
Здравствуйте! Как узнать серийный номер материнской платы или винчестера под lubuntu 15.04? Спасибо

Как программно считать серийный номер материнки?
Пишу прогу, хочу сделать её платной, заработать некоторую копейку. Замысел: При установке прога...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.