Write the code in Button click event:
Try
'#Region "Code to stop the service"
'Assign the name of the service you
want to stop on the remote machine
Dim serviceName As
String =
"Enter Remote system service name here"
'Assign the user name and password of
the account to ConnectionOptions object
'which have administrative privilege on
the remote machine.
Dim connectoptions As
New ConnectionOptions()
'connectoptions.Impersonation =
ImpersonationLevel.Impersonate;
connectoptions.Username =
"Enter Remote system login id here"
connectoptions.Password =
"Enter Remote system login password here"
'IP Address of the remote machine
Dim ipAddress As
String =
"Enter remote system ip Address here"
Dim scope As
New ManagementScope("\\"
+ ipAddress + "\root\cimv2")
scope.Options =
connectoptions
'Define the WMI query to be executed on
the remote machine
Dim query As
New SelectQuery("select
* from Win32_Service where name = '" + serviceName +
"'")
Using searcher As
New ManagementObjectSearcher(scope, query)
Dim collection As
ManagementObjectCollection = searcher.[Get]()
For Each service
As ManagementObject In
collection
If service("Started").Equals(True)
Then
'Stop the service
service.InvokeMethod("StopService",
Nothing)
End
If
Next
End
Using
'#End Region
Console.ReadLine()
Catch ex As
Exception
'Log exception in exception log.
'Logger.WriteEntry(ex.StackTrace);
Console.WriteLine(ex.StackTrace)
End
Try
To start the service
If service("Started").Equals(True)
Then
'Stop the service
service.InvokeMethod("StopService",
Nothing)
End If