Hi Leute,
ich mögte mit VBScript einen Registryschlüssel, sagen wir „HKCU\Software\Microsoft“ und alle darunter liegenden Schlüssel nach einem Wert, sagen wir „AutoSync“ durchsuchen und diesen Wert dann löschen. Der Wert kann auch öffter vorkommen.
Leider keine Ahnung von VBScript also bitte HILFE!!! 
dachte an rekursiv?
danke schonmal
Artur
Habs schon selbst erarbeitet, falls es jemand wissen will:
Ist eine rekursive Funktion:
'HKEY for search
Const HKEY\_CURRENT\_USER = &H80000001
'Path to search
Const strInitRegDel = "Software\update.com\update.seven.groupware"
'To deledet Attribute
Const strValue = "LastAutoSync"
'Remote Computer. "." is local machine.
Const strComputer = "."
Set WshShell = CreateObject("WScript.Shell")
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
SearchAndDestroy strInitRegDel, strValue
msgbox "Done!"
Set WshShell = Nothing
Set objReg = Nothing
Sub SearchAndDestroy(strRegDel, value)
strRegDelSub = strRegDel
NumbOfKeys = 0
NumbOfAttributes = 0
objReg.EnumKey HKEY\_CURRENT\_USER, strRegDelSub, arrKeyNames
On Error Resume Next
NumbOfKeys = UBound(arrKeyNames)
For i = 0 to NumbOfKeys
SearchAndDestroy strRegDelSub & "\" & arrKeyNames(i), Value
Next
objReg.EnumValues HKEY\_CURRENT\_USER, strRegDelSub, arrValueNames, arrValueTypes
On Error Resume Next
NumbOfAttributes = UBound(arrValueNames)
For i = 0 to NumbOfAttributes
strValueName = arrValueNames(i)
If strValueName = Value Then
WshShell.RegDelete("HKCU\" & strRegDelSub & "\" & strValueName)
End IF
Next
End Sub