my $objWMI = Win32::OLE->GetObject("winmgmts:\\\\$strComputer\\root\\cimv2"); # or die "Failed to create object";

##</code><code>##

my $objWMI = Win32::OLE->GetObject("winmgmts:\\\\$strComputer\\root\\cimv2");

die "GetObject(winmgmts:\\\\$strComputer\\root\\cimv2) failed - " . Win32::OLE->LastError() if
    Win32::OLE->LastError();