my $WMI = Win32::OLE->GetObject("WinMgmts:");