Help with a report/how to repeat a value in same report

Question

Hi,
I am creating a report where I filter how many members I had who joined in the last month, in the last 2 months, 3 months etc, compared to the total members in the last two years.
In the chart report, I would like a bar showing the members count in the last month, and next to it in another color, the one for the last 2 years. Than the last 2 months compared to the 2 years, 3 months compared to the 2 years etc..
So I need somehow to repeat the 2 years measure in same report.
The way I created the report is:
member_id(applied count function on it), joined_date (where i apply a filter from /to), 1 month(used for the label only)
Result= 100
I than combine with similar request
member_id(applied count function on it), joined_date (where i apply a filter from /to), 2 months (used for the label only)
results=238
combine again
member_id(applied count function on it), joined_date (where i apply a filter from /to), 2 Years (used for the label only)
results=1700
In my chart report, in orizzontal i put my period ranges and in verticol the count on member_id.
In the chart I would like the     Member Activity Rate or % of dormant customers, meaning on bar showing 100 in blue and next to it 1700 in greed for 1Month label, one bar showing 238 and next to it 1700 in green , and so on.
How can I achieve this?
Regards
G.

Answer 1

You can do similar in VBScript by searching for the local group that has the well known SID. In VBScript, it is easier to work with the hex form of the SID rather than the decimal. For example:
Option
Explicit
Dim strComputer, objComputer, objGroup, strHexSID, objMember
strComputer = "MyComputer"
' Bind to the local computer object.
Set objComputer = GetObject("WinNT://" & strComputer)
' Filter on group objects.
objComputer.Filter = Array("group")
' Enumerate all local Groups on the computer.
For Each objGroup
In objComputer
    ' Retrieve SID and convert to hex string.
    strHexSID = OctetToHexStr(objGroup.objectSID)
    ' Check for well known hex SID for local Administrators group.
    If (strHexSID =
"01020000000000052000000020020000") Then
        ' Enumerate members of local Administrators group.
        For
Each objMember In objGroup.Members
            Wscript.Echo objMember.ADsPath
        Next
        Exit
For
    End
If
Next
Function OctetToHexStr(ByVal arrbytOctet)
    ' Function to convert OctetString (Byte Array) to a hex string.
    Dim k
    OctetToHexStr = ""
    For k = 1 To Lenb(arrbytOctet)
        OctetToHexStr = OctetToHexStr _
            & Right("0" & Hex(Ascb(Midb(arrbytOctet, k, 1))), 2)
    Next
End Function
Richard Mueller - MVP Directory Services