#!/usr/bin/perl

use Win32;
use Win32::OLE qw (in);

$zielrechner   = "192.168.1.2";
$benutzer      = "Administrator";
$passwort      = "Chicago";
$programm      = "calc.exe";

# baue Verbindung zum Zielrechner auf (kein localhost!)
$kiste_1 = Win32::OLE->new('WbemScripting.SWbemLocator');
$server  = $kiste_1->ConnectServer($zielrechner, "root\\cimv2", $benutzer, $passwort);

# erstelle Prozeß
$process    = $server->Get("Win32_Process");
$ergebnis   = $process->Create($programm);

if($ergebnis == 0){  print "Prozess erfolgreich gestartet."}
else{                print "Prozess konnte nicht gestartet werden: $!"}