Run this script (Given by Phil Wilson).
Set servicelist= GetObject("winmgmts:").InstancesOf ("Win32_Service")
for each service in servicelist
sname=lcase(service.name)
If left(sname, 11) = "someservice" Then service.delete
end if
This will solve your issue.
I will update my answer with references and more details.
[Update]
Search Google for "Service already exists, Phil Wilson" and you would get more details.
[/Update]