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 "=== Form Modules Status ==="
WScript.Echo ""

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

Dim comp
For Each comp In vbProj.VBComponents
    If Left(comp.Name, 5) = "Form_" Then
        WScript.Echo comp.Name & " - Type: " & comp.Type
    End If
Next

WScript.Echo ""
WScript.Echo "Type 1 = Standard Module (BAD for forms)"
WScript.Echo "Type 100 = Document/Form Module (GOOD)"

accessApp.CloseCurrentDatabase
accessApp.Quit
Set accessApp = Nothing

WScript.Echo ""
WScript.Echo "Done!"