On Error Resume Next

Dim accessApp
Set accessApp = CreateObject("Access.Application")

accessApp.OpenCurrentDatabase "C:\Users\alexi\Documents\projects\timetrack-pro\db\TimeTrackPro.accdb"

WScript.Echo "=== All VBA Components ==="

Dim vbProj
Set vbProj = accessApp.VBE.VBProjects(1)

Dim comp
For Each comp In vbProj.VBComponents
    WScript.Echo comp.Name & " - Type: " & comp.Type
Next

accessApp.CloseCurrentDatabase
accessApp.Quit
Set accessApp = Nothing