Here you go

'-------------------------------------------------------------------------------------
Const ForWriting = 2
strComputer = "."
Set objFso = CreateObject("Scripting.FileSystemObject")
Set strFile = objFSO.OpenTextFile("c:\Scripts\12.csv", ForWriting, -2)
Set objSWbemServices = GetObject("winmgmts:\\" & strComputer)
Set colSWbemObjectSet = objSWbemServices.InstancesOf("Win32_Service")
strFile.writeline "Display Name" & "," & "State" & "," & "Start Mode"
For Each objSWbemObject In colSWbemObjectSet
strFile.writeline objSWbemObject.DisplayName & "," & objSWbemObject.State &
"," & objSWbemObject.StartMode
Next
strFile.Close
'---------------------------------------------------

Regards
Mark Dormer

"Pradeep Bisht" <PradeepBisht@discussions.microsoft.com> wrote in message
news:2B9A696D-C170-4A8B-BA9C-83D27E3047E2@microsoft.com...
> Hello,
>
> I have a script with me, and I want the result of that script in a excel
> file.So what is the command for that.
> Thanks in advance.
>
> Script -
>
> strComputer = "."
> Set objFso = CreateObject("Scripting.FileSystemObject")
> strFile = "c:\Scripts\12.xls"
> Set objSWbemServices = GetObject("winmgmts:\\" & strComputer)
> Set colSWbemObjectSet = objSWbemServices.InstancesOf("Win32_Service")
>
> For Each objSWbemObject In colSWbemObjectSet
> Wscript.Echo "Display Name: " & objSWbemObject.DisplayName & vbCrLf & _
> " State: " & objSWbemObject.State & vbCrLf & _
> " Start Mode: " & objSWbemObject.StartMode
> Next
>
>