The alignment implementation method in VBScript output _vbs

Operation Effect:

Code (Foutput.vbs):

Copy Code code as follows:

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) & Chr (9) & Chr (9) & Chr (9)
Case StrLen < 16
Foutput = Chr (9) & Chr (9) & 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
' More than 40 of the top 32
For K = 1 to StrLen-32
Foutput = foutput & Chr (8)
Next
Foutput = Foutput & "..." & Chr (9)
End Select
End Function

Original: https://www.enun.net/?p=2381