|
|
|
Узнать имя видеокарты
|
|||
|---|---|---|---|
|
#18+
Нужно написать макрос в excel, который вытащит имя процессора, объем памяти и видео карту компа на котором он запущен. С CPU и памятью разобрался, а вот с картой грустно. Помогите кто чем может! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.07.2007, 17:02 |
|
||
|
Узнать имя видеокарты
|
|||
|---|---|---|---|
|
#18+
Используй WMI получишь всю информацию о системе ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.07.2007, 17:15 |
|
||
|
Узнать имя видеокарты
|
|||
|---|---|---|---|
|
#18+
sandreynikИспользуй WMI получишь всю информацию о системе Можно подробней, пожалуйста!!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.07.2007, 17:17 |
|
||
|
Узнать имя видеокарты
|
|||
|---|---|---|---|
|
#18+
Зайди сюда http://www.script-coding.info/WMI.html ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.07.2007, 17:25 |
|
||
|
Узнать имя видеокарты
|
|||
|---|---|---|---|
|
#18+
sandreynikЗайди сюда http://www.script-coding.info/WMI.html Спасибо :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.07.2007, 17:59 |
|
||
|
Узнать имя видеокарты
|
|||
|---|---|---|---|
|
#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:21 |
|
||
|
Узнать имя видеокарты
|
|||
|---|---|---|---|
|
#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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.07.2007, 18:25 |
|
||
|
|
start [/forum/topic.php?fid=60&msg=34654291&tid=2163741]: |
0ms |
get settings: |
7ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
165ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
38ms |
get tp. blocked users: |
1ms |
| others: | 206ms |
| total: | 449ms |
| 0 / 0 |
