Ich möchte in der Registery einen Key abfragen z.B.
IF EXIST „HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\NeroCheck“ THEN
MsgBox „Ist da“
ELSE
MsgBox „Ist nicht da“
END IF
Kann mir jemand den richtigen Sytax bekannt geben, oder mir einen Link verraten, wo ich solche Dinge nachschlagen kann?
Besten Dank für die Hilfe.
Hi!
Dim Key2Proof
Set WshShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
Key2Proof = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\NeroCheck")
On Error Goto 0
If Key2Proof"" Then
WshShell.Popup "Key NeroCheck ist vorhanden",3,"NeroCheck aktiv?",64
Else
WshShell.Popup "Key NeroCheck ist nicht vorhanden",5,"NeroCheck aktiv?",16
End If
Set WshShell = Nothing
Die Root-Keynames sind wie folgt zu verwenden
HKEY\_CURRENT\_USER oder HKCU
HKEY\_LOCAL\_MACHINE oder HKLM
HKEY\_CLASSES\_ROOT oder HKCR
HKEY\_USERS
HKEY\_CURRENT\_CONFIG
Weitere Informationen und Funktionen auf http://www.devguru.com/Technologies/wsh/quickref/wsh…
Gruß Christian
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]