COMate / WMI und WIN32_PRODUCT Abfrage

alen · **Registriert:** 09.04.2007 17:38 **Wohnort:** Duisburg

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:

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 · **Registriert:** 14.02.2005 10:33

Hallo Alen,

Hier ein Beispiel der von Comate Plus stamm funzioniert fehlerfrei!

Ciao
jpd

Code:

;/////////////////////////////////////////////////////////////////////////////////
;***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 · **Registriert:** 09.04.2007 17:38 **Wohnort:** Duisburg

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 · **Registriert:** 14.02.2005 10:33

Hallo Alen,

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

andere WMI abfragen funktionieren?

Ciao
jpd

Kiffi · **Registriert:** 08.09.2004 08:21 **Wohnort:** Porada Ninfu

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 · **Registriert:** 09.04.2007 17:38 **Wohnort:** Duisburg

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 · **Registriert:** 08.09.2004 08:21 **Wohnort:** Porada Ninfu

werden die installierten Programme denn in der Systemsteuerung korrekt angezeigt?

Grüße ... Kiffi

alen · **Registriert:** 09.04.2007 17:38 **Wohnort:** Duisburg

Hallo Kiffi,

ja, aber sowas von einer langen Liste :-)

Grüße
Alen

Kiffi · **Registriert:** 08.09.2004 08:21 **Wohnort:** Porada Ninfu

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 · **Registriert:** 09.04.2007 17:38 **Wohnort:** Duisburg

Hallo Kiffi,

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

Grüße
Alen

PureBoard

COMate / WMI und WIN32_PRODUCT Abfrage

Wer ist online?