BizTalk Tips & Things

Agustin Mantaras BizTalk Blog

How to stop a ALL BizTalk services with a vbs script

For a improved versión see the post


This basic script is using vbs to stop all BizTalk services in the running server. It will loop searching for all windows services starting by ‘’BTSSvc%’

It asks for confirmation  before stoping allGuiño


‘ VBScript Restart Service.vbs
‘ Sample script to Stop or Start a Service
‘ it stops all BizTalk services in the strComputer parameter
‘ Created by Agustín Mántaras Sept 2014

‘ ——————————————————-‘

Option Explicit
Dim objWMIService, objItem, objService, str
Dim colListOfServices, strComputer, strService, intSleep

strComputer = “.”  ‘param

intSleep = 15000
WScript.Echo ” This script will stop all BizTalk Host Instances”
Str = Inputbox(“This will stop all the BizTalk Platform. are you sure? Write Y (UPPER CASE), if you agree. “, “BizTalk Environment will Stop processing”)

if Str = “Y”  Then

    ‘On Error Resume Next
    ‘ NB strService is case sensitive.

    strService =
” ‘BTSSvc%’ ”
    Set objWMIService = GetObject(“winmgmts:” _
    & “{impersonationLevel=impersonate}!\\” _
    & strComputer & “\root\cimv2”)

    Set colListOfServices = objWMIService.ExecQuery _
    (“Select * from Win32_Service Where Name like “_
    & strService & ” “)
    For Each objService in colListOfServices

        WScript.Echo “The “& objService.Name & ” service has been Stopped”


    WScript.Echo ” ++++++++YOU DID NOT AGREE  Sonrisa+++++++++”

end if



Enjoy it! Sonrisa