Virtual Layer

The Virtual Layer object can be used to manipulate AltirisVirtual Software Layers.
The object structure is somewhat more complex due to the construction of the Virtual Layers.
The ‘Base’ object is ‘ScenseSVS’. The ScenseSVS object provides general administrative functions.

ScenseSVS

Function Import(FileName As String, Result As Long, Optional Overwrite As Boolean = False, Optional LocalCopy As Boolean = False)

Function StartCapture(LayerNameOrGUID As String, PathToExe As String, Parameters As String)

Function TranslateError(errorCode As Long)

Version

The Versions collection of the ScenseSVS object consists of one or more Version objects.

Usage:

Sub Scense_Main()
    Dim v
    For Each v In ScenseSVS.Versions
        WriteScenseLog v.Feature & ": " & v.Version
    Next
End Sub

Layer

The Layers collection of the ScenseSVS object consists of Layer objects.
The Layer objects can be used to manage a virtual layer.

Function Activate(Optional RunStartUpFolder As Boolean = False)

Function Deactivate(Optional Force As Boolean = False)

Function Export(FilePath As String, Optional Overwrite As Boolean = False)

Function Rename(NewName As String)

Function RemoveFTAs()

Function RemoveShortcuts()

Function Reset(Optional Force As Boolean = False)

Function ResetPriority(PriorityType As PriorityType)

Function SetAutoActivate(Activate As Boolean)

Function SetAutoDeactivate(AutoDeactivate As Boolean)

Function SetProcessContext(RunInLayer As Boolean)

Function SetPriority(PriorityType As PriorityType, ByVal Level As String)

Usage:

Sub Scense_Main()
    Dim l

    For Each l In ScenseSVS.Layers
        'Check if the layer is active
        If Not l.Active Then
            'It Is Not active, so we activate it
            If l.Activate Then
                WriteScenseLog l.Name & " was activated"
            Else
                WriteScenseLog l.Name & " could not be activated"
            End If
        Else
            'It Is active, so we Do Nothing
            WriteScenseLog l.Name & " was already active"
        End If
    Next
End Sub

Excludes

The Excludes collection of the Layer object consists of Exclude objects.
Excludes determine which files and locations should not be stored within the virtual layer.

Function Add(Path As String, ExcludeType As ExcludeType)

Sub Remove(IndexKey As Variant)

Exclude

The Excludes collection of the Layer object consists of Exclude objects.

Usage:

Sub Scense_Main()
    Dim e

    WriteScenseLog "Excludes for " & ScenseSVS.Layers(1).Name
    
    'Enumerate All excludes for the 1st layer
    For Each e In ScenseSVS.Layers(1).Excludes
        WriteScenseLog e.Path
    Next
End Sub

Peer

The Peers collection of the Layer object consists of 2 Peer objects.
The 2 peers are; the Read-Only peer and the Read-Write peer.

Usage:

Sub Scense_Main()
    Dim p

    WriteScenseLog "Peers for " & ScenseSVS.Layers(1).Name
    
    'Enumerate All peers for the 1st layer
    For Each p In ScenseSVS.Layers(1).Peers
        WriteScenseLog p.ID & ", " & p.FileRedirect
    Next
End Sub