perl进程操作

#!/user/local/bin/perl/

use Win32::Process;

use Win32;

##创建记事本进程并打开文件temp.txt
       sub ErrorReport{
                print Win32::FormatMessage( Win32::GetLastError() );
        }
        Win32::Process::Create($ProcessObj,
                                "C:\\WINDOWS\\system32\\notepad.exe",
                                "notepad temp.txt",
                                0,
                                NORMAL_PRIORITY_CLASS,
                                ".")|| die ErrorReport();
$pid = $ProcessObj->GetProcessID();
print("pidnotepad:\t $pid \n");

use Win32::OLE;
$machine= shift || Win32::NodeName();

##下面枚举机器中正在运行的所有进程信息

#$class = "WinMgmts:{impersonationLevel=impersonate}!//$machine";
#$wmi = Win32::OLE->GetObject($class);
        $wmi = Win32::OLE->GetObject('winmgmts:\\\\.\\root\\cimv2');##两种方法都可以的
$plist = $wmi->InstancesOf("Win32_Process");

$~ = PROC_LIST;
write;
$~ = PROC_INF;

$n = 0;
foreach $Proc (Win32::OLE::in( $plist )){
write;
$n++;
}
print " ===========================\n";
print " -> Processes number : $n <-\n";
print " ===========================";

# -----------------------------------------------------------------------------
format PROC_LIST =
@||| @|||||||||||||||| @||||||
"PID", "Process Name", " Memory"
---- ----------------- --------
.

format PROC_INF =
@||| @<<<<<<<<<<<<<<<< @|||||||
$Proc->{'ProcessID'},$Proc->{'Name'}, $Proc->{'PeakWorkingSetSize'}