代码（fOutput.vbs）：

复制代码 代码如下:
strComputer = .
Set objWMIService = GetObject(winmgmts:\\ strComputer oot\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
"超过40的只取前32位
For K = 1 To strLen - 32
fOutput = fOutput chr(8)
Next
fOutput = fOutput ... chr(9)
End Select
End Function