All pastes #265276 Raw Edit

Something

public text v1 · immutable
·published 2006-12-03 04:13 UTC
rendered paste body
#!/usr/bin/perl
use Win32::OLE;
$strComputer = "192.168.1.101" ;
#connect to WMI

print "Connecting to $ARGV[0]\n";
$wmi = Win32::OLE->GetObject("winmgmts://$strComputer/root/cimv2:Win32_PRocess");
if( 0 == $wmi->Create("notepad.exe", undef, undef, $Pid ) )
 {
    print "PID $Pid created\n";
 }
  else
 {
    print "Failed.\n";
 }