Sign in to follow this  
Followers 0
Nunos

Working with Services.udf

2 posts in this topic

#1 ·  Posted

Hello all LTNS,

 

I have been away for a longtime and I must have forgotten what little I thought I knew about AutoIT. I am trying to make a script using Engine's services.udf that can see if a service exists and then select a case from a handful of choices and perform tasks based on that. 

Here is the link to Engines UDF https://www.autoitscript.com/forum/topic/81880-windows-services-udf/ and a link to the required au3's. https://www.autoitscript.com/forum/applications/core/interface/file/attachment.php?id=37024 

https://www.autoitscript.com/forum/applications/core/interface/file/attachment.php?id=37025

 

So far I have made it through the If it Exists or not but the code can likely use some help and I made it to the Select Case Function I am writing but when I try to perform a service_stop on the service nothing happens. Please advise what I am doing wrong my code is below. I also would appreciate any pointers on improvements or easier ways to do it so I can progress my learning.

 

#RequireAdmin
#include "Services.au3"

Local $sServiceName = "MpsSvc"
Local $aiExist = _Service_Exists($sServiceName)
Local $aiStatus = _Service_QueryStatus($sServiceName)

If $aiExist = 1 Then ServiceStatus() ;MsgBox(0, "Service Exists", "The Service indeed does EXIST")
If  $aiExist = 0 Then MsgBox(0, "Service Exists", "The Service does NOT EXIST")

Func ServiceStatus()
MsgBox(0, "Checking", "Checking the status of the service.")

Select
Case $aiStatus[1] = $SERVICE_STOPPED
    MsgBox(0, "Service State", "The Windows Firewall Service is STOPPED.")
Case $aiStatus[1] = $SERVICE_RUNNING
     _Service_Stop($sServiceName);MsgBox(0,"Service Status", "The Windows Firewall Service is RUNNING.")
EndSelect
EndFunc

I am using the Windows FireWall Service to test with but the actual service will be a SQL Service. The commented out MsgBox inside of the Func ServiceStatus() does display when I remove the comments so I believe I am making it to there. Thank you in advance to anyone who can assist me.

Share this post


Link to post
Share on other sites



#2 ·  Posted

Checking in to see if anyone has any ideas what I am missing?

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0