Sehr geehrte Damen und Herren,

gibt es eine Möglichkeit Registry Keys auszulesen welche unter HKLM sind. Mittels "Function RegExists(lKey As Long, sKeyPath As String, sKey$ As String, sData$ As String) As Long" aus der Online Hilfe ist der Key immer vorhanden. Auch wenn ich die Registry Key abfrage wie in der Online Hilfe beschrieben mit

If RegExists(HKCU,"a","b",sType)=0 Then
        MsgBox "Der gewünschte Key existiert und ist vom Typ "+sType
End If
 

abfrage.

Vielen Dank

Sehr geehrter Herr Ahlirchs,

es ginge mir im Prinzip auch nur um das vorhanden sein gewisser schlüssel unter HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" wenn ich jedoch dies starte bekomme ich immer den wert das der Schlüssel vorhanden ist, obwohl dieser nicht vorhanden ist.
Ich werde versuchen das ich mittels ihres Beispieles den Inhalt auszulesen.

Vielen Dank
Mit freundlcihen Grüßen

Sehr geehrter Herr Ahlrichs,

leider funktioniert es mit den $$$ vor den klammern auch nicht. Ich bekomme auch keine Fehlermeldung er macht nur immer den else Zweig (Key nicht existent bzw. es kann nciht darauf zugegriffen warden). Obwohl der Key existiert.
Vielleicht hilft ihnen dass oder sie haben noch eine idee wie ich die gewünschten Keys auslesen bzw. überprüfen kann ob diese Vorhanden sind.

Mir ginge es im wesentlichen darum nachzusehen ob ein Produkt installiert ist (welches nicht über DX Union installiert wurde) und dieses anschliesend zu entfernen. Habe auchs chon versucht eine batch Datei mit If abfragen zu verwenden, sobald ich dies aber mittels DX Union starte funktioniert diese nciht mehr, hier liegt der Fehler aber darin dass diese Batch als Administrator ausgeführt warden muss. Vielleicht kann man ja mittels DX Union eine Batch datei als Administrator ausführen?

Mit freundlichen Grüßen
Manuel

Sehr geehrter Herr Ahlrichs,

folgender Code wird von mir verwendet:

if regexists (HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall","$$${23170F69-40C1-2702-0920-000001000000$$$}",sType)=0 then
Msgbox "ist vorhanden!"+sType
else
msgbox "was ist da los!"
end if

egal ob der Key vorhanden ist oder nicht ich bekomme immer die else meldung auch wenn ich zum Test einen KEY dort anlege. Ich habe auch versucht noch direkt auf einen zusätzlichen Key zuzugreifen aber ohne erfolg.

Hallo Herr Ahlrichs,

auch wenn ich noch auf den Key Abfrage bekomme ich immer die Meldung das dieser nicht existiert, sprich den Else Zweig:

Sub Main
On Error GoTo RuntimeError

USRPreScriptCmds()
Dim sType as String

if regexists (HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\$$${23170F69-40C1-2702-0920-000001000000$$$}","DistplayName",sType)=0 then
Msgbox "ist vorhanden!"+sType
else
msgbox "was ist da los!"
end if


Exit Sub
RuntimeError:
USRHandleRuntimeError(Err)
End Sub

Der KEy existiert aber siehce screenshot. Im wesentlichen ginge es mir darum abzufragen ob die Software installiert ist, Abfrage der GUID um anschliesend diese per MSIEXEC zu deinstallieren. Leider muss ich diesen Weg gehen da die Software nicht mittels DX Union verteilt wurde. Wenn ich eine BATCH Datei, mittels DX Union, starte in welcher ich die Abfragen bereits erstellt habe kann diese leider nícht auf die gewünschten RegKeys zugreifen. STarte ich diese BATCH Datei jedoch überl "Als Administrator ausführen" funktioniert dies.

Mit freundlichen Grüßen
Manuel

Hallo Herr Ahlrichs,

Wir haben derzeit die Version 7.1.5 im Einsatz.

leider become ich bei dieser Funktion immer den Fehler Typ Mismatch. DX Union Konsolen Fehlermeldung: [ Installation ] An error occurred while executing the Basic script C:\Temp\BA59.tmp. -- The basic script C:\Temp\BA59.tmp cannot be started. -- Error in basic script, line 39, <Type mismatch.>. -- The command line "wexec -r dxscript.exe -e "C:\Temp\BA5A.tmp" -r "C:\Temp\BA59.tmp"" returned the value 17526117.

Gibt es in der Version 7.1.5 eine möglichkeit HKLM Keys zu überprüfen wenn das System 64 bit ist?

Mit freundlichen Grüßen
Manuel

Hallo Herr Ahlrichs,

habe nun versucht mittesl einer Batch Datei, start über DX Union auf die Registry zuzugreifen. Wenn ich die Batch datei mittels DX Union starte kann diese nicht auf diesen Registry Pfad zugreifen, die gleiche Batchdatei funktioniert aber wenn ich diese per doppelcklick am Client ausführe.

Option Explicit

Sub Main
On Error GoTo RuntimeError

USRPreScriptCmds()
USRDxCopy("-r -f -v ""{dynamic..depotrechner}:{dynamic..verzeichnis}\pkg"" ""{ENVIRONMENT..TEMP}\{package..name}""")
USRWExec32("{ENVIRONMENT..TEMP}\{package..name}\Deinstall.bat","",SW_NORMAL,"0,1603","{ENVIRONMENT..TEMP}\deinstall.log")
Exit Sub
RuntimeError:
USRHandleRuntimeError(Err)
End Sub

Inhalt Batchdatei:

Reg Query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{23170F69-40C1-2702-0920-000001000000}"
if %ERRORLEVEL% EQU 0 goto :Ja
if %ERRORLEVEL% EQU 1 goto :Nein

:Ja
echo "ist vorhanden!"
Pause
exit

:Nein
echo "WErt ist nicht da oder Zugriff nicht möglich!"
pause
exit

:End
Echo "alles erledigt!"
pause

Vielleicht hilft diese information nocht.

Mit freundlichen Grüßen
Manuel

Noch ein andere Einwurf. Warum deinstallierst dus nicht einfach mit msiexec. Wenn die Software nicht installiert ist gibts den Rückgabewert 1605 und den fängst du ab in etwa so :

	'Starten eines MSI Setups
	lRet = wexec32("msiexec", "/i " & sInstallationskommando &  sInstallationsparameter, SW_NORMAL)
	
	' Fehlerüberprüfung
if lRet = 1605 then
 lRet = 0
end if 
 
If lRet = 3010 Then
  lRet = 0
End If
If lRet = 1641 Then
 lRet = 0
End If
	If lRet <> 0 Then
		FehlerSetzen("Installation", "Fehler während der Installation. Der Rückgabewert ist: " & lRet)
    Else
        ReportDXDist (1, "Installation abgeschlossen")
	End If
 

Hier nochmal das ganze Ding mit GUID:

Rem {VERSION..VER_DX_NT_1_0}
Rem Deinstallation: Vorlage
Rem Datum: Vorlage
Rem Author: Vorlage
 

Option Explicit
Dim sLastReport As String
Dim iLastReportID As Integer
Dim lRet
 

 
Sub Main
 

	'Starten eines MSI Setups
	lRet = wexec32("msiexec", "/x " & "$$${06C43FAA-7226-41EF-A05E-9AE0AA849FFE$$$} /passive /norestart" , SW_NORMAL)
	
	' Fehlerüberprüfung
	if lRet = 1605
		lRet = 0
	end if
	If lRet = 3010 Then
		lRet = 0
	End If
	If lRet = 1641 Then
		lRet = 0
	End If
	If lRet <> 0 Then
		FehlerSetzen("Deinstallation", "Fehler während der Deinstallation. Der Rückgabewert ist: " & lRet)
    Else
        ReportDXDist (1, "Deinstallation abgeschlossen")
	End If
 
	
End Sub
 
Function FehlerSetzen(cmd$, errmsg$)
 
	' Message-Ids
	Dim QP_EXEC_ERR_EXECUTING
	Dim QP_EXEC_ERR_EXECCMD
	QP_EXEC_ERR_EXECUTING = 17460176
	QP_EXEC_ERR_EXECCMD = 17725734
 
	' Initialisierung von PET
	Dim oPetComHelper As Object
	Set oPetComHelper = CreateObject("PetcomHelper.PetcomHelper.1")
	oPetComHelper.UnloadRegistry()
	oPetComHelper.LoadRegistry("DX-Union", "DX-Script", "DX-Union")
 
	Dim oPetComError As Object
	Set oPetComError = CreateObject("PetcomError.PetcomError.1")
 
	' Fehlermeldung auf Fehlerstack ablegen
	oPetComError.Error(0, QP_EXEC_ERR_EXECUTING, cmd$)
	oPetComError.Error(0, QP_EXEC_ERR_EXECCMD , errmsg$)
 
	' Fehlermeldungsbox mit den Meldungen vom Fehlerstack anzeigen
	' oPetComError.MessageBox()
 
End Function
 
Sub EnableReportDXDist
 
	' Report-File auf ausreichende Größe setzen
	Dim obDxRegistry As Object
	Set obDxRegistry = CreateObject("DxRegistry.DxRegistry.1")
 
	obDxRegistry.sKey = "HKEY_LOCAL_MACHINE"
	obDxRegistry.sSubkey = "SOFTWARE\Dr. Materna GmbH\Tracing\DX-UNION\DX-Distribute"
	obDxRegistry.Write 2, "ReportLevel"
	obDxRegistry.Write &H500000, "ReportMaxSize"
 
End Sub
 
Function ReportDXDist(ByVal ReportID%, ByVal ReportMsg$)
 
	Dim oPetComHelperRep As Object
	Dim oPetComReport As Object
	Dim iCompIDRep
 
	' PET-Report fuer DX-Dist initialisieren
	Set oPetComHelperRep = CreateObject("PetcomHelper.PetcomHelper.1")
	oPetComHelperRep.UnloadRegistry()
 
	'Beispiel-Einstellungen für Report nach DX-Script
	'oPetComHelperRep.LoadRegistry("DX-Union", "DX-Script", "DX-Union")
	'iCompIDRep = 267        ' DX-Script
 
	'Report für Komponente DX-Distribute erzeugen
	oPetComHelperRep.LoadRegistry("DX-Union", "DX-Distribute", "DX-Union")
	iCompIDRep = 259        ' DX-Distribute
 
	Set oPetComReport = CreateObject("PetcomReport.PetcomReport.1")
	oPetComReport.Report( iCompIDRep, ReportID%, "SWP '{package..name}'- " & ReportMsg$ )
 
	iLastReportID = ReportID%
	sLastReport   = ReportMsg$
 
	' Aufräumen
	oPetComHelperRep.UnloadRegistry()
	Set oPetComHelperRep = Nothing
	Set oPetComReport = Nothing
 
End Function