Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLogFile = objFSO.OpenTextFile("servi.csv", 8, True)
objLogFile.Write _
 ("System Name,Service Name,Service Type,Service State," _
 & "Process ID,Can Be Stopped,Caption," _
 & "Can Interact with Desktop,Display Name," _
 & "Executable Path Name,Service Started," _
 & "Start Mode,Account Name,Description ")
objLogFile.Writeline
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_Service")
For Each objService in colListOfServices
 objLogFile.Write(objService.SystemName) & ","
 objLogFile.Write(objService.Name) & ","
 objLogFile.Write(objService.ServiceType) & ","
 objLogFile.Write(objService.State) & ","
 objLogFile.Write(objService.ProcessID) & ","
 objLogFile.Write(objService.AcceptStop) & ","
 objLogFile.Write(objService.Caption ) & ","
 objLogFile.Write(objService.DesktopInteract) & ","
 objLogFile.Write(objService.DisplayName) & ","
 objLogFile.Write(objService.PathName) & ","
 objLogFile.Write(objService.Started) & ","
 objLogFile.Write(objService.StartMode) & ","
 objLogFile.Write(objService.StartName) & ","
 objLogFile.Write(objService.Description ) & ","
 objLogFile.Writeline
Next
objLogFile.Close