Stop & Delete Service - VBScript

Option Explicit


On Error Resume Next


Dim objWshShell


Set objWshShell = CreateObject("WScript.Shell")


objWshShell.Run "sc stop ServiceName",0,true
objWshShell.Run "sc delete  ServiceName ",0,true


Set objWshShell = Nothing