Illustrator selecting layers by name then "make mask" command

Question

Hi guys,
I'm trying to get a vbscript to do this maybe easy task for some of you
I want to select 2 layers by name and then set the command :
NameA = "nomdeCalqueA"
NameB = "nomdeCalqueB"
Set appRef = CreateObject("Illustrator.Application")
        Set idoc = appRef.ActiveDocument
        appRef.activeDocument.Selection = Empty
    For Each targetDocument In appRef.Documents
        countOfLayers = targetDocument.Layers.Count
        For layerIndex = countOfLayers To 1 Step -1
            Set targetLayer = targetDocument.Layers(layerIndex)
                layerName = targetLayer.Name
                    If (InStr(layerName, NameA) = 1) Then
                    'then select my layer
                    End If
                    If (InStr(layerName, NameB) = 1) Then
                    'then select my layer
                    End If
Next
Next
        appRef.executeMenuCommand ("makeMask")
I'm a little lost...
Thank you for helping.
Nems.

Answer 1

iDoc.Layers("Name") in VB.NET ...  try it for VBS or possibly iDoc.Layers.Item("Name").
Again -- just remember you're masking elements, not layers.
Since you're more comfortable with VB maybe this could help, albeit it VB.NET. Translation should be pretty easy for you though. Note: I just pop in GUIDs to temporarily name the groups. You can use a different naming convention.
Dim aDoc As Document = app.ActiveDocument
aDoc.Selection = False
Dim grp1 = CreateGroup(aDoc, "Layer 4")   'whatever layer name you want
app.ExecuteMenuCommand("compoundPath")
Dim grp2 = CreateGroup(aDoc, "Layer 2")   'whatever layer name you want
app.ExecuteMenuCommand("makeMask")
Private Function CreateGroup(aDoc As Document, layerName As String)
    Dim tmpGuid = Guid.NewGuid.ToString
    Dim layer As Layer = aDoc.Layers(layerName)
    Dim grp = layer.GroupItems.Add : grp.Name = tmpGuid
    For i = layer.PageItems.Count To 1 Step -1
        Dim pi = layer.PageItems(i)
        If Not pi.Name = tmpGuid Then pi.Move(layer.PageItems(tmpGuid), AiElementPlacement.aiPlaceInside)
    Next
    layer.PageItems(tmpGuid).Selected = True
    Return layer.PageItems(tmpGuid)
End Function