How to achieve alignment in output by VBScript

This article mainly introduces how to achieve VBScript output alignment, has a certain reference value, interested friends can refer to, I hope you can learn a lot after reading this article, the following let Xiaobian take you to understand.

Running effect:

Code (fOutput.vbs):

StrComputer = "."

Set objWMIService = GetObject ("winmgmts:\\" & strComputer & "\ root\ CIMV2")

Set colItems = objWMIService.ExecQuery (_

"SELECT * FROM Win32_NetworkAdapterConfiguration", 48)

For Each objItem in colItems

Wscript.Echo objItem.Caption & fOutput (objItem.Caption) & "textinfo"

Next

Function fOutput (strName)

StrLen = Len (strName)

Select Case True

Case strLen < 8

FOutput = chr (9) & chr (9)

Case strLen < 16

FOutput = chr (9) & chr (9)

Case strLen < 24

FOutput = chr (9) & chr (9) & chr (9)

Case strLen < 32

FOutput = chr (9) & chr (9)

Case strLen < 40

FOutput = chr (9)

Case Else

For those over 40, only the first 32 bits are taken.

For K = 1 To strLen-32

FOutput = fOutput & chr (8)

Next

FOutput = fOutput & "..." & chr (9)

End Select

End Function

Thank you for reading this article carefully. I hope the article "how to align VBScript in output" shared by the editor will be helpful to everyone. At the same time, I also hope you will support us and pay attention to the industry information channel. More related knowledge is waiting for you to learn!