Registryschlüssel mit VBSkript löschen

[EWeiss]

Zitat von Luckie:

Alternativ zu dem Batch-Skript http://www.delphipraxis.net/internal...t.php?t=106019 versuche ich das Problem über ein VBSkript zu lösen:

Code:

const HKEY_CURRENT_USER = &H80000001
Path = "SOFTWARE\z"

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

objReg.DeleteKey HKEY_CURRENT_USER, Path & "\Test"

objReg.EnumKey HKEY_CURRENT_USER, Path, SubKeys

If IsEmpty(SubKeys) Then
  MsgBox "Leer"
  objReg.DeleteKey HKEY_CURRENT_USER, Path
End If

Aber das will nicht so recht. SubKeys ist ein Array mit den Unterschlüsseln. Aber wie bekomme ich raus, ob es leer ist oder nicht?

Die SubKeys sollten zu einer Collection addiert werden

Code:

If Not IsInCollection(MyClass, SubKeys) Then
MyClass.Add Path, SubKeys
End if

dann kannst du ermitteln ob dein wert in der Collection existiert.

Code:

        For Each Path In MyClass
            If Path.name = SubKeys Then
                MyClass.Remove SubKeys 
                Exit For
            End If
        Next Path

tritt der entgegengesetzte fall ein dann ist SubKeys nicht leer.

gruss