Select Code to Download

use strict;
use Win32::OLE;
...
my $wmi = Win32::OLE->GetObject('winmgmts:!\\\\localhost\root\default'
+);

print "Got a wmi object" if defined $wmi;