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

markieren

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?

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:

markieren

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

markieren

Code:

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

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

markieren

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

Danke für die Hilfe, aber ich weiß nicht, ob der Code das macht, was er soll. Ich habe in der Registry meinen Schlüssel (HKCU\Software\MichaelPuff), in dem meine Programme ihre Einstellungen reinschreiben in Unterschlüssel mit dem Programmnamen. Das VBSkript soll jetzt einen Unterschlüssel löschen, zum Beispiel von Programm "X". Und dann soll der Schlüssel "MichaelPuff" nur dann entfernt werden, wenn er leer ist und nicht alle anderen Unterschlüssel von den anderen Programmen auch.

Aber es muss doch einen Möglichkeit in VBSckript geben, um zu überprüfen, ob ein Array leer ist oder nicht, ohne es erst in einer Collection zusammen zu fassen.

Ein Beispiel!

Registrykey lesen

markieren

Code:

' Gibt den Wert des Schlüssels aus "Path" zurück
Public Function RegRead(Path As String) As String
  Dim ws As Object

  On Error GoTo ErrHandler
  Set ws = CreateObject("WScript.Shell")
  RegRead = ws.RegRead(Path)
  Exit Function

ErrHandler:
  RegRead = ""
End Function

Registrykey speichern

markieren

Code:

' Schreibt den Wert aus "Value" als den Typ aus "Typ"
' in den in "Path" angegebenen Schlüssel
Public Function RegWrite(ByVal Path As String, _
  ByVal Value As String, _
  Optional ByVal Typ As String = "REG_SZ") As Boolean

  Dim ws As Object

  On Error Goto ErrHandler
  Set ws = CreateObject("WScript.Shell")
  ws.RegWrite Path, Value, Typ
  RegWrite = True
  Exit Function

ErrHandler:
  RegWrite = False
End Function

Registrykey löschen

markieren

Code:

' Löscht den Schlüssel aus "Path"
Public Function RegDelete(Path As String) As Boolean
  Dim ws As Object

  On Error Goto ErrHandler
  Set ws = CreateObject("WScript.Shell")
  ws.RegDelete Path
  RegDelete = True
  Exit Function

ErrHandler:
  RegDelete = False
End Function

Vielleicht hilft dir davon etwas weiter..
Du mußt halt dann dein array dementsprechend nur noch spliten um den wert
den du erfahren willst zu ermitteln.

Hier noch ein link der dir weiterhelfen könnte!
http://www.activexperts.com/activmon...ipts/registry/

gruss

Ich probiere das zu Hause mal aus heute Abend.