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