VBScript check the SMS agent host service status

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
Set objWMIService = GetObject("winmgmts:"_
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colRunningServices = objWMIService.ExecQuery("Select * from Win32_Service WHERE DisplayName like 'SMS Agent Host'")
    objoutputfile.WriteLine("computer name:" & strcomputer)
    For Each objService in colRunningServices
        If Len(objservice.displayname) >= 40 Then
    objoutputfile.WriteLine(Left(objService.DisplayName,40)&vbTab & objService.State)
    objoutputfile.WriteLine(objService.DisplayName & Space(40-Len(objService.DisplayName))& vbtab& objService.State)
    'Wscript.Echo objService.DisplayName  & VbTab & objService.State
    End if


Leave a Reply

This site uses Akismet to reduce spam. Learn how your comment data is processed.