Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
11.07.2007, 17:02
|
|||
|---|---|---|---|
|
|||
Узнать имя видеокарты |
|||
|
#18+
Нужно написать макрос в excel, который вытащит имя процессора, объем памяти и видео карту компа на котором он запущен. С CPU и памятью разобрался, а вот с картой грустно. Помогите кто чем может! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
11.07.2007, 17:15
|
|||
|---|---|---|---|
|
|||
Узнать имя видеокарты |
|||
|
#18+
Используй WMI получишь всю информацию о системе ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
11.07.2007, 17:17
|
|||
|---|---|---|---|
|
|||
Узнать имя видеокарты |
|||
|
#18+
sandreynikИспользуй WMI получишь всю информацию о системе Можно подробней, пожалуйста!!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
11.07.2007, 17:25
|
|||
|---|---|---|---|
|
|||
Узнать имя видеокарты |
|||
|
#18+
Зайди сюда http://www.script-coding.info/WMI.html ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
11.07.2007, 17:59
|
|||
|---|---|---|---|
|
|||
Узнать имя видеокарты |
|||
|
#18+
sandreynikЗайди сюда http://www.script-coding.info/WMI.html Спасибо :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
11.07.2007, 18:21
|
|||
|---|---|---|---|
|
|||
Узнать имя видеокарты |
|||
|
#18+
Здесь базовый код определяет мат. плату память VideoCard Dim fComputerInfo As ComputerInfo strSecurity = "{impersonationLevel=impersonate}!\\" NameComputer = "." Set objWMIService = GetObject("winmgmts:" _ & strSecurity & NameComputer & "\root\cimv2") ' ***************** Filling MotherBoard properties Set colSettings = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") For Each objComputer In colSettings With fComputerInfo Manufacturer = objComputer.Manufacturer Model = objComputer.Model SystemType = objComputer.SystemType Memory = objComputer.TotalPhysicalMemory End With Next objComputer ' ***************** Filling VideoCard properties Set colSettings = objWMIService.ExecQuery("Select * from Win32_VideoController") For Each objComputer In colSettings With fComputerInfo VideoCard = objComputer.Description End With Next objComputer ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
11.07.2007, 18:25
|
|||
|---|---|---|---|
|
|||
Узнать имя видеокарты |
|||
|
#18+
Не много ошибся strSecurity = "{impersonationLevel=impersonate}!\\" NameComputer = "." Set objWMIService = GetObject("winmgmts:" _ & strSecurity & NameComputer & "\root\cimv2") ' ***************** Filling MotherBoard properties Set colSettings = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") For Each objComputer In colSettings Manufacturer = objComputer.Manufacturer Model = objComputer.Model SystemType = objComputer.SystemType Memory = objComputer.TotalPhysicalMemory Next objComputer ' ***************** Filling VideoCard properties Set colSettings = objWMIService.ExecQuery("Select * from Win32_VideoController") For Each objComputer In colSettings VideoCard = objComputer.Description End With Next objComputer ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=60&mobile=1&tid=2163741]: |
0ms |
get settings: |
6ms |
get forum list: |
10ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
193ms |
get topic data: |
6ms |
get forum data: |
1ms |
get page messages: |
23ms |
get tp. blocked users: |
1ms |
| others: | 222ms |
| total: | 466ms |
| 0 / 0 |
