Das Notes Forum

Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: Lloyd am 12.06.08 - 15:10:29

Titel: Installierte Software auslesen
Beitrag von: Lloyd am 12.06.08 - 15:10:29
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.
 ???
Titel: Re: Installierte Software auslesen
Beitrag von: m3 am 12.06.08 - 15:12:37
1) Forumssuche
2) !!SYSTEM!! (http://www.openntf.org/Projects/pmt.nsf/ProjectLookup/!!SYSTEM!!)
Titel: Zunächst Danke
Beitrag von: Lloyd am 12.06.08 - 15:52:08
aber hat jemand die Versin 1.0.0 als Download. Der download ist scheinbar z. Zt. deaktiviert worden.
Titel: Re: Installierte Software auslesen
Beitrag von: m3 am 12.06.08 - 15:54:24
Schreib Thomas Schulte eine PN. ;)
Titel: Re: Installierte Software auslesen
Beitrag von: guesswho am 12.06.08 - 17:29:23
die Version hat deshalb wahrscheinlich keiner, weil du keinen Namen hast  ;D

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
Titel: DANKE !!!!!!!!
Beitrag von: Lloyd am 13.06.08 - 10:14:45
Genau das habe ich gesucht. Klappt prima.