There is a ais.vbs script under Mentor install directory, you can modify one to fit your need.
a ready script modified from ais.vbs is here:
Dim pcbDoc, app
Dim fso, f1
Dim outputFileName, outputString
Dim pcbComps, pcbComp, i, designNumber
Public Function GetLicensedDoc(appObj)
On Error Resume next
Dim key,licenseServer,licenseToken,docObj
Set GetLicensedDoc = Nothing
Set docObj = appObj.ActiveDocument
If (Err) Then
Call appObj.Gui.StatusBarText("No active document: " + _
Err.Description,epcbStatusFieldError)
Exit Function
End If
key = docObj.Validate(0)
Set licenseServer = CreateObject("MGCPCBAutomationLicensing.Application")
licenseToken = licenseServer.GetToken(key)
Set licenseServer = Nothing
Err.Clear
docObj.Validate(licenseToken)
If (Err) Then
Call appObj.Gui.StatusBarText("No active document license: " + _
Err.Description,epcbStatusFieldError)
Exit Function
End If
Set GetLicensedDoc = docObj
End Function
On Error Resume Next
Set app = GetObject(, "MGCPCB.Application")
If Err Then
Set app = GetObject(, "MGCPCB.FablinkXEApplication")
Err.Clear
End If
Call Scripting.AddTypeLibrary("MGCPCB.Application")
' create a file system object for data output
Set fso = CreateObject("Scripting.FileSystemObject")
' dump the component information
app.LockServer
Call app.Gui.StatusBarText("output in process",epcbStatusField1)
Call app.Gui.CursorBusy(True)
Set pcbDoc = GetLicensedDoc(app)
If (Not pcbDoc Is Nothing) Then
designNumber = pcbDoc.Name
numberOfLayers = pcbDoc.LayerCount
outputFileName = pcbDoc.Path + "report.txt"
Set f1 = fso.CreateTextFile(outputFileName, True)
f1.WriteLine("ReferenceDesignator CellName PartNumber")
Set pcbComp = pcbDoc
Set pcbComps = pcbDoc.Components
pcbComps.Sort
For Each pcbComp In pcbComps
If (pcbComp.Placed = True) Then
outputString = pcbComp.Name +" "+pcbComp.Cell+" "+ pcbComp.partnumber
f1.WriteLine(outputString)
End If
Next
app.Gui.Display "The output file is " & outputFileName
End If
Call app.Gui.CursorBusy(False)
app.UnlockServer
f1.Close()
Set fso = Nothing
Set pcbDoc = Nothing
Set app = Nothing
