Thanx for the suggestion, unfortunately, I'm still getting the error.
Trigger.pl didn't return any errors.
Chris
"Steven
Manross" To: <[EMAIL PROTECTED]>,
<[EMAIL PROTECTED] <[EMAIL PROTECTED]>
ght.com> cc:
Subject: RE: win32::taskscheduler prob
04/01/2004
05:51 PM
Not sure why, but I got that same error with your code, until I ran
Umberto's "trigger.pl" example from the download file on sourceforge.
And now your code works.
:( :)
Odd, but... Hey, it works!
Steven
Modified it slightly to see where things were failing... The two errors
were in SetApplicationName and Save since something previously failed
(like maybe the new).
use Win32::TaskScheduler;
use strict;
my $scheduler = Win32::TaskScheduler->New();
my $result1 = $scheduler->SetTargetComputer("\\\\SOMEPC");
my %trig = (
'BeginYear' => 2004,
'BeginMonth' => 4,
'BeginDay' => 1,
'StartHour' => 16,
'StartMinute' => 55,
'TriggerType' => $scheduler->TASK_TIME_TRIGGER_DAILY,
'Type' => {
'DaysInterval' => 1,
},
);
my $tsk = "stuff1";
print "new work item = ".$scheduler->NewWorkItem($tsk,\%trig);
print "\nset app name =
".$scheduler->SetApplicationName("mspaint.exe");
print "\nsave = ".$scheduler->Save();
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
[EMAIL PROTECTED]
Sent: Thursday, April 01, 2004 3:11 PM
To: [EMAIL PROTECTED]
Subject: win32::taskscheduler prob
I'm having a problem with getting win32:: taskscheduler to work - using
version 2.03a/perl 5.8.0 build 806.
Running the script below gives me
Win32::TaskScheduler: fatal error: null pointer, call NEW()
use Win32::TaskScheduler;
use strict;
my $scheduler = Win32::TaskScheduler->New();
my $result1 = $scheduler->SetTargetComputer("\\\\testbox1");
my %trig = (
'BeginYear' => 2004,
'BeginMonth' => 4,
'BeginDay' => 1,
'StartHour' => 16,
'StartMinute' => 55,
'TriggerType' => $scheduler->TASK_TIME_TRIGGER_DAILY,
'Type' => {
'DaysInterval' => 1,
},
);
my $tsk = "stuff1";
$scheduler->NewWorkItem($tsk,\%trig);
$scheduler->SetApplicationName("mspaint.exe");
$scheduler->Save();
Any ideas appreciated.
Thanx
_______________________________________________
Perl-Win32-Users mailing list [EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
