FunctionCurrentPath()strPath=Wscript.ScriptFullNameSetobjFSO=CreateObject("Scripting.FileSystemObject")SetobjFile=objFSO.GetFile(strPath)CurrentPath=objFSO.GetParentFolderName(objFile)EndFunctionFunctionisConsole()SetobjArgs=Wscript.Arguments'WScript.EchoobjArgs.Count'WScript.EchoobjArgs(0)isConsole

DIMobjShellsetobjShell=wscript.createObject("wscript.shell")iReturn=objShell.Run("cmd.exe/C1.bat",0,TRUE)点击vbs文件就可以调用1.bat文件了，隐藏窗口只需要设置Run的第二个参数为0，显示设置为1