CSC-SY

Recently I've been asked to write a script file to stop some services and another one to start them back. I've never used VBScript before but it's fairly simple and straight forward. Of course VBScript doesn't provide any methods to manage services or any other Windows resources; for this kind of management you need to use WMI (Microsoft® Windows® Management Instrumentation) and in this case WMI scripting library.
I tried to keep the script as simple as possible. And I've encapsulated the VBScript code inside a WSF file:

<job>
   <script language="VBScript">
    Function ControlService(ServiceName, Start)
        Set objSWbemServices = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
        Set colSWbemObjectSet = objSWbemServices.InstancesOf("Win32_Service")
        For Each objSWbemObject In colSWbemObjectSet
            If objSWbemObject.Name = ServiceName Then
                If Start Then
                    objSWbemObject.StartService
                Else
                    objSWbemObject.StopService
                End If
            End If
        Next
    End Function
    
    'This line will stop the service
    ControlService "ServiceName", False
    
    'This line will start the service
    'ControlService "ServiceName", True
   </script>
</job>

Write the previous code inside a .wsf file and replace "ServiceName" with the name (not Display Name) of the service you want to stop, care to use the correct casing because the comparison here is case sensitive.
If you want to start the service comment out the 19th line and uncomment the 22th line.
If you want to use a .vbs file omit the first and last two lines.

The code can be written in a much better way but this will do the job.

Further Reading:
WMI Scripting Primer: Part 1 and Part 2