[code]Sub OracleInstances(StrComputer) Dim objLocator, objWMI Set objLocator = CreateObject("WbemScripting.SWbemLocator") Set objWMIService = objLocator.ConnectServer(strComputer,"root\cimv2",user,pass) Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Service WHERE DisplayName LIKE 'OracleService%'") For Each objItem In colItems str = objItem.DisplayName instance = Replace(str,"OracleService","") If objItem.Started = "True" Then WScript.Echo instance & " - Started" Else WScript.Echo instance & " - Not started" End If Next End Sub[/code]
_________________ Server Info: running on a CentOS 7 vm OA Version: 2.0.6 @ 500 devices
|