Web Listing 2: DisplayFormattedProperty.vbs

Function DisplayFormattedProperty (strText, varValue1, varValue2)

Dim intIndice

    On Error Resume Next

    If Not IsNull (varValue1) Then
       If Not IsNull (varValue2) Then
          If IsArray (varValue1) Then
             For intIndice=0 To UBound(varValue1)
                 If intIndice = 0 Then
                    WScript.Echo strText & ": " & string (40 - Len(strText), ".") & _
                                 " " & varValue1 (intIndice) & _
                                 " " & varValue2 (intIndice)
                 Else
                    WScript.Echo Space (42) & _
                                 " " & varValue1 (intIndice) & _
                                 " " & varValue2 (intIndice)
                 End if
             Next
         Else
             If Len (varValue1) Then
                WScript.Echo strText & ": " & string (40 - Len(strText), ".") & _
                             " " & varValue1 & _
                             " " & varValue2
             End If
          End IF
       Else
          If IsArray (varValue1) Then
             For intIndice=0 To UBound(varValue1)
                 If intIndice = 0 Then
                    WScript.Echo strText & ": " & string (40 - Len(strText), ".") & _
                                 " " & varValue1 (intIndice)
                 Else
                    WScript.Echo Space (42) & _
                                 " " & varValue1 (intIndice)
                 End if
             Next
          Else
             If Len (varValue1) Then
                WScript.Echo strText & ": " & string (40 - Len(strText), ".") & _
                             " " & varValue1
             End If
          End IF
       End IF
    End IF

End Function