Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как можно узнать номер Хард диска / 4 сообщений из 4, страница 1 из 1
08.07.2004, 19:15
    #32596322
Фома
Фома
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно узнать номер Хард диска
Чтобы потом его записать(сохранить его где нибудь) и проверять его при каждом запуске.....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.07.2004, 19:24
    #32596334
Alex Sheff
Alex Sheff
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно узнать номер Хард диска
Код: 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.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
LOCAL lcRemoteComputer,loSWbemLocator, loSWbemServices,lcolSWbemObjectSet,loSWbemObject  
lcRemoteComputer = "."  
lcComputer="."
loSWbemServices = GetObject("winmgmts:\\" + lcComputer + "\root\cimv2")

* MAC адрес сетевой карты  
lcolSWbemObjectSet = loSWbemServices.InstancesOf("Win32_NetworkAdapterConfiguration")  
For Each loSWbemObject In lcolSWbemObjectSet  
	IF !IsNull(loSWbemObject.MACAddress) AND !IsNull(loSWbemObject.IPAddress)  
		? loSWbemObject.MACAddress  
	ENDIF  
Next  

* Серийный номер Windows  
lcolSWbemObjectSet = loSWbemServices.InstancesOf("Win32_OperatingSystem")  
For Each loSWbemObject In lcolSWbemObjectSet  
	? loSWbemObject.SerialNumber  
Next  

* Модель жесткого диска  
lcolSWbemObjectSet = loSWbemServices.InstancesOf("Win32_DiskDrive")  
For Each loSWbemObject In lcolSWbemObjectSet  
	? loSWbemObject.Model  
Next  

* Мамка
lcolSWbemObjectSet = loSWbemServices.InstancesOf("Win32_Processor")  
For Each loSWbemObject In lcolSWbemObjectSet  
	? loSWbemObject.ProcessorId,loSWbemObject.UniqueId
Next  

* Саунд
lcolSWbemObjectSet = loSWbemServices.InstancesOf("Win32_SoundDevice")  
For Each loSWbemObject In lcolSWbemObjectSet  
	? loSWbemObject.Name
	suspend
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2004, 15:45
    #32602073
a_i_b
a_i_b
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно узнать номер Хард диска
Function VolSerNum
PUBLIC lpRootPathName, ;
lpVolumeNameBuffer, ;
nVolumeNameSize, ;
lpVolumeSerialNumber, ;
lpMaximumComponentLength, ;
lpFileSystemFlags, ;
lpFileSystemNameBuffer, ;
nFileSystemNameSize
lpRootPathName = "C:\" && Drive and directory path
lpVolumeNameBuffer = SPACE(256) && lpVolumeName return buffer
nVolumeNameSize = 256 && Size of/lpVolumeNameBuffer
lpVolumeSerialNumber = 0 && lpVolumeSerialNumber buffer
lpMaximumComponentLength = 256
lpFileSystemFlags = 0
lpFileSystemNameBuffer = SPACE(256)
nFileSystemNameSize = 256
DECLARE INTEGER GetVolumeInformation IN Win32API AS GetVolInfo ;
STRING @lpRootPathName, ;
STRING @lpVolumeNameBuffer, ;
INTEGER nVolumeNameSize, ;
INTEGER @lpVolumeSerialNumber, ;
INTEGER @lpMaximumComponentLength, ;
INTEGER @lpFileSystemFlags, ;
STRING @lpFileSystemNameBuffer, ;
INTEGER nFileSystemNameSize

RetVal=GetVolInfo(@lpRootPathName, @lpVolumeNameBuffer, ;
@nVolumeNameSize, @lpVolumeSerialNumber, ;
@lpMaximumComponentLength, @lpFileSystemFlags, ;
@lpFileSystemNameBuffer, nFileSystemNameSize)
retu lpVolumeSerialNumber
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2004, 15:46
    #32602083
a_i_b
a_i_b
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно узнать номер Хард диска
Function VolSerNum
PUBLIC lpRootPathName, ;
lpVolumeNameBuffer, ;
nVolumeNameSize, ;
lpVolumeSerialNumber, ;
lpMaximumComponentLength, ;
lpFileSystemFlags, ;
lpFileSystemNameBuffer, ;
nFileSystemNameSize
lpRootPathName = "C:\" && Drive and directory path
lpVolumeNameBuffer = SPACE(256) && lpVolumeName return buffer
nVolumeNameSize = 256 && Size of/lpVolumeNameBuffer
lpVolumeSerialNumber = 0 && lpVolumeSerialNumber buffer
lpMaximumComponentLength = 256
lpFileSystemFlags = 0
lpFileSystemNameBuffer = SPACE(256)
nFileSystemNameSize = 256
DECLARE INTEGER GetVolumeInformation IN Win32API AS GetVolInfo ;
STRING @lpRootPathName, ;
STRING @lpVolumeNameBuffer, ;
INTEGER nVolumeNameSize, ;
INTEGER @lpVolumeSerialNumber, ;
INTEGER @lpMaximumComponentLength, ;
INTEGER @lpFileSystemFlags, ;
STRING @lpFileSystemNameBuffer, ;
INTEGER nFileSystemNameSize

RetVal=GetVolInfo(@lpRootPathName, @lpVolumeNameBuffer, ;
@nVolumeNameSize, @lpVolumeSerialNumber, ;
@lpMaximumComponentLength, @lpFileSystemFlags, ;
@lpFileSystemNameBuffer, nFileSystemNameSize)
retu lpVolumeSerialNumber
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как можно узнать номер Хард диска / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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