how to get hardware information ?

[Anonymous]

Hello to all
Can any one help me : how to get hardware information using autoisp (visual lisp) ?

thanks

[patrick_35]

Hi

An example

(defun c:info(/ item meth1 meth2 process wmi)
(defun lister(val / it)
(vlax-for it val
(princ (strcat "\n" (vlax-get it 'name) " : "))
(if (vlax-get it 'value)
(princ (vlax-get it 'value))
(princ "Nil")
)
)
)

(vl-load-com)
(setq WMI (vlax-create-object "WbemScripting.SWbemLocator")
meth1 (vlax-invoke WMI 'ConnectServer nil nil nil nil nil nil nil nil))
(foreach process (list "BIOS" "Processor" "VideoController" "SoundDevice" "CDROMDrive" "OperatingSystem" "ComputerSystem" "PhysicalMemory" "DiskDrive")
(setq meth2 (vlax-invoke meth1 'ExecQuery (strcat "Select * from Win32_" Process)))
(princ (strcat "\nCaractéristiques " process " :"))
(vlax-for item meth2
(lister (vlax-get item 'Properties_))
(lister (vlax-get item 'Qualifiers_))
(getkword "\nAppuyez sur entrée pour continuer...")
)
)
(mapcar 'vlax-release-object (list meth1 meth2 wmi))
(princ)
)

@+

[Anonymous]

THANK YOU Patrick_35 !!!

:)))


You are SUPER BOY!!!!

THANK YOU again!!!!

I am be obliged to you!