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

' Скрипт сам определяет, в какой папке он лежит
strPath = objFSO.GetParentFolderName(WScript.ScriptFullName)

' Запускает WATCHER.bat из этой же папки в скрытом режиме (0)
WshShell.Run chr(34) & strPath & "\WATCHER.bat" & chr(34), 0