COMate / WMI und WIN32_PRODUCT Abfrage

[alen]

Hallo Community,

ich brauch mal einen Schubs. Ich bräuchte ein Codebeispiel das mir über eine WMI Abfrage alle installierten Programmnamen und deren Installationspfad ausgibt.

Zum Einsatz kommt aktuell COMate.

Ich spiele mit folgenden Codeschnipsel herum, bekomme aber keine brauchbaren Ergebnisse raus:
(Das stammt aus einem Umbau eines Codebeispieles von COMate und ist nur ein Ausschnitt)

Wäre cool wenn mich jemand hierbei schubsen könnte

Grüße
Alen

Code: Alles auswählen

Procedure Get_Software()
  ; Usage: Get_Driver()
  ; ReturnValues:
  ;            |- Fills a numbered structured List with Data
  ;  
  Protected objWMIService.COMateObject, printer.COMateObject 
  Protected colPrinter.COMateEnumObject 
  
  counter.l = 0
  
  strComputer.S = "." 
  objWMIService = COMate_GetObject("winmgmts:\\" + strComputer + "\root\cimv2", "") 
  If objWMIService 
    colPrinter = objWMIService\CreateEnumeration("ExecQuery('SELECT * FROM WIN32_PRODUCT')") 
    If colPrinter 
      printer = colPrinter\GetNextObject() 
      While printer  
        Software(counter)\Caption        = printer\GetStringProperty("Caption")
        Software(counter)\InstallSource  = printer\GetStringProperty("InstallSource")
        
        counter + 1
        printer\Release() 
        printer = colPrinter\GetNextObject() 
      Wend 
      colPrinter\Release() 
    EndIf 
    objWMIService\Release()  
  EndIf 
EndProcedure 

[jpd]

Hallo Alen,

Hier ein Beispiel der von Comate Plus stamm funzioniert fehlerfrei!

Ciao
jpd

Code: Alles auswählen

;/////////////////////////////////////////////////////////////////////////////////
;***COMate***  COM automation through iDispatch.
;*===========
;*
;*WMI demo - list softwares.
;/////////////////////////////////////////////////////////////////////////////////

IncludePath "..\..\"
XIncludeFile "COMatePLUS.pbi"

Procedure Get_softwares() 
   Protected objWMIService.COMateObject, software.COMateObject 
   Protected colsoftware.COMateEnumObject 

   strComputer.s = "." 
   objWMIService = COMate_GetObject("winmgmts:\\" + strComputer + "\root\cimv2", "") 
   If objWMIService 
      colsoftware = objWMIService\CreateEnumeration("ExecQuery('Select * FROM WIN32_PRODUCT')") 
      If colsoftware 
         software = colsoftware\GetNextObject() 
         While software 
            Debug "Name        =  " + software\GetStringProperty("Name") 
            Debug "Vendor   =  " + software\GetStringProperty("Vendor")
            Debug "InstallSource  =  " + software\GetStringProperty("InstallSource")
            Debug "----------------------------------------------------------------" 
            software\Release() 
            software = colsoftware\GetNextObject() 
         Wend 
         colsoftware\Release() 
      EndIf 
      objWMIService\Release()  
   EndIf 
EndProcedure 

Get_softwares()

[alen]

Hei jpd,

auch wenn ich Deinen Code nehme, kommen keine Ergenbnisse raus.

Seltsam. Der WMI Beisielcode aus den COMate Plus Beispielen zum Auflisten von Prozessen läuft sauber.
Kann es sein das nicht alle Softwarepakete angezeit werden über diese WMI Abfrage - ExecQuery('Select * FROM WIN32_PRODUCT') ? Evtl. nur die, die als MSI Installation installiert wurden ?

Ich wundere mich gerade. Vielleicht muss ich mir da was neues ausdenken wenn ich an die installierten Programme kommen will.

Grüße
Alen

[jpd]

Hallo Alen,

was für ein betriebsystem verwendest du?
bist du vielleich mit eingeschränkte zugriffe angemeldet?

andere WMI abfragen funktionieren?

Ciao
jpd

[Kiffi]

Hallo Alen,

Dein Schnippsel ist korrekt und zeigt (zumindest mir) alle installierten Programme an.

Ist das vielleicht ein Rechte-Problem?

Grüße ... Kiffi

// jpd war schneller

[alen]

Hei jpd,

hier in der Firma bin ich mit Windows XP unterwegs.
Ob ich mit eingeschränkten Rechten Unterwegs bin kann ich so genau nicht sagen.
Habe schon weitergehende Rechte. Bin da nicht als einfacher User unterwegs.

Andere WMI Abfragen klappen bestens. Nur hier wurden die Programme nicht per Hand installiert sondern per Softwareverteilungs Agent. Daher meine Vermutung mit der eventuellen Anzeige von nur MSI Paketen oder nur die, die mit einer eindeutigen IDs installiert werden "Bsp.: {90120409-6000-11D3-8CFE-0150048383C9}".

Aber da forsche ich noch ein wenig weiter.

Grüße
Alen

[Kiffi]

werden die installierten Programme denn in der Systemsteuerung korrekt angezeigt?

Grüße ... Kiffi

[alen]

Hallo Kiffi,

ja, aber sowas von einer langen Liste

Grüße
Alen

[Kiffi]

ich hab mal n Tool von mir hochgeladen:

http://tuebbentools.bplaced.net/sis.exe

Wenn Dir dort die Programme angezeigt werden, dann
kann ich heute Abend mal nach dem Source schauen
und Dir schicken.

Grüße ... Kiffi

[alen]

Hallo Kiffi,

aus Deiner EXE kommt was raus = lange Liste mit installierten Programmen.
Aber deutlich mehr als aus dem COMate Beispielcode.

Grüße
Alen