I have scripted the Make_Columns function to output a string that has a specified column separator and CrLf at the end of each line to the console in a tidy column format.

The function has 3 parameters:

<b>StringTEXT</b>     contains the text to be formatted in columns.

<b>deMark</b>         contains the separator, like "<b>|</b>". It can be a string of characters.

<b>leadTrailSpace</b> contains the spaces that you wish to add before and after the <b>deMark</b>, like "  ".
NOTE: Leading and trailing spaces are eliminated before applying leadTrailSpace.

When I typed cscript //nologo c:\util\test7.vbs, the console displayed:

CN=Jerold Schulman,CN=Users,DC=JSIINC,DC=COM    |  Jerry     |  Jerry@JSIINC.COM
CN=Jennifer Schulman,CN=Users,DC=JSIINC,DC=COM  |  Jennifer  |  Jennifer@JSIINC.COM
CN=Jane Doe,CN=Users,DC=JSIINC,DC=COM           |  Jane.Doe  |  Jane.Doe@JSIINC.COM
My test7.vbs script contained:
Dim txt
On Error Resume Next
Set objUser = GetObject("LDAP://CN=Jerold Schulman,CN=Users,DC=JSIINC,DC=COM")
txt=objUser.distinguishedName & "|" & objUser.sAMAccountName & "|" & objUser.userPrincipalName & vbCrlF
Set objUser = GetObject("LDAP://CN=Jennifer Schulman,CN=Users,DC=JSIINC,DC=COM")
txt=txt & objUser.distinguishedName & "|" & objUser.sAMAccountName & "|" & objUser.userPrincipalName & vbCrlF
Set objUser = GetObject("LDAP://CN=Jane Doe,CN=Users,DC=JSIINC,DC=COM")
txt=txt & objUser.distinguishedName & "|" & objUser.sAMAccountName & "|" & objUser.userPrincipalName & vbCrlF
Wscript.Echo <b>Make_Columns(txt, "|", "  ")</b>

Function Make_Columns(stringTEXT, deMark, leadTrailSpace)
Dim arrayCOL, elementCOL, strElement, elementROW
Dim arrayLEN, elementLEN, arrayROW, stringROW
Dim stringProportional, proportionalColumns, number
Make_Columns = ""
proportionalColumns = ""
'Set each column widths to widest value.
    arrayROW = Split(stringTEXT,vbCrLf)
    For elementROW = 0 To UBound(arrayROW)
        stringROW = arrayROW(elementROW)
        arrayCOL = Split(stringROW,deMark)
        If elementROW = 0 Then
            ReDim arrayLEN(UBound(arrayCOL))
            For elementLEN = 0 To UBound(arrayLEN)
                arrayLEN(elementLEN) = 0
            Next
        End If
        For elementCOL = 0 To UBound(arrayCOL)
            strElement = Trim(arrayCOL(elementCOL))
            If Len(strElement) > arrayLEN(elementCOL) Then
                arrayLEN(elementCOL) = Len(strElement)
            End If
        Next
    Next
'Execute spacing.
    For elementROW = 0 To UBound(arrayROW)
        stringROW = arrayROW(elementROW)
        arrayCOL = Split(stringROW,"|")
        For elementCOL = 0 To UBound(arrayCOL)
            strElement = Trim(arrayCOL(elementCOL))
            number = arrayLEN(elementCOL) - Len(strElement)    
            stringProportional = Space(number)
            If elementCOL = 0 Then
                proportionalColumns = proportionalColumns & strElement & stringProportional
            Else
                proportionalColumns = proportionalColumns & leadTrailSpace & deMark & leadTrailSpace & strElement & stringProportional
            End If
        Next
        proportionalColumns = proportionalColumns & vbCrLf
    Next
    Make_Columns = proportionalColumns
End Function