I am there almost and I continue to seek, but veiled already a beginning of result
(setq WMI (vlax-create-object "WbemScripting.SWbemLocator"))
(setq meth1 (VLAX-INVOKE WMI 'ConnectServer nil nil nil nil nil nil nil nil))
(setq meth2 (vlax-invoke meth1 'ExecQuery (strcat "SELECT DisplayName,State FROM Win32_Service WHERE State = 'Running'")))
(vlax-for item meth2
(terpri)
(princ (vlax-get item 'DisplayName))
)
(vlax-for item meth2
(terpri)
(princ (vlax-get item 'Name))
)
@+