use strict;
use warnings;

use Win32::OLE ();

my $computer = '.';

my $obj = Win32::OLE->GetObject("winmgmts:\\\\$computer\\root\\cimv2")
or die("$^E\n");

my $slots = $obj->InstancesOf("Win32_SystemSlot");

foreach my $slot (Win32::OLE::in $slots) {
   print
      $slot->{ SlotDesignation  }, $/,
      $slot->{ Description      }, $/,
      $slot->{ Tag              }, $/,
      join(', ', @{$slot->{ConnectorType}}), $/,
      $/;
}

print("PCI = 43\n");
print("ISA = 44\n");