Thanks!!

>As the code to manage services is in .NET, I created a new thread in this forum for you. Here is my class. You may take whatever you want and adjust accordingly in VFP.
>
>

>Public Class WindowsService
>
>    Public cDomain As String = ""
>    Public cIP As String = ""
>    Public cMessage As String = ""
>    Public cOutput As String = ""
>    Public cPassword As String = ""
>    Public cPath As String = ""
>    Public cService As String = ""
>    Public cStatus As String = ""
>    Public cUsername As String = ""
>    Private cIPIsMandatory As String = ""
>    Private cPasswordIsMandatory As String = ""
>    Private cServiceNameIsMandatory As String = ""
>    Private cUsernameIsMandatory As String = ""
>    Private cUnableToCreateService As String = ""
>    Private cUnableToDeleteService As String = ""
>    Private cUnableToStartService As String = ""
>    Private cUnableToStopService As String = ""
>    Private nLanguage As Integer = 1
>    Private oApp As App = Nothing
>    Private oProcess As LXProcess = Nothing
>    Private oTaskGroup As Collection = New Collection
>
>    ' This is when we access the data provider in desktop mode
>    Sub New(ByVal toApplication As App)
>        oApp = toApplication
>        nLanguage = oApp.nLanguage
>        Init()
>    End Sub
>
>    ' This is when we access the data provider in Web or Web service mode
>    Sub New(ByVal toProcess As LXProcess)
>        oProcess = toProcess
>        oApp = oProcess.oApp
>        nLanguage = oProcess.nLanguage
>        Init()
>    End Sub
>
>    ' Initialization
>    Private Sub Init()
>
>        ' Based on the language
>        Select Case nLanguage
>
>            ' English
>            Case 1
>                cIPIsMandatory = "The IP address is mandatory."
>                cPasswordIsMandatory = "The RunAs password is mandatory."
>                cServiceNameIsMandatory = "The service name is mandatory."
>                cUsernameIsMandatory = "The RunAs username is mandatory."
>                cUnableToCreateService = "Unable to create ##Service## service."
>                cUnableToDeleteService = "Unable to delete ##Service## service."
>                cUnableToStartService = "Unable to start ##Service## service."
>                cUnableToStopService = "Unable to stop ##Service## service."
>
>                ' French
>            Case 2
>                cIPIsMandatory = "L'adresse IP de l'ordinateur est obligatoire."
>                cPasswordIsMandatory = "Le RunAs mot de passe est obligatoire."
>                cServiceNameIsMandatory = "Le nom du service est obligatoire."
>                cUsernameIsMandatory = "Le RunAs code d'usager est obligatoire"
>                cUnableToCreateService = "Impossible de créer le service ##Service#."
>                cUnableToDeleteService = "Impossible d'enlever le service ##Service#."
>                cUnableToStartService = "Impossible de créer le service ##Service##."
>                cUnableToStopService = "Impossible d'arrêter le service ##Service##."
>
>                ' Spanish
>            Case 3
>                cIPIsMandatory = "The IP address is mandatory."
>                cPasswordIsMandatory = "The RunAs password is mandatory."
>                cServiceNameIsMandatory = "The service name is mandatory."
>                cUsernameIsMandatory = "The RunAs username is mandatory."
>                cUnableToCreateService = "Unable to create ##Service## service."
>                cUnableToDeleteService = "Unable to delete ##Service## service."
>                cUnableToStartService = "Unable to start ##Service## service."
>                cUnableToStopService = "Unable to stop ##Service## service."
>
>                ' Portuguese
>            Case 4
>                cIPIsMandatory = "The IP address is mandatory."
>                cPasswordIsMandatory = "The RunAs password is mandatory."
>                cServiceNameIsMandatory = "The service name is mandatory."
>                cUsernameIsMandatory = "The RunAs username is mandatory."
>                cUnableToCreateService = "Unable to create ##Service## service."
>                cUnableToDeleteService = "Unable to delete ##Service## service."
>                cUnableToStartService = "Unable to start ##Service## service."
>                cUnableToStopService = "Unable to stop ##Service## service."
>
>        End Select
>
>    End Sub
>
>    ' Start a service
>    Public Function StartService() As Boolean
>        Dim lcIP As String = ""
>        Dim lcService As String = ""
>        Dim loLogData As LogData = Nothing
>        Dim loProcessFile As ProcessFile = Nothing
>
>        ' Get the proper definition as per the current scope
>        If oProcess Is Nothing Then
>            loLogData = New LogData(oApp)
>            loProcessFile = New ProcessFile(oApp)
>        Else
>            loLogData = New LogData(oProcess)
>            loProcessFile = New ProcessFile(oProcess)
>        End If
>
>        ' Reset the values
>        cMessage = ""
>        cOutput = ""
>
>        ' Initialization
>        lcIP = Trim(cIP)
>        lcService = Trim(cService)
>
>        ' If we do not have a service
>        If lcService.Length = 0 Then
>            cMessage = cServiceNameIsMandatory
>            Return False
>        End If
>
>        ' If we do not have an IP
>        If lcIP.Length = 0 Then
>            cMessage = cIPIsMandatory
>            Return False
>        End If
>
>        ' If we are logging
>        If oProcess.lLogData Then
>
>            ' Start the log
>            loLogData.cTitle = "c:\Windows\System32\sc.exe \\" + lcIP + " start """ + lcService + """"
>            If Not loLogData.StartLog() Then
>                Return False
>            End If
>
>        End If
>
>        ' Enable the task
>        loProcessFile.cWorkingDirectory = "c:\Windows\System32"
>        loProcessFile.cFileName = "c:\Windows\System32\sc.exe"
>        loProcessFile.cArguments = "\\" + lcIP + " start """ + lcService + """"
>        If Not loProcessFile.Process() Then
>            cMessage = loProcessFile.cMessage
>            Return False
>        End If
>
>        ' If we are logging
>        If oProcess.lLogData Then
>
>            ' Stop the log
>            loLogData.cExtra = loProcessFile.cLog
>            If Not loLogData.StopLog() Then
>                Return False
>            End If
>
>        End If
>
>        ' If we have an error
>        If loProcessFile.cError.Length > 0 Then
>            cMessage = oApp.StrTran(cUnableToStartService, "##Service##", lcService)
>            cMessage = cMessage + oApp.cCR + oApp.cCR + oApp.StrTran(loProcessFile.cError, "ERROR: ", "") + _
>             "sc \\" + lcIP + " start """ + lcService + """"
>            Return False
>        End If
>
>        ' Output
>        cOutput = loProcessFile.cOutput
>
>        ' If we have the word FAILED
>        If oApp.At("FAILED", cOutput) Then
>            cMessage = oApp.StrTran(cUnableToStartService, "##Service##", lcService)
>            cMessage = cMessage + oApp.cCR + oApp.cCR + cOutput + oApp.cCR + oApp.cCR + _
>             "sc \\" + lcIP + " start """ + lcService + """"
>            Return False
>        End If
>
>        ' Reset the values
>        cDomain = ""
>        cIP = ""
>        cPassword = ""
>        cPath = ""
>        cService = ""
>        cUsername = ""
>
>        Return True
>    End Function
>
>    ' Stop a service
>    Public Function StopService() As Boolean
>        Dim lcIP As String = ""
>        Dim lcService As String = ""
>        Dim loLogData As LogData = Nothing
>        Dim loProcessFile As ProcessFile = Nothing
>
>        ' Get the proper definition as per the current scope
>        If oProcess Is Nothing Then
>            loLogData = New LogData(oApp)
>            loProcessFile = New ProcessFile(oApp)
>        Else
>            loLogData = New LogData(oProcess)
>            loProcessFile = New ProcessFile(oProcess)
>        End If
>
>        ' Reset the values
>        cMessage = ""
>        cOutput = ""
>
>        ' Initialization
>        lcIP = Trim(cIP)
>        lcService = Trim(cService)
>
>        ' If we do not have a service
>        If lcService.Length = 0 Then
>            cMessage = cServiceNameIsMandatory
>            Return False
>        End If
>
>        ' If we do not have an IP
>        If lcIP.Length = 0 Then
>            cMessage = cIPIsMandatory
>            Return False
>        End If
>
>        ' If we are logging
>        If oProcess.lLogData Then
>
>            ' Start the log
>            loLogData.cTitle = "c:\Windows\System32\sc.exe \\" + lcIP + " stop """ + lcService + """"
>            If Not loLogData.StartLog() Then
>                Return False
>            End If
>
>        End If
>
>        ' Stop the task
>        loProcessFile.cWorkingDirectory = "c:\Windows\System32"
>        loProcessFile.cFileName = "c:\Windows\System32\sc.exe"
>        loProcessFile.cArguments = "\\" + lcIP + " stop """ + lcService + """"
>        If Not loProcessFile.Process() Then
>            cMessage = loProcessFile.cMessage
>            Return False
>        End If
>
>        ' If we are logging
>        If oProcess.lLogData Then
>
>            ' Stop the log
>            loLogData.cExtra = loProcessFile.cLog
>            If Not loLogData.StopLog() Then
>                Return False
>            End If
>
>        End If
>
>        ' If we have an error
>        If loProcessFile.cError.Length > 0 Then
>            cMessage = oApp.StrTran(cUnableToStopService, "##Service##", lcService)
>            cMessage = cMessage + oApp.cCR + oApp.cCR + oApp.StrTran(loProcessFile.cError, "ERROR: ", "") + _
>             "sc \\" + lcIP + " stop """ + lcService + """"
>            Return False
>        End If
>
>        ' Output
>        cOutput = loProcessFile.cOutput
>
>        ' If we have the word FAILED
>        If oApp.At("FAILED", cOutput) Then
>            cMessage = oApp.StrTran(cUnableToStopService, "##Service##", lcService)
>            cMessage = cMessage + oApp.cCR + oApp.cCR + cOutput + oApp.cCR + oApp.cCR + _
>             "sc \\" + lcIP + " stop """ + lcService + """"
>            Return False
>        End If
>
>        ' Reset the values
>        cDomain = ""
>        cIP = ""
>        cPassword = ""
>        cPath = ""
>        cService = ""
>        cUsername = ""
>
>        Return True
>    End Function
>
>    ' Create service
>    Public Function CreateService() As Boolean
>        Dim lcAccount As String = ""
>        Dim lcDomain As String = ""
>        Dim lcIP As String = ""
>        Dim lcPassword As String = ""
>        Dim lcPath As String = ""
>        Dim lcService As String = ""
>        Dim lcUsername As String = ""
>        Dim loLogData As LogData = Nothing
>        Dim loProcessFile As ProcessFile = Nothing
>
>        ' Get the proper definition as per the current scope
>        If oProcess Is Nothing Then
>            loLogData = New LogData(oApp)
>            loProcessFile = New ProcessFile(oApp)
>        Else
>            loLogData = New LogData(oProcess)
>            loProcessFile = New ProcessFile(oProcess)
>        End If
>
>        ' Reset the values
>        cMessage = ""
>        cOutput = ""
>
>        ' Initialization
>        lcDomain = Trim(cDomain)
>        lcIP = Trim(cIP)
>        lcPassword = Trim(cPassword)
>        lcPath = Trim(cPath)
>        lcService = Trim(cService)
>        lcUsername = Trim(cUsername)
>
>        ' If we have a domain
>        If lcDomain.Length > 0 Then
>            lcAccount = lcDomain + "\" + lcUsername
>        Else
>            lcAccount = lcUsername
>        End If
>
>        ' If we do not have a service
>        If lcService.Length = 0 Then
>            cMessage = cServiceNameIsMandatory
>            Return False
>        End If
>
>        ' If we do not have an IP
>        If lcIP.Length = 0 Then
>            cMessage = cIPIsMandatory
>            Return False
>        End If
>
>        ' If we do not have a username
>        If lcUsername.Length = 0 Then
>            cMessage = cUsernameIsMandatory
>            Return False
>        End If
>
>        ' If we do not have a password
>        If lcPassword.Length = 0 Then
>            cMessage = cPasswordIsMandatory
>            Return False
>        End If
>
>        ' Create the service
>        loProcessFile.cWorkingDirectory = "c:\Windows\System32"
>        loProcessFile.cFileName = "c:\Windows\System32\sc.exe"
>        loProcessFile.cArguments = "\\" + lcIP + " create """ + lcService + """ binPath= """ + lcPath + """ " + _
>         "start= demand obj= """ + lcAccount + """ password= " + lcPassword
>        If Not loProcessFile.Process() Then
>            cMessage = loProcessFile.cMessage
>            Return False
>        End If
>
>        ' If we have an error
>        If loProcessFile.cError.Length > 0 Then
>            cMessage = oApp.StrTran(cUnableToCreateService, "##Service##", lcService)
>            cMessage = cMessage + oApp.cCR + oApp.cCR + oApp.StrTran(loProcessFile.cError, "ERROR: ", "") + _
>             "sc \\" + lcIP + " create """ + lcService + """ binPath= """ + lcPath + """ " + "start= demand obj= """ + lcAccount + """"
>            Return False
>        End If
>
>        ' Output
>        cOutput = loProcessFile.cOutput
>
>        ' If we have the word FAILED
>        If oApp.At("FAILED", cOutput) Then
>            cMessage = oApp.StrTran(cUnableToCreateService, "##Service##", lcService)
>            cMessage = cMessage + oApp.cCR + oApp.cCR + cOutput + oApp.cCR + oApp.cCR + _
>             "sc \\" + lcIP + " create """ + lcService + """ binPath= """ + lcPath + """ start= demand obj= """ + lcAccount + """"
>            Return False
>        End If
>
>        ' Reset the values
>        cDomain = ""
>        cIP = ""
>        cPassword = ""
>        cPath = ""
>        cService = ""
>        cUsername = ""
>
>        Return True
>    End Function
>
>    ' Delete a service
>    Public Function DeleteService() As Boolean
>        Dim lcIP As String = ""
>        Dim lcService As String = ""
>        Dim loLogData As LogData = Nothing
>        Dim loProcessFile As ProcessFile = Nothing
>
>        ' Get the proper definition as per the current scope
>        If oProcess Is Nothing Then
>            loLogData = New LogData(oApp)
>            loProcessFile = New ProcessFile(oApp)
>        Else
>            loLogData = New LogData(oProcess)
>            loProcessFile = New ProcessFile(oProcess)
>        End If
>
>        ' Reset the values
>        cMessage = ""
>        cOutput = ""
>
>        ' Initialization
>        lcIP = Trim(cIP)
>        lcService = Trim(cService)
>
>        ' If we do not have a service
>        If lcService.Length = 0 Then
>            cMessage = cServiceNameIsMandatory
>            Return False
>        End If
>
>        ' If we do not have an IP
>        If lcIP.Length = 0 Then
>            cMessage = cIPIsMandatory
>            Return False
>        End If
>
>        ' Delete the service
>        loProcessFile.cWorkingDirectory = "c:\Windows\System32"
>        loProcessFile.cFileName = "c:\Windows\System32\sc.exe"
>        loProcessFile.cArguments = "\\" + lcIP + " delete """ + lcService + """"
>        If Not loProcessFile.Process() Then
>            cMessage = loProcessFile.cMessage
>            Return False
>        End If
>
>        ' If we have an error
>        If loProcessFile.cError.Length > 0 Then
>            cMessage = oApp.StrTran(cUnableToDeleteService, "##Service##", lcService)
>            cMessage = cMessage + oApp.cCR + oApp.cCR + oApp.StrTran(loProcessFile.cError, "ERROR: ", "") + _
>             "sc \\" + lcIP + " delete """ + lcService + """"
>            Return False
>        End If
>
>        ' Output
>        cOutput = loProcessFile.cOutput
>
>        ' If we have the word FAILED
>        If oApp.At("FAILED", cOutput) Then
>            cMessage = oApp.StrTran(cUnableToDeleteService, "##Service##", lcService)
>            cMessage = cMessage + oApp.cCR + oApp.cCR + cOutput + oApp.cCR + oApp.cCR + _
>             "sc \\" + lcIP + " delete """ + lcService + """"
>            Return False
>        End If
>
>        ' Reset the values
>        cIP = ""
>        cService = ""
>
>        Return True
>    End Function
>
>End Class
>