require Win32::Service;
use Win32::EventLog;
use Win32::PerfLib;

$server=shift;
if ( Win32::Service::GetServices("$server",\%hash) )
{
	foreach (keys %hash )
	{
		print "service $_ : $hash{$_} \n";
		if ( Win32::Service::GetStatus("$server",$_,\%etat) )
		{
			foreach (keys %etat )
			{
				print "  $_ : $etat{$_} \n";
			}
		}
	}
}
exit();