use strict;
use Win32::TaskScheduler;

(my $Machine = shift @ARGV || "" ) =~ s/^[\\\/]+//;

my $scheduler;
my @jobs;
my $job;
my $jobname;
my $account;
my $APname;
my $parameter;
my $workdir;
my $triggerCnt;
my $idx;
my %trigger;
my $key;
my $trigType;
my $flags;
my $status;
my $exitcode;

$scheduler = Win32::TaskScheduler->New();
if ( $Machine ) {
	$scheduler->SetTargetComputer("\\\\".$Machine) or die("Failed: Set Server Machine:".$Machine."\n");
}
@jobs = $scheduler->Enum();
foreach $job ( @jobs ) {
	$jobname = substr($job,0,length($job)-4);
	$scheduler->Activate($jobname) or die("Failed: Activate".$job." [".$jobname."]\n");
	print "==>".$job." [".$jobname."]\n";
	$APname = $scheduler->GetApplicationName();
	if ( $APname ) {print "\tAPname:".$APname."\n";}
	$parameter = $scheduler->GetParameters();
	if ( $parameter ) {print "\tParameter:".$parameter."\n";}
	$workdir = $scheduler->GetWorkingDirectory();
	if ( $workdir ) {print "\tWorkDir:".$workdir."\n";}
	$account = $scheduler->GetAccountInformation();
	if ( $account ) {print "\tAccount:".$account."\n";}
	$scheduler->GetExitCode($exitcode);
	print "\tExitCode:".$exitcode."\n";
	$scheduler->GetStatus($status);
	if ( $status == 267008 ) { #Ready
		print "\tStatus:ready\n";
	}
	elsif ( $status == 267009 ) { #Runnig
		print "\tStatus:RUNNING\n";
	}
	elsif ( $status == 267010 ) { #Not Scheduled
		print "\tStatus:Not Scheduled\n";
	}
	else {
		print "\tStatus:UNKNOWN\n";
	}
	$flags = $scheduler->GetFlags();
	if ( $flags ) {print "\tFlags:".$flags."\n";}
	$triggerCnt = $scheduler->GetTriggerCount();
	if ( $triggerCnt > 0 ) {
		for ( $idx = 0; $idx < $triggerCnt; $idx++ ) {
			print "\tTrigger $idx:\n";
			$scheduler->GetTrigger($idx,\%trigger);
			foreach $key (keys %trigger) {
				if ( $key eq "TriggerType" ) {
					$trigType = $trigger{$key};
					if ( $trigType == $scheduler->TASK_TIME_TRIGGER_ONCE ) {
						print "\t\t$key=ONCE\n";
					}
					elsif ( $trigType == $scheduler->TASK_TIME_TRIGGER_DAILY ) {
						print "\t\t$key=DAILY\n";
					}
					elsif ( $trigType == $scheduler->TASK_TIME_TRIGGER_WEEKLY ) {
						print "\t\t$key=WEEKLY\n";
					}
					elsif ( $trigType == $scheduler->TASK_TIME_TRIGGER_MONTHLYDATE ) {
						print "\t\t$key=MONTHLY_DATE\n";
					}
					elsif ( $trigType == $scheduler->TASK_TIME_TRIGGER_MONTHLYDOW ) {
						print "\t\t$key=MONTHLY_DOW\n";
					}
					elsif ( $trigType == $scheduler->TASK_EVENT_TRIGGER_ON_IDLE ) {
						print "\t\t$key=ON_IDLE\n";
					}
					elsif ( $trigType == $scheduler->TASK_EVENT_TRIGGER_AT_SYSTEMSTART ) {
						print "\t\t$key=AT_SYSTEMSTART\n";
					}
					elsif ( $trigType == $scheduler->TASK_EVENT_TRIGGER_AT_LOGON ) {
						print "\t\t$key=AT_LOGON\n";
					}
					else {
						print "\t\t$key=".$trigger{$key}."\n";
					}
				}
				else {
					print "\t\t$key=".$trigger{$key}."\n";
				}
			}
		}
	}
}
$scheduler->End();

Command Line:
*************
perl -w sched.pl twjimmywang

Sample Output:
**************
==>NetLinkMonitor.job [NetLinkMonitor]
	APname:D:\MRTG\NetLinkMonitor\NetUp.exe
	WorkDir:D:\MRTG\NetLinkMonitor
	Account:TW01\adm
	ExitCode:0
	Status:ready
	Flags:192
	Trigger 0:
		MinutesInterval=0
		Flags=0
		StartMinute=0
		EndMonth=0
		BeginDay=29
		RandomMinutesInterval=0
		BeginMonth=4
		TriggerType=AT_SYSTEMSTART
		EndYear=0
		StartHour=0
		MinutesDuration=0
		BeginYear=2002
		EndDay=0
==>Mrtg.job [Mrtg]
	APname:D:\MRTG\CFG\Mrtg.bat
	WorkDir:D:\MRTG\CFG
	Account:TW01\adm
	ExitCode:0
	Status:ready
	Flags:192
	Trigger 0:
		MinutesInterval=0
		Flags=0
		StartMinute=0
		EndMonth=0
		BeginDay=14
		RandomMinutesInterval=0
		BeginMonth=3
		TriggerType=AT_SYSTEMSTART
		EndYear=0
		StartHour=0
		MinutesDuration=0
		BeginYear=2002
		EndDay=0