Vista - simple question - check services exist

How can I check if more than one service exists? I have the following script
which checks for one service.

--------------------------
Sub Main()
Call CheckServiceExists (strComputer,"service1")
If bolServiceExists = True Then
' Call StartLog() 'DBG
' logFile.WriteLine("DBG - Service: service1" & vbTab & "Status: Service
Exists")
Exit Sub

CheckServiceExist is a function:

Function CheckServiceExists(strComputer,strService)
Dim objWMIService, colServiceList
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where DisplayName = '" & strService &
"'")
If colServiceList.Count = 0 Then
bolServiceExists = False
Else
bolServiceExists = True
End If
End Function

"KeithK" wrote:

"KeithK" <KeithK@newsgroup> wrote in message
news:CBAC2A8C-5CDE-4655-8BEF-17C74CCDAEF8@newsgroupThis particular wheel has already been invented at the Command Prompt:
sc \\PC1 query w32time | find /i "Service_Name" || echo Service w32time not
found

The question was "more" than one service.

Also, CheckServiceExist is a function:

Function CheckServiceExists(strComputer,strService)
Dim objWMIService, colServiceList
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where DisplayName = '" & strService &
"'")
If colServiceList.Count = 0 Then
bolServiceExists = False
Else
bolServiceExists = True
End If
End Function
---------------------
Thanks!

"Pegasus [MVP]" wrote:

"KeithK" <KeithK@newsgroup> wrote in message
news:8983A0AF-87BC-4270-B4A8-F0AF018C000E@newsgroupDo you perhaps want to get a list of *all* installed services?

I am interested in checking for two specific services. "service1" and
"service2". Is there an "or" operator that I can use in my existing script?

"Pegasus [MVP]" wrote:

Of course there is an "or" operator - see below. Note also a number of
changes I made to your code.

strComputer = "."
If ServiceExists(strComputer, "Windows Time") _
Or ServiceExists(strComputer, "xxx") _
Then WScript.Echo "One of the services exists."
' Call StartLog() 'DBG
' logFile.WriteLine("DBG - Service: service1" & vbTab & "Status: Service
Exists")

Function ServiceExists(strPC,strService)
Set objWMIService = GetObject("winmgmts:\\" & strPC & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where DisplayName = '" & strService & "'")
ServiceExists = (colServiceList.Count <> 0)
End Function


"KeithK" <KeithK@newsgroup> wrote in message
news:318D25C0-9E65-4C98-827A-64A1829E73CF@newsgroup