Select Code to Download

@echo off
wmic process |find /i "Caption" |perl -CS -ne "($caption,$commandline,
+$ppid,$pid)=unpack('a[21] a[270] @798a[17] @899a[11]',$_);print '}',$
+caption,'-',$ppid,'-',$pid,'-',$commandline,'{',$/;" |find /i "parent
+"
wmic process |find /i "%1" |perl -CS -ne "($caption,$commandline,$ppid
+,$pid)=unpack('a[21] a[270] @798a[17] @899a[11]',$_);print '}',$capti
+on,'-',$ppid,'-',$pid,'-',$commandline,'{',$/;" |find /v /i "find"

#!/usr/bin/perl -WCD

...
    }        
}
close(PROCINFO);