How do I use a variable in place of a service name during a WMI Query

[tfujitani]

I got the following script from Microsoft Technet. I want to modify it so that instead of having to enter the service name into the script, the user can specify the service. In other words, how do I replace 'DbService' with a variable?

I've tried ...Where Name = '" & Variable & "'" & chr(34))

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

 

[shaneh0]

strService = InputBox("Enter service name&quot

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

 

[shaneh0]

Oops. missing quote at the end

strService = InputBox("Enter service name&quot

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