[Iska]

но где здесь запуск моего батника(1.bat) »

Ну, до кучи:

Код:

Option Explicit

Dim objFSO
Dim objWshShell


Set objFSO      = WScript.CreateObject("Scripting.FileSystemObject")
Set objWshShell = WScript.CreateObject("WScript.Shell")

objWshShell.Run objWshShell.ExpandEnvironmentStrings("%comspec% /c """) & objFSO.BuildPath(objFSO.GetParentFolderName(WScript.ScriptFullName), "1.cmd") & """", 1, False

Set objWshShell = Nothing
Set objFSO      = Nothing

WScript.Quit 0