1291500406 发表于 2020-2-25 19:13:23

WMI wql sql 语法

本帖最后由 1291500406 于 2020-12-21 09:55 编辑

(setq LocalTime(vlax-invoke-method (vlax-invoke-method (vlax-create-object "WbemScripting.SWbemLocator")
'ConnectServer nil nil nil nil nil nil nil nil ) 'ExecQuery "Select * from Win32_LocalTime" nil nil nil ))

(mapcar '(lambda (x) (vlax-get (vlax-for n LocalTime n)x))   
'(
Year
Month
Day
Hour
Minute
Second
DayOfWeek
WeekInMonth
Quarter
Milliseconds
)
)



(setq wmi_Process(vlax-invoke-method (vlax-invoke-method (vlax-create-object "WbemScripting.SWbemLocator")
'ConnectServer nil nil nil nil nil nil nil nil ) 'ExecQuery "Select * from Win32_Process" nil nil nil ))

(setq lst nil)(vlax-for n wmi_Process(setq lst (cons n lst)))




(mapcar '(lambda (x) (vlax-getn x))   




'(
CreationClassName
Caption
CommandLine
CreationDate
CSCreationClassName
CSName
Description
ExecutablePath
ExecutionState
Handle
HandleCount
InstallDate
KernelModeTime
MaximumWorkingSetSize
MinimumWorkingSetSize
Name
OSCreationClassName
OSName
OtherOperationCount
OtherTransferCount
PageFaults
PageFileUsage
ParentProcessId
PeakPageFileUsage
PeakVirtualSize
PeakWorkingSetSize
Priority
PrivatePageCount
ProcessId
QuotaNonPagedPoolUsage
QuotaPagedPoolUsage
QuotaPeakNonPagedPoolUsage
QuotaPeakPagedPoolUsage
ReadOperationCount
ReadTransferCount
SessionId
Status
TerminationDate
ThreadCount
UserModeTime
VirtualSize
WindowsVersion
WorkingSetSize
WriteOperationCount
WriteTransferCount
)



)








lee50310 发表于 2020-2-29 22:26:12

多謝樓主無私分享
页: [1]
查看完整版本: WMI wql sql 语法