Ein Beispiel!
Registrykey lesen
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
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
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