Imports System.ServiceProcess
Public Sub StopService(ByVal myServiceName As String)
Dim DataSource As String = txtServer.Text
Dim sStatus As String
Dim myController As ServiceController
myController = New ServiceController
myController.MachineName = DataSource
myController.ServiceName = myServiceName
TextBox1.Text += "Stopping service """ & myServiceName & """...." & vbNewLine
If myController.Status = ServiceProcess.ServiceControllerStatus.Stopped Then
TextBox1.Text += "Service """ & myServiceName & """ is already stopped" & vbNewLine
Else
Try
myController.Refresh()
sStatus = myController.Status.ToString
myController.Stop()
myController.WaitForStatus(ServiceControllerStatus.Stopped)
TextBox1.Text += "Service """ & myServiceName & """ stopped..." & vbNewLine
Catch exp As Exception
TextBox1.Text += "Could not stop service """ & myServiceName & """" & vbNewLine
End Try
End If
End Sub
Public Sub StartService(ByVal myServiceName As String)
Dim DataSource As String = txtServer.Text
Dim sStatus As String
Dim myController As ServiceController
myController = New ServiceController
myController.MachineName = DataSource
myController.ServiceName = myServiceName
TextBox1.Text += "Starting service """ & myServiceName & """...." & vbNewLine
Try
myController.Refresh()
sStatus = myController.Status.ToString
myController.Start()
myController.WaitForStatus(ServiceControllerStatus.Running)
TextBox1.Text += "Service """ & myServiceName & """ started..." & vbNewLine
Catch exp As Exception
TextBox1.Text += "Could not start service """ & myServiceName & """" & vbNewLine
End Try
End Sub