***  WMI-Konsole

Anzeigefenster  'WMI-Abfragen' (ID='', Aktivieren)
Anzeige-Element  Bezeichner: 'Computername'
Anzeige-Element  Eingabe: '.' (ID='txtComputername', Tooltip='Name des Computers im Netzwerk oder . für lokal')
Anzeige-Element  Button: 'Abfragen' (ID='cmdQuery')
Anzeige-Element  Bezeichner: 'WMI-Klassen:'
Anzeige-Liste   (ID='lstClasses')
Anzeige-Liste   (ID='lstProperties')
Anzeige-Element  Bezeichner: 'Eigenschaften:'
Anzeige-Element  Bezeichner: 'Wert' (ID='')
Anzeige-Element  Eingabe:  (ID='txtValue')
Warte  endlos...
 
::  Anzeige_Element(cmdQuery)_Klick

  ***  WMI-Klassen des angegebenen Computers auflisten

  Mauszeiger  'Sanduhr'
  Anzeige-Liste   (ID='lstClasses', löschen)
  Setze  in [Erfolg]:  '[WMI.Computer [.Element(txtComputername)]]'
  Setze  in [Anzahl]:  '[WMI.Klassen]'
 
  Schleife Ab   ([Index]  von 1  bis [WMI.Anzahl])
    Anzeige-Liste  '[WMI.Element([Index]).Class]' (ID='lstClasses', sortiert)
  Schleife Bis
  Mauszeiger  'Standard'
Zurück
 
::  Anzeige_Liste(lstClasses)_Klick

  ***  Eigenschaften der angewählten Klasse auflisten

  Mauszeiger  'Sanduhr'
  Anzeige-Liste   (ID='lstProperties', löschen)
  Setze  in [Anzahl]:  '[WMI.Eigenschaften [.Element(lstClasses).Text]]'
 
  Schleife Ab   ([Index]  von 1  bis [WMI.Anzahl])
    Anzeige-Liste  '[WMI.Element([Index]).Name]' (ID='lstProperties', sortiert)
  Schleife Bis
  Mauszeiger  'Standard'
Zurück
 
::  Anzeige_Liste(lstProperties)_Klick

  ***  Wert der angewählten Eigenschaft anzeigen

  Mauszeiger  'Sanduhr'
  Setze  in [Anzahl]:  '[WMI.Abfrage [.Element(lstClasses).Text]]'
  Setze  in [.Element(txtValue)]:  '[WMI.Wert([.Element(lstClasses).Text].[.Element(lstProperties).Text])]'
  Mauszeiger  'Standard'
Zurück

**cX402DE4 969A0DS214 1CMQkwCQkg V01JLUtvbn NvbGUNCjM5 CTAJCSBXTU

ktQWJmcmFn ZW4JRwlXMT IzCUgxMDAJ Qw0KMzgJMA kJIENvbXB1 dGVybmFtZQ

lYMQlZMwlX MjEJSDQJTA 0KMzgJMAkJ IC4JSXR4dE NvbXB1dGVy bmFtZQlYMj

QJWTIJVzk0 CUg1CVQJP0 5hbWUgZGVz IENvbXB1dG VycyBpbSBO ZXR6d2Vyay

BvZGVyIC4g ZvxyIGxva2 FsDQozOAkw CQkgQWJmcm FnZW4JSWNt ZFF1ZXJ5CV

gyCVk4CVcy MAlINw0KMz gJMAkJIFdN SS1LbGFzc2 VuOglYMQlZ MTcJVzIxCU

g1CUwNCjUy CTAJCUlsc3 RDbGFzc2Vz CVgyNQlZMT YJVzkzCUgz Mg0KNTIJMA

kJSWxzdFBy b3BlcnRpZX MJWDI1CVk0 OQlXOTMJSD MyDQozOAkw CQkgRWlnZW

5zY2hhZnRl bjoJWDIJWT UwCVcyMQlI NQlMDQozOA kwCQkgV2Vy dAlJCVgyCV

k4MwlXMTkJ SDMJTA0KMz gJMAkJSXR4 dFZhbHVlCV gyNQlZODMJ VzkzCUg1CV

QNCjMxCTAJ CUUNCjAJMA kNCjE5CTAJ CSBBbnplaW dlX0VsZW1l bnQoY21kUX

VlcnkpX0ts aWNrDQoxCT AJCSBXTUkt S2xhc3Nlbi BkZXMgYW5n ZWdlYmVuZW

4gQ29tcHV0 ZXJzIGF1Zm xpc3Rlbg0K MzcJMAkJTA 0KNTIJMAkJ SWxzdENsYX

NzZXMJTA0K MjIJMAkJPU VyZm9sZwkg W1dNSS5Db2 1wdXRlciBb LkVsZW1lbn

QodHh0Q29t cHV0ZXJuYW 1lKV1dDQoy MgkwCQk9QW 56YWhsCSBb V01JLktsYX

NzZW5dDQow CTAJDQozMw kwCQlaSW5k ZXgJUzEJRV tXTUkuQW56 YWhsXQ0KNT

IJMAkJIFtX TUkuRWxlbW VudChbSW5k ZXhdKS5DbG Fzc10JSWxz dENsYXNzZX

MJUw0KMzQJ MAkNCjM3CT AJCUENCjQ1 CTAJDQowCT AJDQoxOQkw CQkgQW56ZW

lnZV9MaXN0 ZShsc3RDbG Fzc2VzKV9L bGljaw0KMQ kwCQkgRWln ZW5zY2hhZn

RlbiBkZXIg YW5nZXfkaG x0ZW4gS2xh c3NlIGF1Zm xpc3Rlbg0K MzcJMAkJTA

0KNTIJMAkJ SWxzdFByb3 BlcnRpZXMJ TA0KMjIJMA kJPUFuemFo bAkgW1dNSS

5FaWdlbnNj aGFmdGVuIF suRWxlbWVu dChsc3RDbG Fzc2VzKS5U ZXh0XV0NCj

AJMAkNCjMz CTAJCVpJbm RleAlTMQlF W1dNSS5Bbn phaGxdDQo1 MgkwCQkgW1

dNSS5FbGVt ZW50KFtJbm RleF0pLk5h bWVdCUlsc3 RQcm9wZXJ0 aWVzCVMNCj

M0CTAJDQoz NwkwCQlBDQ o0NQkwCQ0K MAkwCQ0KMT kJMAkJIEFu emVpZ2VfTG

lzdGUobHN0 UHJvcGVydG llcylfS2xp Y2sNCjEJMA kJIFdlcnQg ZGVyIGFuZ2

V35GhsdGVu IEVpZ2Vuc2 NoYWZ0IGFu emVpZ2VuDQ ozNwkwCQlM DQoyMgkxCQ

k9QW56YWhs CSBbV01JLk FiZnJhZ2Ug Wy5FbGVtZW 50KGxzdENs YXNzZXMpLl

RleHRdXQ0K MjIJMAkJPS 5FbGVtZW50 KHR4dFZhbH VlKQkgW1dN SS5XZXJ0KF

suRWxlbWVu dChsc3RDbG Fzc2VzKS5U ZXh0XS5bLk VsZW1lbnQo bHN0UHJvcG

VydGllcyku VGV4dF0pXQ 0KMzcJMAkJ QQ0KNDUJMA kNCg===*