Stop Service Running on Remote Computer

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