Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
 
x = 1
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:\\" & strComputer & "\root\cimv2")
Set colServices = objWMIService.ExecQuery _
    ("Select * From Win32_Service")
 
For Each objService In colServices
    objExcel.Cells(x, 1) = objService.Name
    objExcel.Cells(x, 2) = objService.State
    x = x + 1
Next
 
objExcel.ActiveWorkbook.SaveAs "c:\temp\sample.xls"
objExcel.Quit 
Set objExcel = Nothing

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell