Vista - Script to stop a service

I am trying stop the service SQL Server VSS Writer using the following
as taken and modified from Microsoft website. The script appears to
run without errors but the service does not stop, any ideas on what I
need to add or modify to get it working.

' Start of Script
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root
\cimv2")

Set colServiceList = objWMIService.ExecQuery("Associators of " _
& "{Win32_Service.Name='NetDDE'} Where " _
& "AssocClass=Win32_DependentService " & "Role=Antecedent" )

For Each objService in colServiceList
objService.StopService()
Next

Wscript.Sleep 20000

Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name='SQL Server VSS
Writer'")
For Each objService in colServiceList
errReturn = objService.StopService()
Next
'end of script

"Cat" <cathossie@newsgroup> wrote in message
news:e4fa2257-91af-48cb-ab32-6ff955e12875@newsgroupPerhaps the services cannot be stopped. Can you stop them from a Command
Prompt like so:

net stop netdde
net stop "SQL Server VSS"