Vizrt On Air Get Info

Attach this script code on a container with a Text plugin

dim content as String

sub OnInitParameters()
    RegisterPushButton("view", "View report", 1)
    RegisterPushButton("clean", "Clear report", 2)
end sub

sub OnExecAction(buttonId As Integer)
    if buttonId = 1 then
        this.Geometry.Text = ""
        Query("ONAIR GET_INFO", "ONAIR Infos")
        Query("VERSION", "")
        Query("KEY GET SYSID", "Dongle ID")
        Query("KEY GET INFO", "License Details")
        Query("ONAIR GET_ONAIR", "ONAIR Get")
        Query("MAIN_SCENE*BACKGROUND*ALPHA GET", "Alpha Key Signal")
    elseif buttonId = 2 then
        this.geometry.Text = ""
    end if
end sub

sub Query(cmd as string, arg as string)
    If arg.Length > 0 Then
        content = arg & " : " & System.SendCommand(cmd)
    Else
        content = System.SendCommand(cmd)
    End If
    content = content & chr(10) & chr(10)
    this.Geometry.Text.Append(content)
end sub