How to open a python script in pcdmis?

$$ NO,
<Administration Check. Some directories are not available while running as administrator.>​
ADMIN_CHECK_CS1 =SCRIPT/FILENAME= C:\USERS\PUBLIC\DOCUMENTS\HEXAGON\ROUTINE BUILDER\ROUTINE BASIC SCRIPTS\AMINISTRATOR_NOTIFICATION.BAS
FUNCTION/Main,SHOW=YES,,
STARTSCRIPT/
ENDSCRIPT/​

Sub Main

Dim shellpath

shellpath = "C:\Users\Public\Documents\Hexagon\Routine Builder\Routine Exe Scripts\AministratorNotificationConsoleApp1.exe"

Close shellpath

'Launch application & Open file
Shell shellpath

End Sub

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Security.Principal;
using System.Runtime.InteropServices;
namespace AministratorNotificationConsoleApp1
{
    internal class Program
    {
        [DllImport("User32.dll", CharSet = CharSet.Unicode)]
        public static extern int MessageBox(IntPtr h, string m, string c, int type);
        static void Main(string[] args)
        {
            bool isRunningAsAdmin = new WindowsPrincipal(WindowsIdentity.GetCurrent()).IsInRole(WindowsBuiltInRole.Administrator);
            // found this syntax executes faster
            if (isRunningAsAdmin)
            {
                MessageBox((IntPtr)0, "This application is running as administrator.", "Admin Warning", 0);
                Console.WriteLine("This application is running as administrator.");
                Console.ReadKey();
            }
        }
    }
}
/*
 Using .NET 4.8 FrameWork
To switch this app from using the Console. Select AministratorNotificationConsoleApp1 within the
Solution Explorer right mouse click and select properties.
Change the OutPut Type to Windows Application.​
*/

Sub Main()

Dim vbaShell As Object
Set vbaShell = VBA.CreateObject("Wscript.Shell")
vbaShell.Run """C:\Users\Owner\AppData\Local\Programs\Python\Py thon310\python.exe""" & """C:\Users\Owner\Desktop\PCDMIS.PY"""

End Sub

​

import win32com.client as w32
dmisapp = w32.Dispatch('PCDLRN.Application')
dmispart = dmisapp.ActivePartProgram
dmiscommands = dmispart.Commands

print(dmisapp.CurrentFolder) # Location of .PRG
input('Press any key to continue...')

dmispart.RefreshPart()​

Sub Main

  Dim vbaShell As Object
  Set vbaShell = VBA.CreateObject("Wscript.Shell")
  vbaShell.Run """C:\Users\PNT31\AppData\Local\Programs\Python\Python311\python.exe""" & """C:\Users\PNT31\OneDrive - PNT31\Desktop\test.py"""

End Sub​

Sub Main

  Dim vbaShell As Object
  Set vbaShell = CreateObject("Wscript.Shell")
  vbaShell.Run """C:\Users\PNT31\AppData\Local\Programs\Python\Python311\python.exe""" & """C:\Users\PNT31\OneDrive - PNT31\Desktop\test.py"""
  Application.Wait (Now + TimeValue("0:00:10"))

End Sub​

import win32com.client as w32
dmisapp = w32.Dispatch('PCDLRN.Application')
dmispart = dmisapp.ActivePartProgram
dmiscommands = dmispart.Commands

print(dmisapp.CurrentFolder) # Location of .PRG


x = cmdcount = dmiscommands.Count
print(x)

y = dmispart.GetVariableValue ("CMM")
print(y)

input('Press any key to continue...')

dmispart.RefreshPart()​

python script.py