Ich tue mich etwas schwer, einen Regkey auszulesen und den Wert zu überprüfen...

cdb.JPG - Bild entfernt (keine Rechte)

Ich will also den gelb markierten Wert auslesen und wenn er vorhanden ist, soll das Softwarepaket was installieren.

Wie mache ich das am besten?
Ich habe schon unzählige Versuche gemacht, WMIGet.... WmiRegValueExists
Am besten wird der Wert dann in eine Variable übergeben und dann könnte ich mittels

If Variable = "C:\Temp\CDB Client Deutsch" Then
 
...
 

 

Ich komme aber irgendwie mit der Syntax bei der Abfrage des Reg-Wertes nicht klar.

Kann wer helfen?

Danke
André

Hi André,

eventuell so hier:

Option Explicit
 
Sub Main
 
	Dim iArch As Integer
	iArch = 64
	
	Dim sExpectedValue As String
	sExpectedValue="C:\TEMP\CDB CLIENT DEUTSCH"
	
	Dim sMyValue As String
	sMyValue=UCase(Trim(WmiReadRegString(iArch, HKLM, "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" + Chr(123) + "9FE60F79-8C5B-489E-471C71B82AF2" + Chr(125), "InstallSource", "N/A")))
 
	Select Case sMyValue
		Case sExpectedValue
			'do some install
		Case "N/A"
			'reg value not found, set error
		Case Else
			'set error or something else
	End Select
	
End Sub
 

 

Christian

Danke, das sieht besser aus, funktioniert aber leider auch nicht, der Wertdes Regkey wird nicht erkannt bzw. in die Variable geschrieben, habe auch schon ein paar Sachen angepasst, Groß/Kleinschreibung etc.

Es gibt doch sicherlich auch die Möglichkeit, beim aktuellen Rechner die zugewiesenen SWP abzufragen, dann müsste man auch nicht auf die Versionen immer aufpassen...

Sowas wie...

 If .... getcurrentapc..... sw-paket-soll = CDB Client Deutsch Then
'tue das
Else 
'tue nichts
End if
 

 

Kenn jmd die Befehle und Syntax?

Siehe DXUBas.chm:

Function IsSoftwareInstalled&(paket$)
Überprüft, ob das angegebene Softwarepaket auf dem aktuellen Rechner installiert ist.

Parameter:
paket$ Zu überprüfendes Softwarepaket.

Rückgabe:
0 - ja, das Softwarepaket ist installiert.
-1 - nein, das Softwarepaket ist nicht installiert.

>0 - Es ist ein Fehler aufgetreten. Mit CheckError kann er angezeigt werden.

Beispiel:
Prüft, ob das Softwarepaket "System Completion" installiert ist

 Select Case IsSoftwareInstalled("System Completion")
  Case 0
      MsgBox "System Completion ist installiert"
  Case -1
      MsgBox "System Completion ist nicht installiert"
  Case Else
      MsgBox "Es ist ein Fehler aufgetreten"    
  End Select 
 
 

Danke, so funktioniert es perfekt!

In meiner aktuellen DXUBAS.chm ist die Funktion komischerweise gar nicht gelistet, daher war der Auszug daraus hier genau richtig.