[Iska]

Ищем в каталоге первого уровня от корневого исполняемый файл с именем OneVolumeViewer.exe »

Ясно. Пробуйте:

Код:

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)
		
		If .FileExists(strPath) Then
			WScript.CreateObject("WScript.Shell").Run strPath, 1, False
			
			Exit For
		End If
	Next
End With

WScript.Quit 0

Скрипт можно класть в любое место диска.