windows10でプログラムから証明書をインストールする事ができない

Question

windows10でプログラムから証明書をインストールする事ができない状況が発生しており困っております。

コードは以下なのですがMsgbox5に行く前にプログラムを停止しましたとなってしまいます。Windows７では問題なく動いています。
原因はどこにあるのかお教えいただけますと幸いです。

    Dim mode As String = "/a"
    Dim filePath As String = "証明書ファイル"

    If Not System.IO.File.Exists(filePath) Then
        '
        MsgBox("1")
        End
    End If
    MsgBox("2")

    Dim cert As New X509Certificate2(filePath)
    Dim store As New X509Store(StoreName.Root, StoreLocation.LocalMachine)

    MsgBox("3")

    Try

        store.Open(OpenFlags.ReadWrite)
        MsgBox("4")

        Select Case mode
            Case "/a"
                store.Add(cert)
                MsgBox("5")
            Case "/d"
                store.Remove(cert)
            Case Else
                End
        End Select

    Finally
        store.Close()
    End Try

Comments

[can110]

（現在のユーザーではなく）ローカルマシンに追加する場合は管理者権限が必要です。 よってまずはプログラムを管理者として実行しているか？確認すべきかと思います。

[teratailuser_hs]

ありがとうございました。管理者権限を付与する事で実行できました。

Answer 1

実行は管理者からでしょうか？
ソースコードを拝見したのですが、明らかな不具合を見つけられません。

Comments

[teratailuser_hs]

管理者権限で実行で上手く行きました。ありがとうございました。