[Iska]

Вы не указали:

Укажите местоположение файла проекта. »

Жду.

Ссылка на скрипт и сам скрипт срабатывает (видно по мелькающему окну консоли) »

Не должно быть окна консоли.

Попробуйте такой вариант для отладки:

читать дальше »

Код:

Option Explicit

Const strFileName = "OneVolumeViewer.exe"

Dim objFolder
Dim strPath


With WScript.CreateObject("Scripting.FileSystemObject")
	For Each objFolder In .GetDrive(.GetDriveName(WScript.ScriptFullName)).RootFolder.SubFolders
		strPath = .BuildPath(objFolder.Path, strFileName)
		
		MsgBox strPath
		
		If .FileExists(strPath) Then
			MsgBox strPath, vbOKOnly + vbInformation, "Found!"
			
			WScript.CreateObject("WScript.Shell").Run strPath, 1, True
			
			Exit For
		End If
	Next
End With

MsgBox "That All!"

WScript.Quit 0

Будет перечислять все пути, в которых будет искать искомый файл.