Help needed with WIN32::Service

the_hawk_1 has asked for the wisdom of the Perl Monks concerning the following question:

Hi fellow monks,

I've got a trouble with getting status, stopping and starting service on a remote server.

Right now, I can't event get the status!

Here is the code :

#!/usr/local/bin/perl

use strict;
use warnings;
$|=0;

use Win32::Service;
my %status;

Win32::Service::GetStatus("VL94196",'SendLogServer', \%status);
print "SendLogServer : ".$status{'CurrentState'}."\n";
[download]

Where the VL04196 is the machine name and SendLogServer is the service. Here is what I've got has answer:

Use of uninitialized value in concatenation (.) or string at Z:\Script
+Perl\TMP\services.pl line 21.
[download]

Can you enlight me?

Comment on Help needed with WIN32::Service Select or Download Code

Replies are listed 'Best First'.
Re: Help needed with WIN32::Service by BrowserUk (Patriarch) on Jun 28, 2010 at 17:52 UTC
Z:\ScriptPerl\TMP\services.pl Is that the path & name of the code you posted?	[reply]
Re^2: Help needed with WIN32::Service by the_hawk_1 (Scribe) on Jun 28, 2010 at 18:27 UTC
Sorry, I forgot to mentionned! Yes it is.	[reply]
Re^3: Help needed with WIN32::Service by BrowserUk (Patriarch) on Jun 28, 2010 at 18:51 UTC
Hm. An error on line 21 of an 11 line script is interesting. It's quite hard to see how that could come about. Could you install Devel::Trace and then run your script using it and post the output here. It should only be a few lines. `perl -d:Trace Z:\ScriptPerl\TMP\services.pl` [download] Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. RIP an inspiration; A true Folk's Guy	[reply] [d/l]
Re^4: Help needed with WIN32::Service by the_hawk_1 (Scribe) on Jun 28, 2010 at 19:29 UTC
Re: Help needed with WIN32::Service by NetWallah (Canon) on Jun 28, 2010 at 18:58 UTC
~~You need to prepend "\\" to the server name.~~ (Update) I have seen evidence to the contrary. Perl strings require that the backslashes be doubled. Try: `Win32::Service::GetStatus("\\\\VL94196",'SendLogServer', \%status) or + die "Service status failed: $!"` [download] Most likely, 'SendLogServer' is not the short-name for the service you seek. The second parameter is the short name. You need to error-check the return, otherwise,$status{'CurrentState'} will be undef, and you will get the "uninitialized" warning. Syntactic sugar causes cancer of the semicolon. --Alan Perlis	[reply] [d/l]
Re^2: Help needed with WIN32::Service by the_hawk_1 (Scribe) on Jun 28, 2010 at 19:44 UTC
Thanks NetWallah, but I forgot to mention that when I try this directly on the machine, it works well, but I can't do it remotly. So, I'm sure about the service name. I've also tried with the '\\\\' or the ip address, but both didn't work neither.	[reply]
Re^3: Help needed with WIN32::Service by NetWallah (Canon) on Jun 28, 2010 at 20:03 UTC
Is there any indication in the "die" error message as to what the problem is ? How about the event logs, particularly the security logs ? There could be firewall or authentication issues. Syntactic sugar causes cancer of the semicolon. --Alan Perlis	[reply]
Re^4: Help needed with WIN32::Service by the_hawk_1 (Scribe) on Jun 28, 2010 at 20:21 UTC
Re^5: Help needed with WIN32::Service by NetWallah (Canon) on Jun 29, 2010 at 05:00 UTC
Some notes below your chosen depth have not been shown here
Re^5: Help needed with WIN32::Service by kejohm (Hermit) on Jun 28, 2010 at 23:18 UTC


Pathologically Eclectic Rubbish Lister
	PerlMonks