Vista - script terminates before here

Set objUser = GetObject _
("LDAP://localhost:51008/xxxxxxxxxxxxxxxxxxxxxxxxxx")
objUser.Put "KeyValueString", "true"
objUser.SetInfo


'===================================================================================================================

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServices = objWMIService.ExecQuery _
("Select * from Win32_Service Where Name = 'Service")
For each objService in colServices
objService.StopService()
Next


I want to restart a service after I input this keyvalue in ADAM in the same
script. But its terminates before it reaches strComputer"."

any idea?