100 lines
2.6 KiB
PostScript
100 lines
2.6 KiB
PostScript
|
#------------------------------------------------------
|
||
|
|
# File: Pulist.eps
|
||
|
|
#
|
||
|
|
# Performs remote process list, if possible (a la pulist.exe)
|
||
|
|
#
|
||
|
|
# Modifications:
|
||
|
|
# 03/23/06 Created.
|
||
|
|
# 04/15/08 Modified to allow local pulist
|
||
|
|
# and integration with elist. Also
|
||
|
|
# added parent process ID.
|
||
|
|
#------------------------------------------------------
|
||
|
|
|
||
|
|
@echo off;
|
||
|
|
|
||
|
|
# We can have 1 or 0 arguments. If the arg is a ?, the user wants the syntax!
|
||
|
|
if ( ( $argc > 2 ) || ( ($argc == 2) && ($argv[1] == "?" ) ) ) {
|
||
|
|
echo "Usage: $argv[0] [targetMachine]\r\n";
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
# This is passed around as a REF parameter into many of the functions
|
||
|
|
# making it a structure makes the calling of functions easier
|
||
|
|
|
||
|
|
# add \\ to the target name if none specified
|
||
|
|
|
||
|
|
string $targetString = "-local" ;
|
||
|
|
|
||
|
|
if( $argc == 1 ) {
|
||
|
|
$targetString = "-local" ;
|
||
|
|
}
|
||
|
|
else if( $argc == 2 ){
|
||
|
|
string $target = Split("\\\\", $argv[1]);
|
||
|
|
if (sizeof($target) > 1) {
|
||
|
|
$target = "\\\\$target[1]";
|
||
|
|
} else {
|
||
|
|
$target = "\\\\$target[0]";
|
||
|
|
}
|
||
|
|
if ($target == "\\\\") {
|
||
|
|
echo "Invalid target ($target)";
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
echo "Getting process list for $target\n";
|
||
|
|
|
||
|
|
$targetString = "-remote $target" ;
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
echo "Unknown number of parameters" ;
|
||
|
|
return false ;
|
||
|
|
}
|
||
|
|
|
||
|
|
@record on;
|
||
|
|
bool $res = `xml performance $targetString -data Process -bare`;
|
||
|
|
@record off;
|
||
|
|
|
||
|
|
ifnot($res) {
|
||
|
|
echo "Unable to get performance data\n";
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
string $systemName = GetCmdData("systemName");
|
||
|
|
string $objects = GetCmdData("ObjectType");
|
||
|
|
|
||
|
|
int $processIDIndex = 230;
|
||
|
|
int $parentIDIndex = 1410 ;
|
||
|
|
# find the process item (should be 230)
|
||
|
|
|
||
|
|
string $processes = GetCmdData("$processIDIndex\_Instance");
|
||
|
|
|
||
|
|
string $process = "" ;
|
||
|
|
string $outputString = "" ;
|
||
|
|
|
||
|
|
foreach $process ($processes) {
|
||
|
|
string $counter = GetCmdData("$processIDIndex\_$process\_Counter");
|
||
|
|
int $cnt = 784;
|
||
|
|
string $procId = GetCmdData("$processIDIndex\_$process\_$cnt\_value");
|
||
|
|
string $parentID = GetCmdData( "$processIDIndex\_$process\_$parentIDIndex\_value" ) ;
|
||
|
|
|
||
|
|
if($process == "_Total") {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
$outputString = "$outputString$process,$procID,$parentID:" ;
|
||
|
|
SetCmdData(STRING, "process", $process);
|
||
|
|
SetCmdData(INT, "id", <int>$procId);
|
||
|
|
}
|
||
|
|
|
||
|
|
string $dir = GetEnv("RESOURCESDIR");
|
||
|
|
string $broke = split("\\",$dir);
|
||
|
|
string $driveLetter = $broke[0];
|
||
|
|
|
||
|
|
@echo off;
|
||
|
|
@record on;
|
||
|
|
`local run -command "cmd /c echo $outputString | perl $driveLetter\\OPSDisk\\Resources\\EP\\Scripts\\ZippyBang\\elist-checker.pl" -redirect` ;
|
||
|
|
@record off;
|
||
|
|
@echo on;
|
||
|
|
|
||
|
|
string $output = GetCmdData("output");
|
||
|
|
echo $output;
|
||
|
|
|
||
|
|
return true;
|