problem making a script run as a service

[kor]

Here is my code:

While 1
    ProcessWait("logon.scr")
    If ProcessExists("logon.scr") Then
        For $i = 1 to 1800 Step 1
            If Not ProcessExists("logon.scr") Then ExitLoop
            Sleep(1000)
        Next
        If $i >= 1800 Then Run("psshutdown.exe -d -t 1", @WindowsDir & "\", @SW_HIDE)
    EndIf
WEnd

I am using this code to try and turn the script into a service. (I have tried both compiled and uncompiled)

#include "ServiceControl.au3"
$sService = "Sleep"
_CreateService("", $sService, "C:\script.exe", "C:\Windows\srvany.exe", "LocalSystem", "", 0x110)
RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\" & $sService & "\Parameters", "Application", "REG_SZ", @ScriptFullPath)

The service is created as verified in services.msc. However when I attempt to start the service I get an error

"The C:\script.exe service on Local Computer started and then stopped. Some services stop automatically if they have no work to do, for example, the Performance Logs and Alerts service"

I'm not sure what I am doing wrong.

[November]

Hi,

If Not ProcessExists("logon.scr") Then ExitLoop

Your script must be always on a loop, or else the script ends!

Cheers

[kor]

Hi,

If Not ProcessExists("logon.scr") Then ExitLoop

Your script must be always on a loop, or else the script ends!

Cheers

the ExitLoop exists the For Next loop, not the while loop.

Uncompiled, this code above works fine. it's when I try and run it as a service that I have a problem.

[November]

Hi again,

And this?

RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\" & $sService & "\Parameters", "Application", "REG_SZ", @ScriptFullPath)

Try to hard code c:\script.exe

Cheers

[wakillon]

the ExitLoop exists the For Next loop, not the while loop.

the ExitLoop "Exit" the For Next loop, not the while loop

[kor]

the ExitLoop "Exit" the For Next loop, not the while loop

misspelled.

I'm still having the problem though.

EDIT: After even trying the RunAsSvc.exe program I am seeing the same problem when trying to start the service. Which leads me to believe it is not the service creation that is the problem... it has something to do with my original script.

When I run the script either uncompiled or even compiled it works fine. But for some reason when trying to run that While loop program as a service it just immediately terminates. Has anyone ever seen this problem or can let me know what I need to change in my script to make it run as a service properly?

Edited May 25, 2011 by kor

[kor]

Well, I figured out my problem. It was the while loop. I changed it to a DO loop and everything works fine. Here is my updated code.

$x = 0
Do
    ProcessWait("logon.scr")
    If ProcessExists("logon.scr") Then
        For $i = 1 to 1800 Step 1
            If Not ProcessExists("logon.scr") Then ExitLoop
            Sleep(1000)
        Next
        If $i >= 1800 Then Run("psshutdown.exe -d -t 1 /accepteula", @WindowsDir & "\", @SW_HIDE)
    EndIf
Until $x = 1

[wakillon]

How does it work ?

There is no $x in the loop ?

[kor]

How does it work ?

There is no $x in the loop ?

Thats the point. There is no X which means its a forever loop which is what I want.

[wakillon]

Why not a

While 1

;

WEnd

[kor]

Why not a

While 1

;

WEnd

Well, I figured out my problem. It was the while loop. I changed it to a DO loop and everything works fine. Here is my updated code.

That is why.