Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: I wish to monitor and react according to windows "Task Manager"

by DaWolf (Curate)
on Dec 29, 2004 at 09:19 UTC ( #417954=note: print w/replies, xml ) Need Help??


in reply to I wish to monitor and react according to windows "Task Manager"

As Corion stated, take a look at Win32::Process and Win32::Process::Info.

Just to show you an example so you can have an idea of how the second one works here's a piece of code that uses Tk to show Process Information (just strip Tk out of it if you need):
#!/usr/bin/perl -w use strict; use Win32::Process::Info; use Tk; use Tk::HList; use Tk::ItemStyle; my $mw = MainWindow->new( -width => 350, -title => 'Processes Monitor', -height => 50 ); my $hlist = $mw->Scrolled( "HList", -header => 1, -columns => 3, -scrollbars => 'osoe', -width => 70, -selectbackground => 'White', )->pack( -expand => 1, -fill => 'both' ); my $hStyle = $hlist->ItemStyle( "text", -foreground => "black", -font => "Verdana 8" ); my $rStyle = $hlist->ItemStyle( "text", -foreground => "blue", -background => "white", -font => "Verdana 8" ); $hlist->header('create', 0, -text => 'ID', -style => $hStyle); $hlist->header('create', 1, -text => 'Name', -style => $hStyle); $hlist->header('create', 2, -text => 'Executable', -style => $hStyle); my $pi = Win32::Process::Info->new (undef, 'WMI'); #$pi->Set (elapsed_as_seconds => 0); # In clunks, not seconds. #@pids = $pi->ListPids (); # Get all known PIDs my @info = $pi->GetProcInfo (); # Get the max #%subs = $pi->Subprocesses (); # Figure out subprocess relationships. for (my $p = 0; $p < scalar @info; $p++) { if (!($info[$p]{'ProcessId'})) { $info[$p]{'ProcessId'} = ''; } if (!($info[$p]{'Name'})) { $info[$p]{'Name'} = ''; } if (!($info[$p]{'ExecutablePath'})) { $info[$p]{'ExecutablePath'} = ''; } my $pid = $info[$p]{'ProcessId'}; my $pnm = $info[$p]{'Name'}; my $pex = $info[$p]{'ExecutablePath'}; $hlist->add($p); $hlist->itemCreate($p, 0, -text => "$pid", -style => $rStyle); $hlist->itemCreate($p, 1, -text => "$pnm", -style => $rStyle); $hlist->itemCreate($p, 2, -text => "$pex", -style => $rStyle); } MainLoop;
Regards,
  • Comment on Re: I wish to monitor and react according to windows "Task Manager"
  • Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://417954]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (5)
As of 2021-04-19 13:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?