This script requires one notepad file(Input) with list of machines you need for and output(CSV Format) will be opened once the script runs. Set fso=CreateObject("scripting.filesystemobject") Set objinputfile=fso.OpenTextFile("eskonr.txt",1,True) Set objoutputfile=fso.OpenTextFile("servicestatus.csv",2,True) Do While objinputfile.AtEndOfLine <> True strcomputer=objinputfile.ReadLine Set objWMIService = GetObject("winmgmts:"_     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")     Set colRunningServices = objWMIService.ExecQuery("Select * from Win32_Service WHERE…