List Services using WMI provider

List Services in WMI

Set fso = CreateObject("Scripting.FileSystemObject")

if fso.FileExists("c:testfile.txt") Then

 set f = fso.GetFile("c:testfile.txt")

 f.delete

End If



strComputer = InputBox("Enter Computer name", "Enter Name Here", "dc1.bgeek.com")



Set wbemServices = GetObject("winmgmts:\" & strComputer)

Set wbemObjectSet = wbemServices.InstancesOf("Win32_Service")

Set f = fso.CreatetextFile("c:testfile.txt", ForAppending, True)



For Each wbemObject In wbemObjectSet

 f.write  "Display Name:  " & wbemObject.DisplayName & VBCrLf

        f.write  "State:      " & wbemObject.State & VBCrLf

        f.write  "Start Mode: " & wbemObject.StartMode & VBCrLf

Next

 

set wbemServices = nothing

set wbemObjectset = nothing

set fso = nothing

set f = nothing

msgbox "Done!"