Mar 28, 2019, updated at 14:17:48 (UTC)

4164

VBScript soll registryeintrag löschen

Hallo Leute, ich übe immer noch das scripten und versuche per VBS einen Registryeintrag zu löschen, falls er vorhanden ist. Gelöscht wird aber nichts - Was mache ich hier falsch?

WshShell.run "Reg Delete " & "HKEY_CLASSES_ROOT\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify\IconStreams"  & " /f"  
WshShell.run "Reg Delete " & "HKEY_CLASSES_ROOT\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify\PastIconsStream"  & " /f"  
WshShell.run "Reg Delete " & "HKEY_CURRENT_USER\Software\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify\IconStreams"  & " /f"  
WshShell.run "Reg Delete " & "HKEY_CURRENT_USER\Software\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify\PastIconsStream"  & " /f"  
WshShell.run "Reg Delete " & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNotify\IconStreams"  & " /f"  
WshShell.run "Reg Delete " & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNotify\PastIconsStream"  & " /f"  

Viele Grüße

Please also mark the comments that contributed to the solution of the article

Content-Key: 433688

Url: https://administrator.de/contentid/433688

Printed on: April 18, 2024 at 05:04 o'clock

7 Comments

Latest comment

Erstens hätte man sich mal die Help-Seite des Befehls reg delete /? angesehen hättest du gesehen das man den Wert separat getrennt vom Pfad (/v Wert) übergibt.

Zweitens löscht man Registry-Keys in VBS überlichweise über die Objekte dies es extra dafür schon gibt ...

On Error Resume Next
Dim strKey, result, objShell
Set objShell = CreateObject("Wscript.Shell")  
strKey = "HKEY_CLASSES_ROOT\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify\IconStreams"  
result = objShell.RegRead(strKey)
If Err.Number <> 0 Then
	WScript.Quit 1
End If
objShell.RegDelete strKey

Ja, OK - aber was mache ich nun, wenn ich die einzelnen Registry-Einträge nacheinander löschen möchte, aber ein Wert zb nicht existiert - bricht mir in dem Fall dann nicht das Script durch die Zeilen

If Err.Number <> 0 Then
	WScript.Quit 1

alles, was danach kommt ab?

Ja, OK - aber was mache ich nun, wenn ich die einzelnen Registry-Einträge nacheinander löschen möchte,

Für sowas macht man sich üblicherweise eine Funktion draus oder packt das in eine For-Schleife

Set objShell = CreateObject("Wscript.Shell")  
' Array mit zu löschenden Keys  
arrKeys = array("HKEY_CLASSES_ROOT\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify\IconStreams","HKEY_CLASSES_ROOT\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify\PastIconsStream")  
' Lösche jeden Key aus dem Array mit der Funktion  
for each key in arrKeys
    DeleteKey key
Next
' Beispielfunktion zum Löschen eines Keys  
Function DeleteKey(strKey)
	On Error Resume Next
	result = objShell.RegRead(strKey)
	If Err.Number <> 0 Then
		DeleteKey = False
		Exit Function
	Else
		objShell.RegDelete strKey
		If Err.Number <> 0 Then
			DeleteKey = False
			Exit Function
		End If
		DeleteKey = True
	End If
End Function

OK Danke dafür - jetzt habe ich nur noch ein Problem - sobald ich das Script in ein Sub packe bekomme ich eine Fehlermeldung

Sub Test
Set objShell = CreateObject("Wscript.Shell")  
' Array mit zu löschenden Keys  
arrKeys = array("HKEY_CLASSES_ROOT\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify\IconStreams","HKEY_CLASSES_ROOT\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify\PastIconsStream","HKEY_CURRENT_USER\Software\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify\IconStreams","HKEY_CURRENT_USER\Software\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify\PastIconsStream","HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNotify\IconStreams","HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNotify\PastIconsStream")  
' Lösche jeden Key aus dem Array mit der Funktion  
for each key in arrKeys
    DeleteKey key
Next
' Beispielfunktion zum Löschen eines Keys  
Function DeleteKey(strKey)
	On Error Resume Next
	result = objShell.RegRead(strKey)
	If Err.Number <> 0 Then
		DeleteKey = False
		Exit Function
	Else
		objShell.RegDelete strKey
		If Err.Number <> 0 Then
			DeleteKey = False
			Exit Function
		End If
		DeleteKey = True
	End If
End Function
End Sub
test

Ja nee, ne Function in ne Sub packen geht nicht

Set objShell = CreateObject("Wscript.Shell")  
Sub Test
    ' Array mit zu löschenden Keys  
    arrKeys = array("HKEY_CLASSES_ROOT\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify\IconStreams","HKEY_CLASSES_ROOT\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify\PastIconsStream","HKEY_CURRENT_USER\Software\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify\IconStreams","HKEY_CURRENT_USER\Software\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify\PastIconsStream","HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNotify\IconStreams","HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNotify\PastIconsStream")  
    ' Lösche jeden Key aus dem Array mit der Funktion  
    for each key in arrKeys
        DeleteKey key
    Next
End Sub

' Beispielfunktion zum Löschen eines Keys  
Function DeleteKey(strKey)
	On Error Resume Next
	result = objShell.RegRead(strKey)
	If Err.Number <> 0 Then
		DeleteKey = False
		Exit Function
	Else
		objShell.RegDelete strKey
		If Err.Number <> 0 Then
			DeleteKey = False
			Exit Function
		End If
		DeleteKey = True
	End If
End Function

Test

ah ok lässt sich das auch anders lösen? ich würde gerne innerhalb verschiedener Sub verschiedene Registryeinträge schreiben und/oder löschen.
Das ganze ist nur ein kleines Projekt für mich um VBS zu verstehen..

Zitat von @Senseless-Creature:

ah ok lässt sich das auch anders lösen?

Möglichkeiten gibt es viele ...

ich würde gerne innerhalb verschiedener Sub verschiedene Registryeinträge schreiben und/oder löschen.

Kannst du ja machen, die Keys stehen ja im Array. Oder du erweiterst die Function mit einem weiteren Parameter der das Array aufnimmt und dann durchläufst du das Array innerhalb der Function. Dann sparst du extra Subs für ein und die selbe Aufgabe.

Einfach mal hier lesen und lernen
https://www.a-coding-project.de/ratgeber/vbscript/prozeduren-und-funktio ...

German solved Question Basic Development

Hotly discussed

How to set up and configure a Linux GRE tunnelAlexWisha - 3 Comments

End of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment