#!perl
use strict;
use Win32::OLE;
use Win32::OLE::Variant;
my $exe='calc.exe';
my $user="admin";
my $pass="admin";
my $server="machineName";
my $obj = Win32::OLE->GetObject("WinMgmts:{impersonationLevel=impersonate}!//$server/root/cimv2:Win32_Process");