Hi,

Here you go with the perl sample code that you can use. It lists down all the task in the Recent Task List and displays their progress and Status.

#!/usr/bin/perl -w
#

1. Copyright (c) 2007 VMware, Inc. All rights reserved.

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../";

use VMware::VIM2Runtime;
use VMware::VILib;

$Util::script_version = "1.0";

Opts::parse();
Opts::validate();

Util::connect();
display_progress();
Util::disconnect();

sub display_progress {
Util::trace(0, "\nConnection Sucessful\n");
my $status = 'running';
my $si_moref = ManagedObjectReference->new(type => 'ServiceInstance',
value => 'ServiceInstance');
my $si_view = Vim::get_view(mo_ref => $si_moref);
my $sc_view;
my $task;
my $mytaskref;
my $tm_view;
$sc_view = $si_view->RetrieveServiceContent();
$tm_view = Vim::get_view (mo_ref =>$sc_view->taskManager);
if (defined $tm_view->recentTask) {
foreach (@{$tm_view->recentTask}) {
$task = Vim::get_view(mo_ref => $_);
print "\nTask Name: ". $task->info->descriptionId ." Status: ". $task->info->state->val . " Progress: " .$task->info->progress ."% Complete";
}
} else {
print "\nNo Recent Tasks available.\n";
}
print "\nDisconnecting \n";
}

Hope this code helps.

~ Sidharth