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?