This is the code, which you will use for stop Services using VBS Script

          
            Function StopServices Dim objWMIService,colItems,ObjItem,chkServiceStatus,RetVal Set objWMIService =GetObject("winmgmts:\\" & "." & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select
* from Win32_Service where name='" & strServiceName & "'",,48) ForEach ObjItem in colItems If (InStr (1,objItem.DisplayName,strServiceName,1)
> 0) then chkServiceStatus=ObjItem.State endifNextIf(ucase(chkServiceStatus)="RUNNING") THEN RetVal = goShell.Run("%windir%\system32\sc.exe
Stop """ & strServiceName & """
>> " & gcsLogFile,0,True) DoUntil(Ucase(ServiceStatus)="STOPPED") Set colItems = objWMIService.ExecQuery("Select
* from Win32_Service where name='" & strServiceName & "'",,48) ForEach ObjItem in colItems If (InStr (1,objItem.DisplayName,strServiceName,1)
> 0) then ServiceStatus=ObjItem.State endifNextLoopEndIf
        

 
End Function