Convert from c# to Perl

[alwaysuseperl]

Hey guys, so im trying to convert a simple c# script into a perl script. All it really does is use the Win32_process namespace to execute a command on a remote server, the below c# will execute notepad.exe on a remote server, just for testing. NOTE: I know psexec can do this, but id like to stay away from piping commands through that..

 namespace WMISample
    {
        class Program
        {
            static void Main(string[] args)
            {
                string remoteMachine = "server";

                ConnectionOptions connOptions = new ConnectionOptions(
+);
                connOptions.Impersonation = ImpersonationLevel.Imperso
+nate;
                connOptions.EnablePrivileges = true;

                ManagementScope manScope = new ManagementScope(String.
+Format(@"\\{0}\ROOT\CIMV2", remoteMachine), connOptions);
                manScope.Connect();

                ObjectGetOptions objectGetOptions = new ObjectGetOptio
+ns();
                ManagementPath managementPath = new ManagementPath("Wi
+n32_Process");
                ManagementClass processClass = new ManagementClass(man
+Scope, managementPath, objectGetOptions);

                ManagementBaseObject inParams = processClass.GetMethod
+Parameters("Create");

                inParams["CommandLine"] = @"notepad.exe";
                ManagementBaseObject outParams = processClass.InvokeMe
+thod("Create", inParams, null);

                Console.WriteLine("Creation of the process returned: "
+ + outParams["returnValue"]);
                Console.WriteLine("Process ID: " + outParams["processI
+d"]);
                Console.ReadLine();
            }
        }
    }

[eyepopslikeamosquito]

To start up a process on a remote machine, you might try using WMI. Here's an old test Perl script I wrote ages ago to do that:

use Win32::OLE qw(in);
use Win32::OLE::Variant;
my $cmdline = "notepad";
my $machname = 'dev-autotest';
# This is the WMI moniker used to connect to CIM repository.
my $class = "WinMgmts:{impersonationLevel=impersonate}!//$machname";
# Get the WMI interface.
my $wmi = Win32::OLE->GetObject($class) or die "error: Get WMI $^E";
# Get a Win32_Process class object.
my $proc = $wmi->Get('Win32_Process') or die "error: Get Win32_Process
+ $^E";
# Create a BYREF variant so a COM object can modify its value
# and return it to us.
my $vPid = Variant(VT_I4 | VT_BYREF, 0);
# Create the new process
if ($proc->Create($cmdline, undef, undef, $vPid) == 0)
{
   print "process created ok, pid=$vPid\n";
}
else
{
   print "process create failed $^E\n";
}

[alwaysuseperl]

Thank you! Thats a lot easier than I thought. You know if its possible to get the output of the command? Like if I ran a netstat?

[repellent]

NOTE: I know psexec can do this, but id like to stay away from piping commands through that..

I'm curious - Why not?

[alwaysuseperl]

Because when you pipe commands through psexec, you cant parse through it. It throws it in a different format. Ive tried it a few times. for example..

$var = `psexec \\server netstat -n`;

shouldn't display what psexec does unless you print $var, but it does

Thanks for the code! I was close, but never would have figured out the BYREF Variant values.

Is there a way to display the output of this command?

[repellent]

You're most likely referring to psexec's STDERR. Try capturing it:


my $stderr;
my $stdout = do {
    open(local *STDERR, ">", \$stderr)
      or die "Could not capture STDERR: $!";

    qx(psexec \\\\server netstat -n);
};

print "psexec stdout: $stdout\n";
print "-" x 60, "\n";
print "psexec stderr: $stderr\n";



Thanks for the code! I was close, but never would have figured out the BYREF Variant values.

It was eyepopslikeamosquito, not me :-)

[Anonymous Monk]

Win32_process namespace to execute a command on a remote server

So it uses chopsticks to fly airplanes?