Dim WS, Kiri8, Kiri9, KiriVer, Ret
Set WS = WScript.CreateObject("WScript.Shell")

On Error Resume Next
Kiri8 = WS.RegRead("HKLM\SOFTWARE\K3\KIRI\8.0\Path")
Kiri9 = WS.RegRead("HKLM\SOFTWARE\K3\KIRI\9.0\Path")
KiriVer = WS.RegRead("HKCR\.tbl\")

If Err.Number <> 0 Then
  MsgBox "ERROR No.[" & Err.Number & "] " & Err.Description _
        & vbCrLf _
        &"桐の複数バージョンのインストールが無いか，" _
        &"レジストリ読み込みにエラーが発生しました！" _
        &" 処理を中止します！"
  Set WS = Nothing
  WScript.Quit
End If

If     KiriVer = "Kiri8tbl" Then
  Ret = WS.Popup( "現在の関連付けは「桐ver8」です．" & vbCrLf _
                & "「桐ver9」に変更します！" _
                , 0 _
                , "桐の関連付け変更 <ver8→ver9>" _
                , 4)
  If Ret = 6 Then
    If WS.RegRead("HKCR\.cmd\") = "Kiri8cmd" Then
      WS.RegWrite "HKCR\.cmd\", "Kiri9cmd", "REG_SZ"
    End If
   'If WS.RegRead("HKCR\.frm\") = "Kiri8frm" Then
     'WS.RegWrite "HKCR\.frm\", "Kiri9frm", "REG_SZ"
   'End If
    If WS.RegRead("HKCR\.k3\")  = "Kiri8k3"  Then
      WS.RegWrite "HKCR\.k3\" , "Kiri9k3" , "REG_SZ"
    End If
    If WS.RegRead("HKCR\.kev\") = "Kiri8kev" Then
      WS.RegWrite "HKCR\.kev\", "Kiri9kev", "REG_SZ"
    End If
    If WS.RegRead("HKCR\.rpt\") = "Kiri8rpt" Then
      WS.RegWrite "HKCR\.rpt\", "Kiri9rpt", "REG_SZ"
    End If
    If WS.RegRead("HKCR\.tbl\") = "Kiri8tbl" Then
      WS.RegWrite "HKCR\.tbl\", "Kiri9tbl", "REG_SZ"
    End If
    If WS.RegRead("HKCR\.viw\") = "Kiri8viw" Then
      WS.RegWrite "HKCR\.viw\", "Kiri9viw", "REG_SZ"
    End If
    If WS.RegRead("HKCR\.wfm\") = "Kiri8wfm" Then
      WS.RegWrite "HKCR\.wfm\", "Kiri9wfm", "REG_SZ"
    End If
    If WS.RegRead("HKCR\.xvw\") = "Kiri8xvw" Then
      WS.RegWrite "HKCR\.xvw\", "Kiri9xvw", "REG_SZ"
    End If
    If Err.Number <> 0 Then
      MsgBox "ERROR No.[" & Err.Number & "] " & Err.Description _
            & vbCrLf _
            &"何らかのエラーが発生しました！"
    Else
      Ret = WS.Popup( "桐の関連付けを「桐ver9」に変更しました！" _
                    , 3 _
                    , "桐の関連付け変更終了" _
                    , 0)
    End If
  Else
    Ret = WS.Popup( "桐の関連付けは「桐ver8」のままです！" _
                  , 3 _
                  , "桐の関連付け変更中止" _
                  , 0)
  End If

ElseIf KiriVer = "Kiri9tbl" Then
  Ret = WS.Popup( "現在の関連付けは「桐ver9」です．" & vbCrLf _
                & "「桐ver8」に変更します！" _
                , 0 _
                , "桐の関連付け変更 <ver9→ver8>" _
                , 4)
  If Ret = 6 Then
    If WS.RegRead("HKCR\.cmd\") = "Kiri9cmd" Then
      WS.RegWrite "HKCR\.cmd\", "Kiri8cmd", "REG_SZ"
    End If
   'If WS.RegRead("HKCR\.frm\") = "Kiri9frm" Then
     'WS.RegWrite "HKCR\.frm\", "Kiri8frm", "REG_SZ"
   'End If
    If WS.RegRead("HKCR\.k3\")  = "Kiri9k3"  Then
      WS.RegWrite "HKCR\.k3\" , "Kiri8k3" , "REG_SZ"
    End If
    If WS.RegRead("HKCR\.kev\") = "Kiri9kev" Then
      WS.RegWrite "HKCR\.kev\", "Kiri8kev", "REG_SZ"
    End If
    If WS.RegRead("HKCR\.rpt\") = "Kiri9rpt" Then
      WS.RegWrite "HKCR\.rpt\", "Kiri8rpt", "REG_SZ"
    End If
    If WS.RegRead("HKCR\.tbl\") = "Kiri9tbl" Then
      WS.RegWrite "HKCR\.tbl\", "Kiri8tbl", "REG_SZ"
    End If
    If WS.RegRead("HKCR\.viw\") = "Kiri9viw" Then
      WS.RegWrite "HKCR\.viw\", "Kiri8viw", "REG_SZ"
    End If
    If WS.RegRead("HKCR\.wfm\") = "Kiri9wfm" Then
      WS.RegWrite "HKCR\.wfm\", "Kiri8wfm", "REG_SZ"
    End If
    If WS.RegRead("HKCR\.xvw\") = "Kiri9xvw" Then
      WS.RegWrite "HKCR\.xvw\", "Kiri8xvw", "REG_SZ"
    End If
    If Err.Number <> 0 Then
      MsgBox "ERROR No.[" & Err.Number & "] " & Err.Description _
            & vbCrLf _
            &"何らかのエラーが発生しました！"
    Else
      Ret = WS.Popup( "桐の関連付けを「桐ver8」に変更しました！" _
                    , 3 _
                    , "桐の関連付け変更終了" _
                    , 0)
    End If
  Else
    Ret = WS.Popup( "桐の関連付けは「桐ver9」のままです！" _
                  , 3 _
                  , "桐の関連付け変更中止" _
                  , 0)
  End If

Else
  Ret = WS.Popup( "桐の関連付けはありません！" _
                , 0 _
                , "桐の関連付け確認" _
                , 0)

End If

Set WS = Nothing
WScript.Quit