【Perl, Windows】WMIに接続する（基本編） | blog.delphinus.dev

前回のネタについて細かく見て行こう。 そもそもWMIとは何か。 Windows Management Instrumentation – Wikipedia http://ja.wikipedia.org/wiki/WMI Windows Management Instrumentation（WMI）は、Windows Driver Modelへの拡張の一種で、システムの構成要素について情報収集と通知を行うオペレーティングシステムのインタフェースを提供する。 これだけではなんだかよくわからないが、要するに、OSから得られる様々な情報に対する統括的なインターフェイスだ。Windowsの状態について知りたいならばこれで全て賄えるのである。 PerlからこのWMIへのアクセスにはWin32::OLEモジュールを使う。基本的な構文はこうだ。 $wmi = Win32::OLE->GetObject

[kiyo_hiko]

なる。use Win32::OLE qw/in/; my $wmi = Win32::OLE->GetObject("winmgmts:/root/CIMV2"); my $q = "SELECTゴニョゴニョ"; my $res = $wmi->ExecQuery($q); for (in $res) { $res->$key使ってゴニョゴニョ }