1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
| #COINIT_MULTITHREAD=0
#RPC_C_AUTHN_LEVEL_CONNECT=2
#RPC_C_IMP_LEVEL_IDENTIFY=2
#EOAC_NONE=0
#RPC_C_AUTHN_WINNT=10
#RPC_C_AUTHZ_NONE=0
#RPC_C_AUTHN_LEVEL_CALL=3
#RPC_C_IMP_LEVEL_IMPERSONATE=3
#CLSCTX_INPROC_SERVER=1
#wbemFlagReturnImmediately=16
#wbemFlagForwardOnly=32
#IFlags = #wbemFlagReturnImmediately + #wbemFlagForwardOnly
#WBEM_INFINITE=$FFFFFFFF
#WMISeparatOr=","
DataSection
CLSID_IEnumWbemClassObject:
;1B1CAD8C-2DAB-11D2-B604-00104B703EFD
Data.l $1B1CAD8C
Data.w $2DAB, $11D2
Data.b $B6, $04, $00, $10, $4B, $70, $3E, $FD
IID_IEnumWbemClassObject:
;7C857801-7381-11CF-884D-00AA004B2E24
Data.l $7C857801
Data.w $7381, $11CF
Data.b $88, $4D, $00, $AA, $00, $4B, $2E, $24
CLSID_WbemLocator:
;4590f811-1d3a-11d0-891f-00aa004b2e24
Data.l $4590F811
Data.w $1D3A, $11D0
Data.b $89, $1F, $00, $AA, $00, $4B, $2E, $24
IID_IWbemLocator:
;dc12a687-737f-11cf-884d-00aa004b2e24
Data.l $DC12A687
Data.w $737F, $11CF
Data.b $88, $4D, $00, $AA, $00, $4B, $2E, $24
IID_IUnknown:
;00000000-0000-0000-C000-000000000046
Data.l $00000000
Data.w $0000, $0000
Data.b $C0, $00, $00, $00, $00, $00, $00, $46
EndDataSection
Interface _IWbemLocator
QueryInterface(a, b)
AddRef()
Release()
ConnectServer(a.p-bstr, b, c, d, e, f, g, h)
EndInterface
Interface _IWbemServices
QueryInterface(a, b)
AddRef()
Release()
OpenNamespace(a, b, c, d, e)
CancelAsyncCall(a)
QueryObjectSink(a, b)
GetObject(a, b, c, d, e)
GetObjectAsync(a, b, c, d)
PutClass(a, b, c, d)
PutClassAsync(a, b, c, d)
DeleteClass(a, b, c, d)
DeleteClassAsync(a, b, c, d)
CreateClassEnum(a, b, c, d)
CreateClassEnumAsync(a, b, c, d)
PutInstance(a, b, c, d)
PutInstanceAsync(a, b, c, d)
DeleteInstance(a, b, c, d)
DeleteInstanceAsync(a, b, c, d)
CreateInstanceEnum(a, b, c, d)
CreateInstanceEnumAsync(a, b, c, d)
ExecQuery(a.p-bstr, b.p-bstr, c, d, e)
ExecQueryAsync(a, b, c, d, e)
ExecNotificationQuery(a, b, c, d, e)
ExecNotificationQueryAsync(a, b, c, d, e)
ExecMethod(a, b, c, d, e, f, g)
ExecMethodAsync(a, b, c, d, e, f)
EndInterface
Interface _IWbemClassObject
QueryInterface(a, b)
AddRef()
Release()
GetQualifierSet(a)
Get(a.p-bstr, b, c, d, e)
Put(a, b, c, d)
Delete(a)
GetNames(a, b, c, d)
BeginEnumeration(a)
Next(a, b, c, d, e)
EndEnumeration()
GetPropertyQualifierSet(a, b)
Clone(a)
GetObjectText(a, b)
SpawnDerivedClass(a, b)
SpawnInstance(a, b)
CompareTo(a, b)
GetPropertyOrigin(a, b)
InheritsFrom(a)
GetMethod(a, b, c, d)
PutMethod(a, b, c, d)
DeleteMethod(a)
BeginMethodEnumeration(a)
NextMethod(a, b, c, d)
EndMethodEnumeration()
GetMethodQualifierSet(a, b)
GetMethodOrigin(a, b)
EndInterface
Global hres.l=123456
Procedure.s WMI(WMICommand.s)
; WMI Initialize
CoInitializeEx_(0,#COINIT_MULTITHREAD)
If hres=123456
hres=CoInitializeSecurity_(0, -1,0,0,#RPC_C_AUTHN_LEVEL_CONNECT,#RPC_C_IMP_LEVEL_IDENTIFY,0,#EOAC_NONE,0)
EndIf
If hres <> 0: MessageRequester("ERROR", "unable to call CoInitializeSecurity", #MB_OK): Goto cleanup: EndIf
hres=CoCreateInstance_(?CLSID_WbemLocator,0,#CLSCTX_INPROC_SERVER,?IID_IWbemLocator,@loc._IWbemLocator)
If hres <> 0: MessageRequester("ERROR", "unable to call CoCreateInstance", #MB_OK): Goto cleanup: EndIf
hres=loc\ConnectServer("root\cimv2",0,0,0,0,0,0,@svc._IWbemServices)
If hres <> 0: MessageRequester("ERROR", "unable to call IWbemLocator::ConnectServer", #MB_OK): Goto cleanup: EndIf
hres=svc\QueryInterface(?IID_IUnknown,@pUnk.IUnknown)
hres=CoSetProxyBlanket_(svc,#RPC_C_AUTHN_WINNT,#RPC_C_AUTHZ_NONE,0,#RPC_C_AUTHN_LEVEL_CALL,#RPC_C_IMP_LEVEL_IMPERSONATE,0,#EOAC_NONE)
If hres <> 0: MessageRequester("ERROR", "unable to call CoSetProxyBlanket", #MB_OK): Goto cleanup: EndIf
hres=CoSetProxyBlanket_(pUnk,#RPC_C_AUTHN_WINNT,#RPC_C_AUTHZ_NONE,0,#RPC_C_AUTHN_LEVEL_CALL,#RPC_C_IMP_LEVEL_IMPERSONATE,0,#EOAC_NONE)
If hres <> 0: MessageRequester("ERROR", "unable to call CoSetProxyBlanket", #MB_OK): Goto cleanup: EndIf
pUnk\Release()
; CallData
k=CountString(WMICommand,#WMISeparator)
Dim wmitxt$(k)
For i=0 To k
wmitxt$(i) = StringField(WMICommand,i+1,#WMISeparator)
Next
For z=0 To k
;Debug Str(z)+" "+wmitxt$(z)
Next
hres=svc\ExecQuery("WQL",wmitxt$(0), #IFlags,0,@pEnumerator.IEnumWbemClassObject)
If hres <> 0: MessageRequester("ERROR", "unable to call IWbemServices::ExecQuery", #MB_OK): Goto cleanup: EndIf
hres=pEnumerator\reset()
Repeat
hres=pEnumerator\Next(#WBEM_INFINITE, 1, @pclsObj._IWbemClassObject, @uReturn)
For i=1 To k
mem=AllocateMemory(1000)
hres=pclsObj\get(wmitxt$(i), 0, mem, 0, 0)
Type=PeekW(mem)
Select Type
Case 8
val.s=PeekS(PeekL(mem+8), -1, #PB_Unicode)
Case 3
val.s=Str(PeekL(mem+8))
Default
val.s=""
EndSelect
If uReturn <> 0: wmi$=wmi$+wmitxt$(i)+" = "+val+Chr(10)+Chr(13): EndIf
FreeMemory(mem)
Next
Until uReturn = 0
; Cleanup
cleanup:
svc\Release()
loc\Release()
pEnumerator\Release()
pclsObj\Release()
CoUninitialize_()
ProcedureReturn wmi$
EndProcedure
|
Вход
Регистрация
Галерея
FAQ
Поиск
