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