option explicit
' macrium-columns
' 
' This is a script for Directory Opus.
' See http://www.gpsoft.com.au/DScripts/redirect.asp?page=scripts for development information.

' Called by Directory Opus to initialize the script
Function OnInit(initData)
    initData.name = "Macrium"
    initData.version = "1.0"
    initData.default_enable = true
    initData.min_version = "12.0"
    Dim props, prop, col
    Set props = DOpus.FSUtil.GetShellPropertyList("Macrium.*", "r")
    for each prop in props
        Set col = initData.AddColumn
        col.name = prop.raw_name
        col.method = "OnMacriumColumn"
        col.label = prop.display_name
        col.justify = "left"
        col.autogroup = true
        col.userdata = prop.pkey

    next    
End Function

Function OnMacriumColumn(scriptColData)
    scriptColData.value = scriptColData.item.shellprop(scriptColData.userdata)
End Function