Re^4: Help needed with WIN32::Service

Replies are listed 'Best First'.
Re^5: Help needed with WIN32::Service by NetWallah (Canon) on Jun 29, 2010 at 05:00 UTC
You can use the "event viewer" to track logged error and status messages. From a command prompt, or the "Run" dialog, type "eventvwr" to bring up the event viwer, and examine recent APPLICATION and SECURITY messages. Re: Getting perl to report errors - as others have indicated, the Win32:: code apparently does not place the errors in $!. Instead, you need something like: `use Win32::Service; use Win32; ... if (! Win32::Service::GetStatus($host, $serviceName, \%status)){ die "Cannot get $serviceName status : $!\nWin Error:" . Win32::GetL +astError() . "\n"; }` [download] Syntactic sugar causes cancer of the semicolon. --Alan Perlis	[reply] [d/l]
Re^6: Help needed with WIN32::Service by the_hawk_1 (Scribe) on Jun 29, 2010 at 17:51 UTC
Thanks again! Finally, we've got something: ACCESS DENIED! I'll have to stop here, as I don't manage access rights. Except if someone know how to pass username and passwordtrought the WIN32 (I didn't find how yet)	[reply]
Re^5: Help needed with WIN32::Service by kejohm (Hermit) on Jun 28, 2010 at 23:18 UTC
When you say 'die message', do you mean the `$!` variable. If so, you may need to examine the `$^E` instead, as some `Win32::` modules set this instead when there is an error. You could also try dumping the hash returned by the `GetStatus()` function to what it contains, using something like the `Data::Dump` module.	[reply] [d/l] [select]