I tried to modify the path like c\:/Users/Documents/Traning/dailycheck\_$date\.log, it does not work on command, I have not tested in windows scheduler. Thanks!#!perl use strict; use autodie; use Win32::Service qw'GetServices GetStatus StartService'; use POSIX; my @state_name = qw( UNKNOWN Stopped START_PENDING STOP_PENDING Started CONTINUE_PENDING PAUSE_PENDING PAUSED ERROR ); my $date = strftime("%Y-%m-%d", localtime); my ($shortname, %status, $state_no); my $filename = '/Users/Documents/Traning/Perl/XiServiceList.txt'; open FILE, '<', $filename;# autodie my $hostname = <FILE>; chomp $hostname; open MYFILE, ">>", "/Users/Documents/Traning/dailycheck\_$date\.log"; print MYFILE "Checking Services available for '$hostname'\n"; my %available=(); GetServices($hostname,\%available) or die "$!"; # add short names $available{$_} = $_ for values %available; print MYFILE "Checking services in list\n";
In reply to Re^2: using perl script to schedule windows task
by ytjPerl
in thread using perl script to schedule windows task
by ytjPerl
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |