powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Номер диска?
22 сообщений из 22, страница 1 из 1
Номер диска?
    #33525288
GUEST002
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Как можно узнат серейний номер диска?
...
Рейтинг: 0 / 0
Номер диска?
    #33525311
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 GUEST002
Через API функцию
...
Рейтинг: 0 / 0
Номер диска?
    #33525328
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 GUEST002
Или же через регистр по адресу:
HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 0\Target Id 0\Logical Unit Id 0
...
Рейтинг: 0 / 0
Номер диска?
    #33525357
Guest002
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А опубликоват можещ API?
...
Рейтинг: 0 / 0
Номер диска?
    #33525413
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
declare integer GetVolumeInformation in win32api string,integer,integer,integer @,integer,integer,integer,integer
lnSn = 0
GetVolumeInformation('c:\', 0, 0, @lnSn, 0, 0, 0, 0)
...
Рейтинг: 0 / 0
Номер диска?
    #33525424
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 GUEST002
Серийный номер логического или физического диска?
...
Рейтинг: 0 / 0
Номер диска?
    #33525683
Guest002
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Недоходящий2 GUEST002
Серийный номер логического или физического диска?

Обо диска можно?
...
Рейтинг: 0 / 0
Номер диска?
    #33525805
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Guest002
с логикой пример привел Dima T.
А с физикой апи функцию незаню есть ли такая. Но то что через реестр прочитать серйник это работает. RegOpenKeyEx потом RegQueryValueEx.
...
Рейтинг: 0 / 0
Номер диска?
    #33526005
Guest0002
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо
...
Рейтинг: 0 / 0
Номер диска?
    #33527327
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hi GUEST002!

Попробуй через WMI.
АПИ функции возвращающей номер диска нет - то что возвращает
GetVolumeInformation - это номер логического тома - меняется при
форматировании, да и просто "руками" можно поменять - если иметь прямой
доступ к бут-сектору этого раздела.
Про реестр это тоже наколка - нету там никакого серийного номера - в лучшем
случае модель диска - причём я затрудняюсь сказать как она определяется -
возможно что это не совсем точная информация будет.
Также можно написать на C программу работающую с железом диска на низком
уровне и извлекающую прямо от самого диска эту информацию - конечно если он
её вообще предоставляет (опять же нет никакой гарантии что всякий имеющийся
диск вернёт хоть какой-то реальный серийный номер, а не какую-нить туфту и
близкого отношения к серийнику не имеющую).

Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
Номер диска?
    #33527758
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Igor Korolyov

Как это наколка? В менеджере девайсов кликая на свойства харда можно увидеть его серийный номер, и этот номер храниться в реестре винды.

А чтот такое WMI?
...
Рейтинг: 0 / 0
Номер диска?
    #33527778
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
LOCAL cRoot,cVolName,nVolSize,nHddSer,nMaxLen,nFlags,cFileSys,nFileSysLen

DECLARE INTEGER GetVolumeInformation IN win32api ;
	STRING, ;
	STRING @, ;
	INTEGER, ;
	INTEGER @, ;
	INTEGER @, ;
	INTEGER @, ;
	STRING @, ;
	INTEGER

cRoot=ADDBS(SYS( 5 ))
cVolName=SPACE( 260 )
nVolSize=LEN(cVolName)
nHddSer= 0 
nMaxLen= 0 
nFlags= 0 
cFileSys=SPACE( 260 )
nFileSysLen=LEN(cFileSys)

GetVolumeInformation(cRoot,@cVolName,nVolSize,@nHddSer,@nMaxLen,@nFlags,@cFileSys,nFileSysLen)
RETURN nHddSer

...
Рейтинг: 0 / 0
Номер диска?
    #33527812
guest 002
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо работает
...
Рейтинг: 0 / 0
Номер диска?
    #33527826
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ну, дык

ну эту мульку обойдет любой студент за 10 мин

а чаво защищать то хотите???

если денежка есть небольшая
посмотрите на хаспкейз
...
Рейтинг: 0 / 0
Номер диска?
    #33528107
Jurisfox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Под административными правами через DeviceIoControl
можно получить нормальный серийный номер производителя


Никогда не говори "невозможно", просто попробуй сделать иначе!
JS (at FoxClub)
...
Рейтинг: 0 / 0
Номер диска?
    #33530192
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Юра выложи уже у себя на сайте тот пример который ты мне присылал с DeviceIOControl
Виктор тут выложил свое решение - только почему-то меня приплел в соавторы
...
Рейтинг: 0 / 0
Номер диска?
    #33530875
Jurisfox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вадим!
Это все-таки не мой код - поищу в своей KB автора.
У меня он немного преобразованный в классе приложения авторевизора локальной сети.

Выложу весь класс - где собирается вся информация о компьютере.
Но на следующей неделе.

Никогда не говори "невозможно", просто попробуй сделать иначе!
JS (at FoxClub)
...
Рейтинг: 0 / 0
Номер диска?
    #33531102
Jurisfox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Через WMI

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
strComputer = "."
objWMIService = GetObject("winmgmts:\\" + strComputer + "\root\cimv2")
oDisksCollection = objWMIService.ExecQuery("Select * from Win32_DiskDrive",,48)
oPhysical= objWMIService.ExecQuery("Select * from Win32_PhysicalMedia")

For Each oDisk in oDisksCollection
? "Model: "
?? oDisk.Model
NEXT

For Each oDrive IN oPhysical
? "Serial Number: "
?? oDrive.SerialNumber
Next
Никогда не говори "невозможно", просто попробуй сделать иначе!
JS (at FoxClub)
...
Рейтинг: 0 / 0
Номер диска?
    #33539234
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hi Недоходящий!

REGEDIT4

[HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 0\Target Id
0\Logical Unit Id 0]
"Identifier"="IC35L040AVER07-0"
"Type"="DiskPeripheral"

И где ты тут предлагаешь искать серийный номер?
При этом код Юрия через WMI без вопросов выдаёт именно серийный номер (если
он конечно есть у диска, скажем у моего Flash-диска серийного номера нету)

Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
Номер диска?
    #33540146
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Igor Korolyov

там у меня прописан серийник. но винт у меня не скази а простой айдэе
...
Рейтинг: 0 / 0
Номер диска?
    #33544550
Jurisfox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
2Недоходящий
В ОС построенных на NT технологии будь-то W2K или XP
все устройства хранения будут именно там где указал Игорь.
В SCSI.


Никогда не говори "невозможно", просто попробуй сделать иначе!
JS (at FoxClub)
...
Рейтинг: 0 / 0
Номер диска?
    #33544576
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Jurisfox
Я так и писал этот адресс в начале этого топика. А вот про то что только на NT технологиях этого я не знал.
...
Рейтинг: 0 / 0
22 сообщений из 22, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Номер диска?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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