如何利用PERL控制WIN32服务

最近写个程序用到了，顺便写出来。

查看所有服务信息

use Win32::Service;

Win32::Service::GetServices('',/%services);

foreach $key (sort keys %services)
 {
 print "Display Name/t: $key, $services{$key}/n";
 Win32::Service::GetStatus( '',$services{$key}, /%status);
 foreach $part (keys %status)
  {
  print "/t$part : $status{$part}/n";
  }
 }

查看单个服务信息
Win32::Service::GetStatus('','W3SVC',/%status);
#中间W3SVC是服务短名字，可以查看WIN2000/XP管理工具服务里面找得到。
foreach $part (keys %status)
  {
  print "/t$part : $status{$part}/n";
  }

 

 

开启服务
Win32::Service::StartService('','W3SVC') || die "Can't start service/n";

 

关闭服务
Win32::Service::StopService('','W3SVC') || die "Can't stop service/n";