Example of code:

code:

---

   $info=""
    $debug_mode="yes"
    ;
    IF ($debug_mode = "yes")
      ?
      ? "-REGISTRY PART-  HKCR - regfile + vbsfile"
      ?
    ENDIF
    ;
    ; change "open" mode to "edit" mode. prevents automatically run a VBS file.
    ;
    $ikey="HKEY_CLASSES_ROOT\vbsfile\shell"
    $ikey_ex=ENUMVALUE($ikey, 0)
    $default_key="edit"
    IF (ExistKey($ikey+"\"+$ikey_ex) = 0)
      $result_data_type=ReadType($ikey, $ikey_ex)
    ELSE
      $result_data_type="REG_SZ"
    ENDIF
    IF (ReadValue($ikey, $ikey_ex) <> $default_key)
      IF (writevalue($ikey, $ikey_ex, $default_key, $result_data_type) = 0)
        IF (writevalue($ikey, $ikey_ex, $default_key, "REG_SZ") = 0)
        ENDIF
      ENDIF
      $info=$info+" "+$ikey+"="+$default_key
    ENDIF
    ;
    IF ($debug_mode = "yes")
      ? $info
    ENDIF

---

Complete things are written in:

http://kixtart.org/script/board/ubbhtml/Forum2/HTML/000534.html

Greetings.