RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\RAMDaten\Pfad", "SIV.EXE" & _
  "-SAVE=[DIMMs]"
 
 
'######################################################## Lesen
' Gibt den Wert des Schlüssels aus "Path" zurück
Public Function RegRead(Path)
  Dim ws 
 
  Set ws = CreateObject("WScript.Shell")
  RegRead = ws.RegRead(Path)
 
End Function
 
'######################################################## Schreiben
' Schreibt den Wert aus "Value" als den Typ aus "Typ"
' in den in "Path" angegebenen Schlüssel
Public Function RegWrite(Path, Value)
  Typ = "REG_SZ"
  Dim ws 
  Set ws = CreateObject("WScript.Shell")
  ws.RegWrite Path, Value, Typ
  RegWrite = True
 
End Function
 
 
'######################################################## Löschen
' Löscht den Schlüssel aus "Path"
Public Function RegDelete(Path)
  Dim ws
 
  Set ws = CreateObject("WScript.Shell")
  ws.RegDelete Path
  RegDelete = True
 
End Function