VBS获取当前目录下所有文件夹名字，不包括子文件夹。我要给每个文件夹进行操作，所以最好用循环输出。

测试的时候要保证当前目录下有文件夹才可以，否则输出为空。

Set ws=WScript.CreateObject("wscript.shell")
w=ws.CurrentDirectory
Set fso=WScript.CreateObject("scripting.filesystemobject")
Set fs=fso.GetFolder(w)
Set f=fs.SubFolders
For Each uu In f
t=t & uu.Path & vbcrlf
Next
MsgBox t

效果图：

VBS读取注册表的两种方法
第一种通过wshshell对象的regreadRegValue=CreateObject("Wscript.Shell").RegRead("XXXX_XXXXXXXX_XXXXXXXXXX")Msgbox(RegValue)更多的操作可以参考这篇文章http://www.gimoo.net/article/

查看系统C盘剩余空间的VBS脚本
'说明:通过VBS脚本查看系统C盘剩下的空间'Creator:Eric1991'Date：2013-11-4SetobjWMIService=GetObject("winmgmts:")SetobjLogicalDisk=objWMIService.Get("Win32_LogicalDisk.DeviceID='c:'")Wsc

利用VBS实现显示系统服务列表
'执行方法：直接双击vbs文件或者通过cmd.exe下cscript.exe"指定脚本的路径"'利用Vbs脚本实现显示系统服务里表'Creator：Eric1991Date:2013-11-10:25strComputer="."SetobjWMI