VB Script to Stop a service

strComputer = "."
strServiceName = "CVPND"
Set a= GetObject("winmgmts:\\" & strComputer)
Set b = a.ExecQuery("Select * from Win32_Service Where Name ='" & strServiceName & "'")
For Each c in b
    c.StopService()
Next