my $obj = Win32::OLE->new(['my.machine.com', 'Program.Id']);