tlist command

Hello All,

We have the below line of perl code working on Win 2003 server.


$output = `tlist iwperl.exe | egrep -i iwperl`;
$output = `tlist iwperl.exe*32 | egrep -i iwperl*32`;

We moved to Win 2008 server and the commands are not working. I tried to replace like below and still does not work.


$output = `tasklist /svc iwperl.exe | egrep -i iwperl`;
$output = `tasklist /svc iwperl.exe*32 | egrep -i iwperl*32`;

ERROR: Invalid argument/option - 'iwperl.exe*32'.
Type "TASKLIST /?" for usage.

Do any one of you can help us?

Find more posts tagged with

Comments

ISCBorisB

$output = `tasklist /svc iwperl.exe | egrep -i iwperl`;
$output = `tasklist /svc iwperl.exe*32 | egrep -i iwperl*32`;

ERROR: Invalid argument/option - 'iwperl.exe*32'.
Type "TASKLIST /?" for usage.

Learn to heed good advice. 'tlist' and 'tasklist' are different commands and have different switches/parameters.
Type "TASKLIST /?" and start reading.

Jenni

$output = `tasklist /svc iwperl.exe | egrep -i iwperl`;
$output = `tasklist /svc iwperl.exe*32 | egrep -i iwperl*32`;

ERROR: Invalid argument/option - 'iwperl.exe*32'.
Type "TASKLIST /?" for usage.
Learn to heed good advice. 'tlist' and 'tasklist' are different commands and have different switches/parameters.
Type "TASKLIST /?" and start reading.

The below link tells me that the tlist is no longer supported on latest version of Windows. It also says that tlist is replaced with TASKLIST.

http://ss64.com/nt/tlist.html

nipper

Try running this

tasklist /svc | grep iwperl

just from a DOS shell

Jenni

Try running this

tasklist /svc | grep iwperl

just from a DOS shell

Thanks nipper!

C:\Users\user1>tasklist /svc | grep iwperl
iwperl.exe 4368 N/A

I got the process ID. I would also need to get the prel script name that triggered this process.

Jenni

Thanks nipper!

C:\Users\user1>tasklist /svc | grep iwperl
iwperl.exe 4368 N/A

I got the process ID. I would also need to get the prel script name that triggered this process.

Does anyone know how to get the name and path of the script that triggered the iwperl process?

nipper

maybe

tasklist /v

Jenni

maybe

tasklist /svc /v

Looks like they cannot be used together.

C:\Users\user1>tasklist /svc /v
ERROR: Invalid syntax. /V, /M and /SVC options cannot be used together.

nipper

I edited my post and removed the /svc as I read the same thing

just try /v

Adam Stoller

Out of curiosity - could you perhaps explain what it is you're actually trying to accomplish here; the purpose behind trying to get this information?

It's possible, once you explain what you're actually trying to do, that there might be a completely different (perhaps even better) way to do it.

Jenni

maybe

tasklist /v

I tried this Nipper. But it does not give me the path or the name of the script that triggered the process.

Jenni

Out of curiosity - could you perhaps explain what it is you're actually trying to accomplish here; the purpose behind trying to get this information?

It's possible, once you explain what you're actually trying to do, that there might be a completely different (perhaps even better) way to do it.

Ghoti,

I am posting the code that was working on the 2003 server but not on 2008 server.

[html]
#!D:\iw-home\TeamSite\iw-perl\bin\iwperl

use CGI qw/:standard/;

CGI::ReadParse();
select(STDOUT);
$|=1;

my $server = `hostname`;
chomp($server);

print header();
print start_html(-title=>'Perl Scripts Currently Running');

######### Start Customizations ######################

print "Following are the Perl scripts currently running on $server:

\n";
$output = `tlist iwperl.exe | egrep -i iwperl`;

@final = split(/\n/,$output);

print "";print "";print "Process ID (PID)";print "Perl Script";print "";foreach $l(@final) { chomp($l); if ($l =~ /(^\d+)/) { $pid = $1; next; } elsif ($l =~ /CmdLine/) { $l =~ s#CmdLine\: [Dd]\:\\iw-home\\TeamSite\\iw-perl\\bin\\iwperl\.exe##; $script_name = $l; if ($l !~ /ecm_publish\.bat/ && $l !~ /perf\.ipl/) { print("\n"); } }}print "

$pid	$script_name

";

print "
TeamSite services currently running:
";
$cmd = `net start | grep -i interwoven`;
@iwservices = split(/\n/,$cmd);
foreach (@iwservices) {
print "$_
";
}

######### End Customizations ########################

print end_html;
exit 0;

[/html]

The script would let us know any iwperl process (with its PID and the path/name of the script that triggered the iwperl process). The script will also give the information on the TeamSiet servicess status.

When we moded the script to the 2008 server, the script does not displany any PIDs or the name of the perl script that triggered the perl process.

Adam Stoller

Ghoti,

I am posting the code that was working on the 2003 server but not on 2008 server.
[...]
The script would let us know any iwperl process (with its PID and the path/name of the script that triggered the iwperl process). The script will also give the information on the TeamSiet servicess status.

When we moded the script to the 2008 server, the script does not displany any PIDs or the name of the perl script that triggered the perl process.

I haven't tried these out, but you might want to look into downloading and trying to use one or more of the following:

As I said, I haven't tried these out - so I'd be curious to know how well they work (if you try them out) - perhaps posting the revised code as well.(I'm currently working on a Linux implementation, so I don't have a Windows box to try them out on)