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

Set ISWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set wmi = ISWbemLocator.ConnectServer
# bzw. bei Verbinden zu einem externen Rechner
Set wmi = ISWbemLocator.ConnectServer(rechnername)

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";