VB.NETからPython呼び出しについて

Question

実現したいこと

Visual Basicで書かれたソフトにPythonで作成した関数の処理の結果を渡したいです。
まずは以下のサイトと同じ事をしたいです。
参考サイト

発生している問題

CallPythonClass.vbの

'プロセスを実行する。
Dim ps = Process.Start(psi)

の箇所で、
System.ComponentModel.Win32Exception: 'アクセスが拒否されました。'
とうエラーが出ます。

今までPythonにしか触れたことがなく何をすればよいか検討がつきません。
アドバイスお願いします。

#コード
callTest.py

import sys

if len(sys.argv) == 4:

    #引数を受け取る
    param1 = int(sys.argv[1]) 
    param2 = int(sys.argv[2])
    param3 = int(sys.argv[3])

    #引数より計算処理を実施
    calcVal = param1 + param2 + param3

    #結果を返却
    print("calcResult {0}".format(calcVal))

CallPythonClass.vb

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Diagnostics

Public Class CallPythonClass

    Public Sub New()
    End Sub

    Public Sub callExecute()

        'Pythonインタプリタパス
        Dim pythonPath As String = "C:\ProgramData\Microsoft\VisualStudio\Packages\CPython3.Exe.x64,version=3.7.5,chip=x64"
        'Pythonスクリプトパス XXXXXはユーザー名
        Dim pythonFilePath As String = "C:\Users\XXXXX\Desktop\GW\callTest.py"

        '引数リストを作成する
        Dim paramList = New ArrayList()

        paramList.Add(pythonFilePath)
        paramList.Add("1000")
        paramList.Add("2000")
        paramList.Add("2000")

        'プロセス開始情報クラスを設定する。
        '引数配列よりコマンド配列（空白繋ぎ）に変換し設定する
        Dim psi = New ProcessStartInfo(pythonPath) With
        {
            .Arguments = String.Join(" ", paramList),
            .RedirectStandardOutput = True,
            .UseShellExecute = False
        }

        'プロセスを実行する。
        Dim ps = Process.Start(psi)

        '結果を取得する。
        Dim calcResult = ps.StandardOutput.ReadToEnd()

        'プロセス終了を待機する
        ps.WaitForExit()
        ps.Close()

        '結果出力
        Console.WriteLine(calcResult)
    End Sub

End Class

callFromTest.vb

Imports System

Public Class callFromTest

    Public Shared Sub Main(args As String())

        'Python呼び出しクラスをインスタンス化し処理する
        Dim callPython = New CallPythonClass

        'Pythonスクリプト外部呼出しを実行
        callPython.callExecute()
    End Sub
End Class

#補足情報
Windows10 64bit
Visual Studio 2019
Python3.7.5

Answer 1

CPython3をインストールしたことはないのですが、CPython3の実行時には、コマンドラインで以下のpythonPath変数の内容がすべて必要なのでしょうか？

'Pythonインタプリタパス
        Dim pythonPath As String = "C:\ProgramData\Microsoft\VisualStudio\Packages\CPython3.Exe.x64,version=3.7.5,chip=x64"

実際は、"C:\ProgramData\Microsoft\VisualStudio\Packages\CPython3.Exe"までなんじゃないかなと思うのですが、どうでしょう。
（"CPython3.Exe"ファイルが"C:\ProgramData\Microsoft\VisualStudio\Packages"フォルダに存在しなければならないことは言うまでもありません。）

Comments

[Goga]

Anaconda3をインストールして
Dim pythonPath As String = "C:\ProgramData\Anaconda3\python.exe"
とする事で解決しました。アドバイスありがとうございました。