运行效果：

代码（fOutput.vbs）：

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootCIMV2") 
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

原文：https://www.enun.net/?p=2381

vbs 获取当前目录的实现代码
CMD当前路径test=createobject("Scripting.FileSystemObject").GetFolder(".").PathWscript.echotest当前VBS路径test=createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentF

vbs 获取当前目录文件数量的代码(不包括子文件夹中的)
i=0setfso=CreateObject("Scripting.FileSystemObject")setfs=fso.getfolder(".").filesforeachfinfsi=i+1nextmsgbox"文件总数:"&i

VBS获取当前目录下所有文件夹名字的代码
VBS获取当前目录下所有文件夹名字，不包括子文件夹。我要给每个文件夹进行操作，所以最好用循环输出。测试的时候要保证当前目录下有文件夹才可