#!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=imperson
+ate}!//$server/root/cimv2:Win32_Process");
[download]