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
   '超過(guò)40的只取前32位
   For K = 1 To strLen - 32
    fOutput = fOutput chr(8)
   Next
   fOutput = fOutput " ..." chr(9)
  End Select
End Function