| Вопрос: серийник винта | Добавлено: 24.12.05 13:20 |
Автор вопроса:  Leha
|
| кто нить подскажите можно ли средствами вб узнать серийник винта или какую нить другую уникальную инфу о системе |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  SerJ Вопросов: 24 Ответов: 332 |
Профиль | | #1 | Добавлено: 24.12.05 13:30 |
|
Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Private Declare Function GetDriveType& Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long ' Определение типа дисковода driveName = GetDrive("C:\" 
' Определение метки тома, серийного номера диска и файловой системы GetVolume pathName, drvVolumeName, drvSerialNo, drvFileSystem ' Определение размера диска GetSize pathName, free, total |
||
|
Номер ответа: 2 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #2 | Добавлено: 24.12.05 14:17 |
|
Это не серийник. Это число, привязанное к логическому диску, которое
меняется при форматировании винта. |
||
|
Номер ответа: 3 Автор ответа: DushesICQ: 249195431 Вопросов: 8 Ответов: 110 |
Профиль | | #3 | Добавлено: 24.12.05 14:33 |
| Как один из вариантов: WMI рулит ! | ||
|
Номер ответа: 4 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 24.12.05 15:46 |
| Leha, а лень примеры посмотреть? | ||
Страница: 1 |