Hallo,
ich möchte in der Registry das Vorhandensein eines Eintrags prüfen:

Set wshShell = CreateObject( "WScript.Shell" )
GetRegString(HKLM,"SOFTWARE\WOW6432Node\Microsoft\VisualStudio\12.0\VC\Runtimes\x64","Installed",ProgVer)
If ProgVer <> "" Then
Msgbox "keine Aktion"
Else
msgbox "Aktion"
End If

Es wird auch das richtige Ergebnis angezeigt. Aber wenn das Paket beendet ist, erhalte ich immer einen Fehler in der Konsole:

Bei der Ausführung des Basic-Skripts C:\Temp\15A1.tmp ist ein Fehler aufgetreten. -- In 'HKEY_LOCAL_MACHINE' im Schlüssel 'SOFTWARE\WOW6432Node\Microsoft\VisualStudio\12.0\VC\Runtimes\x64' kann der Wert 'Installed' (Datentyp '') nicht gelesen werden. -- Das System kann die angegebene Datei nicht finden. -- Die Kommandozeile "wexec -r dxscript.exe -e "C:\Temp\15A2.tmp" -r "C:\Temp\15A1.tmp"" lieferte den Rückgabewert 17326639. -- Das Basic-Skript inst.bas ohne Versionslabel enthält den Eintrag "Sub Main". System.Object

Wie kann ich das Paket ohne Fehler beenden?

Hallo Herr Alhrich,
vielen Dank für die Antwort, habe das Script angepasst, mit Fehlerbehnadlung. Err.Number ist vorher udn hinter der Feherbehandlung gleich 0. Und am Ende wird das PAket wieder mit dem selben Fehler beendet.

Rem {VERSION..VER_DX_NT_1_0}
Sub main
	On Error Resume Next
	Dim wshShell
	Dim ProgVer As Integer
	Set wshShell = CreateObject( "WScript.Shell" )
	
	ProgVer = GetRegDword(HKLM,"SOFTWARE\WOW6432Node\Microsoft\VisualStudio\12.0\VC\Runtimes\x64","Installed",0)
	If ProgVer <> 0 Then 
		MsgBox "keine Aktion"
	Else
		MsgBox "Aktion"
	End If
	if err.number = 0 then
		err.Clear
	end if
End Sub
 

Hallo Katrin,
Hallo Andreas,

ich denke, das Problem ist der Registry-Schlüssel "SOFTWARE\WOW6432Node\Microsoft\VisualStudio\12.0\VC\Runtimes\x64". DXScript ist ein 32-Bit-Prozess, für diese Prozesse existiert der Subkey "WOW6432Node" nicht. Soll der 32-Bit-Zweig abgefragt werden, müsste der Aufruf so lauten:

ProgVer = GetRegDword(HKLM,"SOFTWARE\Microsoft\VisualStudio\12.0\VC\Runtimes\x64","Installed",0)
 

Viele Grüße,

Christian

Hallo Herr Ahlrichs,
genau das wollen wir, wissen ob Zweig 12.0 existiert oder nicht. Und wenn nicht, soll er die entsprechende Version installieren. Wenn der Zweig existiert bekommen wir auch keine Fehlermeldung, aber uns interessiert ja das Gegenteil.
Hintergrund: Ich möchte Adobe Acrobat DC 2017 installieren. Voraussetzung ist MS Visual C++ 2013 (x64). Habe ich als Paket vorliegen und Adobe als Abhängigkeit von dem C++ Paket eingestellt.
Nun gibt es PCs die haben die Version schon, nicht über eine Paket sondern durch irgendeine Software Installation. Ich hatte dann den Effekt, dass beide Pakete nicht installiert wurden, weil das Paket Visual C++ einfach nichts gemacht hat und damit nicht abgeschlossen wurde.
Deswegen möchte ich abfragen ob Visual C++ in der Version existiert oder nicht und in dem Paket dann die Installation durchführen oder das Paket beenden, damit das abhängige Paket dann installieret werden kann.