A R R R Associates
23 lines
795 B
Plaintext
23 lines
795 B
Plaintext
Option Explicit
|
|
|
|
Dim shell, fso, root, pythonw, dashboard, command
|
|
Set shell = CreateObject("WScript.Shell")
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
|
|
root = fso.GetParentFolderName(WScript.ScriptFullName)
|
|
pythonw = fso.BuildPath(root, ".venv\Scripts\pythonw.exe")
|
|
dashboard = fso.BuildPath(root, "ERPAgentDashboard.pyw")
|
|
|
|
If Not fso.FileExists(pythonw) Then
|
|
MsgBox "ERP Local Agent Python environment was not found:" & vbCrLf & pythonw, vbCritical, "ERP Local Agent"
|
|
WScript.Quit 1
|
|
End If
|
|
|
|
If Not fso.FileExists(dashboard) Then
|
|
MsgBox "ERP Local Agent dashboard launcher was not found:" & vbCrLf & dashboard, vbCritical, "ERP Local Agent"
|
|
WScript.Quit 1
|
|
End If
|
|
|
|
command = Chr(34) & pythonw & Chr(34) & " " & Chr(34) & dashboard & Chr(34)
|
|
shell.Run command, 0, False
|