my $locator = Win32::OLE->new("WbemScripting.SWbemLocator") or die "Can't open WbemScripting object: $^E";
my $wmi = $locator->ConnectServer($server) or die "Can't connect to server $server: $^E";