Win32::Service::GetStatus($hostname, $servicename, \%status);
print MYFILE " ServiceStatus: ", $hostname, $servicename, $status{CurrentState}, "\n";