The line:
GetStatus(T31764,Schedule,%status);
should read something like:
Win32::Service::GetStatus("\\\\T31764", 'Schedule', \%status);
or just use variables.
Hope this helps,
--Chuck
--- [EMAIL PROTECTED] wrote:
> I'm using ActiveState Perl build 522. I want to do something simple
> as this:
> Check the status of the Schedule service on one machine. Can someone
> see what
> I'm doing wrong because I can't get the result I wanted. If I code it
> this way:
>
> #!perl -w
>
> use Win32::Service;
>
> my %status;
> GetStatus(T31764,Schedule,%status);
> print "\%status";
>
> I got error: Undefined subroutine &main::GetStatus called at
> C:\w2k\shawn.pl
> line 8.
>
> If I call Win32::Service explicitly, as follow:
>
> #!perl -w
>
> use Win32::Service;
>
> my %status;
> Win32::Service::GetStatus(T31764,Schedule,%status);
> print "\%status";
>
> I got: Usage:
> Win32::Service::GetStatus(lpHostName,lpServiceName,status) at
> C:\w2k\shawn.pl line 7.
>
> Am I missing something obvious? Win32 is listed under my
> perl\site\lib dir,
> anything I need to do before I can use it?
>
> Thanks!
>
> Julie
>
>
> _______________________________________________
> Perl-Win32-Admin mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
__________________________________________________
Do You Yahoo!?
Yahoo! Calendar - Get organized for the holidays!
http://calendar.yahoo.com/
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
