#!C:/ActivePerl/bin/perl.exe
use strict;
use warnings;
use Win32::OLE qw/in/;
use Getopt::Long;
#
#How to run a process on a remote workstation (NT/2K)
#
my ($remote_computer, $command_path, $help);
GetOptions ('r:s'=>\$remote_computer,
            'c:s'=>\$command_path,
            'h'  =>\$help )
            or warn("Couldn't read arguments.\n");

help_and_exit() if ($help);            
help_and_exit() if (!defined($remote_computer) || !defined($command_pa
+th) );

my $wmihandle    = Win32::OLE->GetObject( "winmgmts:{impersonationLeve
+l=impersonate,(security)}//$remote_computer\\root\\cimv2");
my $wmiprocesses = Win32::OLE->GetObject( "winmgmts:{impersonationLeve
+l=impersonate,(security)}//$remote_computer\\root\\cimv2:Win32_Proces
+s");

#Is the process running already?
unless ( cmd_is_running($wmihandle,$command_path) ) {
   print "$command_path is not already running.\n";   
}

#This doesn't seem to be necessary but it's in the docs!
#http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmis
+dk/wmi/create_method_in_class_win32_process.asp
my $Startup_Class = $wmihandle->Get("Win32_ProcessStartup");
my $Startup_Config = $Startup_Class->SpawnInstance_ ;

my ($error, $pid, $startup_folder);
$startup_folder="\\\\cntr035533\\c\$\\TEMP\\";

#The Create() method returns 0 on success
if (0 == $wmiprocesses->Create($command_path) ) {

   $pid = $wmiprocesses->{'ProcessID'};
   if (! $pid) { 
      $pid = " [PID not available from Win32_Process.ProcessID]"; 
   }
   print "Successfully started command with pid $pid\n";   

}else{

   print "Failed to create process with Win32_Process.Create(cmd)\n";
   print "Trying Win32_Process.Create(cmdpath, startup, Win32_ProcessS
+tartup, processid)\n";
   $error = $wmiprocesses->Create($command_path,$startup_folder,$Start
+up_Config,$pid);

   #Error codes are 'explained' at the msdn link above.
   if ($error) {
      print "$command_path failed to start with WMI err: $error\n";   
+   
   }else{
      print "Started $command_path at 2nd attempt.\n";
   }
}

#Check to see that the process is running.
unless ( cmd_is_running($wmihandle,$command_path) ) {
   print "$command_path doesn't appear to be running.\n";   
}
  

#--- SUBS ---         
         
sub cmd_is_running{
   my ($wmi,$cmd) = @_;
   return undef if not defined($wmi);
   return undef if not defined($cmd);
   my $cmdname;
   if ( $cmd=~ /(?:\\|\/)*([^\\\/]+)$/ ) {
      $cmdname=uc($1);
   }else{
      print "Failed to get command name from $cmd\n";
      return 0;
   }      
   
   my $message = '';
   #Ask the WMI Class for a list of Processes
   foreach my $process (in($wmihandle->InstancesOf("Win32_Process"))) 
+{
      if (uc($process->{'Name'}) eq $cmdname ) {
         $message .= "$cmdname is running with PID = " . $process->{'P
+rocessID'} . "\n";   
      }
   }
   if ($message) {
      print $message
      return 1;
   }
   return 0;
}        

sub help_and_exit {
   print <<EOF;
$0

Syntax:
   -r <remote computername>
   -c <command> [Remember to use quotes if there are spaces!]
   -h print this and exit.
EOF

   exit(1);   
}   

__END__

[download]

In reply to How to Start a Process in a Remote Win32 Machine using Perl and WMI by maa

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.