百度抽风，老是把吃掉行首空格，导致代码没有缩进。可以用以下方法来解决：
1、在百度贴吧切换到经典版
2、用以下脚本把代码中的制表符和空格替换成unicode编码格式

'cscript //nologo C:testtest.vbs C:testtest.bat 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.OpenTextFile(WScript.Arguments(0),1,True) 
strAll = objFile.ReadAll() 

strTab = Replace (strAll,chr(9)," ") 
strBlank = Replace (strTab," ","&#" & "160;") 
Call SetClipboardText(strBlank) 

Sub SetClipboardText(strText) 
Set objIE = CreateObject("InternetExplorer.Application") 
objIE.Navigate("about:blank") 
objIE.Document.ParentWindow.ClipboardData.SetData "text", strText 
objIE.Quit 
End Sub 

使用方法: 'cscript //nologo C:testtest.vbs C:testtest.bat

运行bat时隐藏cmd窗口的方法(bat隐藏窗口 隐藏运行bat文件)
这里积木网简单的整理下常用方法，方便大家使用。都是通过vbscript的代码。运行bat时隐藏cmd窗口的方法可以编辑一个vbs脚本，在其中以隐藏窗口运行批

读取Access数据库的vbscript代码打包下载
效果如图所示:核心代码:OptionExplicitDimarrTables(),i,idxTables,intValidArgsDimblnContent,blnFieldNamesDimobjConn,objFSO,objRS,objSchemaDimstrConnect,strHeader,strOutputDimstrFile,strResult,s

网络接口利用率监控VBS脚本代码（Windows）
'程序名称:btlwchk_netinterface.vbs'程序用途:监测windows主机网络接口利用率'创建日期:2011-09-1'作者信息:zhangkai'运行环境:vbs'处理参数MonSubject="NetInterface"SetArgs=