Topic: Get VideoCard Info.

[Andrea]

Hi all,..

I'm trying to get video Card info...

with DOS prompt, I use this:

Code: [Select]

wmic path win32_VideoController get namewith it show: NVIDIA Quadro K1100M

In Lisp.. I use this:

Code: [Select]

  (setq wmi (vlax-create-object "WbemScripting.SWbemLocator"))
  (Setq objWMIService (vlax-invoke WMI 'CONNECTSERVER "." "root\\cimv2" nil nil nil nil nil nil))
  (setq colItems (vlax-invoke objWMIService 'EXECQUERY "Select * from Win32_VideoController"))
   (vlax-for item colItems (vlax-get item 'Name))
with it Show: Intel(R) HD Graphics 4600

So the question is,..
How can I get the correct value ? it seem that the Code do not get the correct Name VideoCard info from VidoController .

Any help will be appreciated.
Thank you.

[Andrea]

got it..

sorry..

Code: [Select]

(Setq objWMIService (vlax-invoke WMI 'CONNECTSERVER "." "root\\cimv2" nil nil nil nil nil nil))
  (setq colItems (vlax-invoke objWMIService 'EXECQUERY "Select * from Win32_VideoController"))
   (vlax-for item colItems
     (if (setq GN (vlax-get item 'Name))
       (setq GNlist (append GNlist (list GN)))
       )
     )

[Grrr1337]

<Daily news>: Heres something useful by Andrea.
Thanks for sharing!

[kruuger]

hello,


Can we rework this code to get all displays (monitors) connected to our PC?


Thanks

[ribarm]

I think that WMI don't support Monitors or Displays... AFAIK it supports logical disks and graphics like Andrea posted...

Here are the codes :

Code: [Select]

(defun c:Graphic-Info ( / WMI objWMIService colItems GN GNlist r )

  (or (vl-catch-all-error-p (vl-catch-all-apply (function vlax-get-acad-object) nil)) (vl-load-com))

  (setq WMI (vlax-create-object "WbemScripting.SWbemLocator"))
  (setq objWMIService (vlax-invoke WMI 'CONNECTSERVER "." "root\\cimv2" nil nil nil nil nil nil))
  (setq colItems (vlax-invoke objWMIService 'EXECQUERY "Select * from Win32_VideoController"))
  (vlax-for item colItems
    (if (setq GN (vlax-get item 'Name))
      (setq GNlist (append GNlist (list GN)))
    )
  )
  (vlax-release-object WMI)
  (vlax-release-object objWMIService)
  (vlax-release-object colItems)
  (setq r "")
  (foreach x GNlist
    (setq r (strcat r x " , "))
  )
  (prompt (substr r 1 (- (strlen r) 3)))
  (princ)
)


Code: [Select]

(defun c:Disks-Info ( / WMI objWMIService colItems GN GNlist r )

  (or (vl-catch-all-error-p (vl-catch-all-apply (function vlax-get-acad-object) nil)) (vl-load-com))

  (setq WMI (vlax-create-object "WbemScripting.SWbemLocator"))
  (setq objWMIService (vlax-invoke WMI 'CONNECTSERVER "." "root\\cimv2" nil nil nil nil nil nil))
  (setq colItems (vlax-invoke objWMIService 'EXECQUERY "Select * from Win32_LogicalDisk"))
  (vlax-for item colItems
    (if (setq GN (vlax-get item 'Name))
      (setq GNlist (append GNlist (list GN)))
    )
  )
  (vlax-release-object WMI)
  (vlax-release-object objWMIService)
  (vlax-release-object colItems)
  (setq r "")
  (foreach x GNlist
    (setq r (strcat r x " , "))
  )
  (prompt (substr r 1 (- (strlen r) 3)))
  (princ)
)

HTH.

[ribarm]

I was wrong ab WMI... Here is what you searched... It tells info ab Monitor through WMI...

Code: [Select]

(defun c:Monitor-Info ( / WMI objWMIService colItems GN GNlist r )

  (or (vl-catch-all-error-p (vl-catch-all-apply (function vlax-get-acad-object) nil)) (vl-load-com))

  (setq WMI (vlax-create-object "WbemScripting.SWbemLocator"))
  (setq objWMIService (vlax-invoke WMI 'CONNECTSERVER "." "root\\cimv2" nil nil nil nil nil nil))
  (setq colItems (vlax-invoke objWMIService 'EXECQUERY "Select * from Win32_DesktopMonitor"))
  (vlax-for item colItems
    (if (setq GN (vlax-get item 'Name))
      (setq GNlist (append GNlist (list GN)))
    )
  )
  (vlax-release-object WMI)
  (vlax-release-object objWMIService)
  (vlax-release-object colItems)
  (setq r "")
  (foreach x GNlist
    (setq r (strcat r x " , "))
  )
  (prompt (substr r 1 (- (strlen r) 3)))
  (princ)
)

HTH.
M.R.

[kruuger]

I was wrong ab WMI... Here is what you searched... It tells info ab Monitor through WMI...

Code: [Select]

(defun c:Monitor-Info ( / WMI objWMIService colItems GN GNlist r )

  (or (vl-catch-all-error-p (vl-catch-all-apply (function vlax-get-acad-object) nil)) (vl-load-com))

  (setq WMI (vlax-create-object "WbemScripting.SWbemLocator"))
  (setq objWMIService (vlax-invoke WMI 'CONNECTSERVER "." "root\\cimv2" nil nil nil nil nil nil))
  (setq colItems (vlax-invoke objWMIService 'EXECQUERY "Select * from Win32_DesktopMonitor"))
  (vlax-for item colItems
    (if (setq GN (vlax-get item 'Name))
      (setq GNlist (append GNlist (list GN)))
    )
  )
  (vlax-release-object WMI)
  (vlax-release-object objWMIService)
  (vlax-release-object colItems)
  (setq r "")
  (foreach x GNlist
    (setq r (strcat r x " , "))
  )
  (prompt (substr r 1 (- (strlen r) 3)))
  (princ)
)

HTH.
M.R.

Hi Marko,
Thanks. Close, but returns only 1 display, when 3 are connected.
Any trick to get others?
kruuger

[ribarm]

I don't know, maybe all 3 are the same...

[kruuger]

I don't know, maybe all 3 are the same...

dig more this issue. probably problem is that it is one monitor with 1 on each side, but at the end it is one big window desktop.
looks like return main screen info