Registryschlüssel mit VBSkript löschen

[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?