Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
strComputer = "myComputer" UserName = "" Password = "" Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator") Set objWMIService = SWBemlocator.ConnectServer(strComputer,"root\CIMV2",UserName,Password) Set colItems = objWMIService.ExecQuery("Select * from Win32_service where (startmode='auto' OR startmode='manual') AND StartName <> 'LocalSystem'" & _ "AND StartName <> 'NT AUTHORITY\NetworkService' AND StartName <> 'NT AUTHORITY\LocalService'",,48) For Each objItem In colItems wscript.Echo objItem.name, objItem.State, objItem.StartName Next
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.