Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    
    die "Usage: $0 service_name\n" unless @ARGV == 1;
    ...
      or die "Unknown service: $service\n";
    my $servstart = $services->GetValue('Start');
    print "$service is $start{$servstart} service.\n";
    
  2. or download this
    C:\>servicetype.pl Alerter
    Alerter is an automatic service.
    
    C:\>servicetype.pl foo
    Unknown service: foo