Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Получить суммарную информацию о компьютере из реестра / 6 сообщений из 6, страница 1 из 1
12.05.2017, 12:40
    #39452032
BlackeAngel
BlackeAngel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить суммарную информацию о компьютере из реестра
Собственно, если где то было ткните носом.
Если нет, то давайте попробуем решить сия задачу.
Надо получить информацию:
ось, разрядность, железо: проц, видяха, оперативная жёсткий
На вин7, Гугл говорит, надо сканить ветку HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/OEMInformation.
Тк с реестром ни разу не работал, то выручайте.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2017, 12:48
    #39452046
BlackeAngel
BlackeAngel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить суммарную информацию о компьютере из реестра
Для винХР фиг знает где и что.
Да и вообще для любой винды надо.
Думал использовать msinfo32 но там здоровый отчёт, который готовится очень долго.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2017, 12:49
    #39452048
BlackeAngel
BlackeAngel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить суммарную информацию о компьютере из реестра
И все это надо на vb6.0
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2017, 13:48
    #39452107
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить суммарную информацию о компьютере из реестра
BlackeAngelось, разрядность
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_OperatingSystem",,48) 
For Each objItem in colItems 
    Wscript.Echo "BuildNumber: " & objItem.BuildNumber
    Wscript.Echo "OSArchitecture: " & objItem.OSArchitecture
    Wscript.Echo "OSType: " & objItem.OSType
    Wscript.Echo "Version: " & objItem.Version
Next



BlackeAngelпроц
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_Processor",,48) 
For Each objItem in colItems 
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Win32_Processor instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Architecture: " & objItem.Architecture
    Wscript.Echo "CurrentClockSpeed: " & objItem.CurrentClockSpeed
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "DeviceID: " & objItem.DeviceID
    Wscript.Echo "Family: " & objItem.Family
    Wscript.Echo "Manufacturer: " & objItem.Manufacturer
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "NumberOfCores: " & objItem.NumberOfCores
    Wscript.Echo "NumberOfLogicalProcessors: " & objItem.NumberOfLogicalProcessors
    Wscript.Echo "ProcessorId: " & objItem.ProcessorId
    Wscript.Echo "ProcessorType: " & objItem.ProcessorType
    Wscript.Echo "Revision: " & objItem.Revision
Next



BlackeAngelвидяха
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_VideoController",,48) 
For Each objItem in colItems 
    Wscript.Echo "AdapterRAM: " & objItem.AdapterRAM
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "VideoArchitecture: " & objItem.VideoArchitecture
    Wscript.Echo "VideoMemoryType: " & objItem.VideoMemoryType
    Wscript.Echo "VideoProcessor: " & objItem.VideoProcessor
Next



BlackeAngelоперативная
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_PhysicalMemory",,48) 
For Each objItem in colItems 
    Wscript.Echo "BankLabel: " & objItem.BankLabel
    Wscript.Echo "Capacity: " & objItem.Capacity
    Wscript.Echo "Speed: " & objItem.Speed
Next



BlackeAngelжёсткий
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_DiskDrive",,48) 
For Each objItem in colItems 
    Wscript.Echo "DeviceID: " & objItem.DeviceID
    Wscript.Echo "Model: " & objItem.Model
    Wscript.Echo "SerialNumber: " & objItem.SerialNumber
    Wscript.Echo "Size: " & objItem.Size
Next



С VBS на VB(A) сам перепишешь, это несложно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2017, 13:50
    #39452109
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить суммарную информацию о компьютере из реестра
Подробнее - вот тут .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2017, 14:42
    #39452149
BlackeAngel
BlackeAngel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить суммарную информацию о компьютере из реестра
Akina, огромнейшее спасибо!)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Получить суммарную информацию о компьютере из реестра / 6 сообщений из 6, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 2971ms
Закрыть
start [/forum/search_topic.php?author=%D0%94%D0%B8%D0%B4%D0%B0%D1%80&author_mode=last_topics&do_search=1]:
 0ms
get settings:
 9ms
get forum list:
 13ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 57ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 2804ms
total:  2971ms
x
x
Закрыть


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