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:

StringTEXT     contains the text to be formatted in columns.                              deMark         contains the separator, like "|". It can be a string of characters.                              leadTrailSpace contains the spaces that you wish to add before and after the deMark, 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 Make_Columns(txt, "|", "  ")                              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