Installierte Software auslesen

[Lloyd]

Server: 7.0.2
Client: 7.0.2
----------------
Hallo,
hat jemand von euch eine Ahnung ob und wie ich mit Lotus Notes die installierte Software eines PC auslesen kann. Ich möchte per Knopfdruck eine Liste erhalten die mir das wiederspiegelt was unter "Systemsteuerung"-"Software" installiert ist.
Das i-Tüpfelchen wäre, wenn ich über das Netzwerk diese Informationen nicht nur von meinem lokalen PC auslesen kann, sondern auch von anderen PCs aus dem Netzwerk erhalten könnte.
 

[m3]

1) Forumssuche
2) !!SYSTEM!!

[Lloyd]

aber hat jemand die Versin 1.0.0 als Download. Der download ist scheinbar z. Zt. deaktiviert worden.

[m3]

Schreib Thomas Schulte eine PN.

[guesswho]

die Version hat deshalb wahrscheinlich keiner, weil du keinen Namen hast 

Code

	strComputer = "Rechnername"
	Set objWMIService = GetObject("winmgmts:" & "\\" & strComputer & "\root\cimv2")
	Set colSoftware = objWMIService.ExecQuery ("Select * from Win32_Product")
	
	Forall objSoftware In colSoftware
		Print Trim(objSoftware.Caption) & " wird ermittelt..."
		instDate =Left(objSoftware.InstallDate2, 8)
		If Not Isnull(instdate) Then installdatum =  Datevalue(Right(instdate,2)& "." & Mid(instdate, 5,2) & "." & Left(instdate, 4)  )
		Pfad = objSoftware.InstallLocation
		Hersteller = objSoftware.Vendor
		Version = objSoftware.Version
		sw = sw & "Software: " & Trim(objSoftware.Caption) & " " & Version & " Installationsdatum: " & installdatum & " Hersteller: " & hersteller & " Pfad: " & pfad & Chr(13)
	End Forall
	
	Msgbox sw

listet dir die Software auf dem Gerät Rechnername auf. Ist aber nicht identisch mit <Systemsteuerung> <Software>. Listet nur das was mit dem Windows-Installer installiert wurde. Für eine identische Liste musst du die Software aus der Registry auslesen.

guckst du: http://atnotes.de/index.php?topic=24232.0

Zauberwort für all solche Dinge auf Windows-Rechnern: WMI. Google listet da alles auf, was nötig ist, Code lässt sich relativ problemlos in Notes portieren.

für die Msgbox oben brauchst du möglicherweise bisschen grossen Bildschirm 

Jo

[Lloyd]

Genau das habe ich gesucht. Klappt prima.