@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 '}',$caption,'-',$ppid,'-',$pid,'-',$commandline,'{',$/;" |find /v /i "find"