Доброго времени суток понадобилось собрать всю инфу о машине вот собственно вопрос как узнать модель HDD и объем (общий) или может кто знает где в реестре инфу можно считать ???
Заранее спасибо.
Заранее спасибо.
Как узнать серийный номер диска.
Автор: James Limm
При форматировании диска, операционная система записывает на него серийный номер. Нет гарантии, что этот номер окажется уникальным, однако, трудно себе представить, что для 32 битного значения найдётся дубликатЭтот номер частенько используется программистами для защиты программы от копирования.
Объявления
Скопируйте следующий код в секцию объявлений проекта.
Private Declare Function GetVolumeInformation Lib _
"kernel32.dll" Alias "GetVolumeInformationA" (ByVal _
lpRootPathName As String, ByVal lpVolumeNameBuffer As _
String, ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength _
As Long, lpFileSystemFlags As Long, ByVal _
lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long) As Long
Код
Function GetSerialNumber(strDrive As String) As Long
Dim SerialNum As Long
Dim Res As Long
Dim Temp1 As String
Dim Temp2 As String
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
Res = GetVolumeInformation(strDrive, Temp1, _
Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
GetSerialNumber = SerialNum
End Function
Использование
Пример использования вышеприведённой функции:
Call MsgBox GetSerialNumber("C:")
После выполнения этой функции должно появиться диалоговое окошко с серийным номером диска C.
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\IDE\название
пока нашел в нете ветвь в реестре
Код|Code
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\IDE\название
var searcher = new ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive");
foreach (ManagementBaseObject info in searcher.Get())
{
foreach (var device in info.Properties)
try
{
Console.WriteLine($"{device.Name} - {info[device.Name]}");
//Или определенное получить нужное значение Console.WriteLine(info["Model"]);
}
catch { /**/ }
}