Function CurrentPath()    strPath = Wscript.ScriptFullName    Set objFSO = CreateObject("Scripting.FileSystemObject")&nb

DIM objShell  set objShell=wscript.createObject("wscript.shell")  iReturn=objShell.Run("cmd.exe /C 1.bat", 0, TRUE)点击vbs文件就可以调用1.b