Stop and Delete Service - VBScript

Option Explicit
On Error Resume Next


Dim objWshShell
Set objWshShell = CreateObject("WScript.Shell")


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


Set objWshShell = Nothing