Installationspfad einer Anwendung suchen auf unbekanntem PC

>for /f "tokens=2 delims==% " %i in ('ftype^|find /i "nero.exe"') do @echo lw:[%~di] pfad:[%~pi]  

:: ----snipp getNeroInfo.bat
@echo off & setlocal
for /f "tokens=3" %%a in ('reg query "HKCU\Software\AHead" /s ^|find /i "RegisteredTypesNeroVersion"') do Set "NeroVers=%%a"  
for /f "tokens=3" %%a in ('reg query "HKCU\Software\AHead" /s ^|find /i "RegisteredTypesNeroPath"') do Set "NeroPath=%%a"  
for /f %%i in ("%neropath%") do echo Nero-Version [%NeroVers%], Installiert auf Drive:[%%~di] Pfad: [%%~pi]  

>getNeroInfo.bat
Nero-Version [6.6.0.16], Installiert auf Drive:[C:] Pfad: [\PROGRA~1\Ahead\Nero\]

>>for /f "tokens=4" %a in ('c:\PROGRA~1\Ahead\Nero\nerocmd.exe --version^|find "API"') do @echo Nero-API-Version: %a  
Nero-API-Version: 6.6.0.16

"0" = "Unknown type of drive"  
"1" = "Removable drive"  
"2" = "Fixed drive"  
"3" = "Network drive"  
"4" = "CD-ROM drive"  
"5" = "RAM Disk"  

:: --- getDrivesIWant2C.bat
@echo off & setlocal
set vbsSnippet=%temp%\%random%.vbs
 >%vbsSnippet% echo Set FSO = CreateObject("Scripting.FileSystemObject")   
>>%vbsSnippet% echo Set Drives = FSO.Drives
>>%vbsSnippet% echo set Args = wscript.arguments
>>%vbsSnippet% echo alldrives=""  
>>%vbsSnippet% echo wanteddrvs="2"  
>>%vbsSnippet% echo for i=0 to Args.count-1
>>%vbsSnippet% echo   wanteddrvs= wanteddrvs + "," + args(i)  
>>%vbsSnippet% echo next
>>%vbsSnippet% echo For Each d in Drives
>>%vbsSnippet% echo    if instr(1,wanteddrvs,d.Drivetype) then alldrives= alldrives +"," + d.Driveletter  
>>%vbsSnippet% echo Next>>%vbsSnippet%
>>%vbsSnippet% echo wscript.echo mid(alldrives,2)
>>%vbsSnippet% echo Set Drives = nothing
>>%vbsSnippet% echo Set FileSystemObject = nothing
>>%vbsSnippet% echo wscript.quit
REM Ein bisschen Demo:
For /f %%i in ('cscript //nologo %vbsSnippet%') do echo [DEBUG Lw-Liste nur Fixed ] %%i  
For /f %%i in ('cscript //nologo %vbsSnippet% 1 4 ') do echo [DEBUG Lw-Liste Fixed + Removable+ CDRom] %%i  
REM Ende von: Ein bisschen Demo:
For /f %%i in ('cscript //nologo %vbsSnippet%') do set "lwliste=%%i"  
echo [Lw-Liste Fixed] %lwliste%
echo [Der For-Befehl nur Fixed-Lw:.. for %%%%a in (%%lwliste%%) ..-^>.. for %%%%a in (%lwliste%)
del %vbsSnippet%

>getdrivesIWant2C.bat
[DEBUG Lw-Liste nur Fixed ] C,D
[DEBUG Lw-Liste Fixed + Removable+ CDRom] A,C,D,F,R
[Lw-Liste Fixed] C,D
[Der For-Befehl nur Fixed-Lw:.. for %%a in (%lwliste%) ..->.. for %%a in (C,D)

' GetDrives.vbs  
Set FSO = CreateObject("Scripting.FileSystemObject") ' Ein FileSystemObject brauche ich...  
Set Drives = FSO.Drives	         ' denn das liefert mir die Drive-Collection  
set Args = wscript.arguments	         ' Falls der Benutzer Argumente angegeben hat, nenn ich die "Args"  
alldrives=""                               ' Alldrives will ich später zurückgeben..einen String der Form "C,D,R"  
wanteddrvs="2"			 ' immer will ich die Laufwerke Type "2"="Fixed Drives"  
for i=0 to Args.count-1		 ' Falls Parameter angegeben, dann in einen String schreiben ("2,4,5")  
  wanteddrvs= wanteddrvs + "," + args(i)    ' "wanteddrvs", weil es der User ja so wants...  
next  
For Each d in Drives		 ' Für jeden Drive d, den der Rechner kennt....  
   if instr(1,wanteddrvs,d.Drivetype) > 0 then alldrives= alldrives +"," & d.Driveletter  
   ' wenn der Type ("0" oder "1" oder..."5") in dem Text "wanteddrvs" (= "2.4.5") ist....  
   ' dann ein Komma und den zugehörigen DriveLetter zu "alldrives" dazu...  
Next
wscript.echo mid(alldrives,2)  ' In alldrives steht MINIMAL ",C" ; NORMAL "C,D,E" oder sowas.   
                               ' Erstes zeichen=Komma hauen wir wech.  
Set Drives = nothing	       ' ja, ja ..mein Ordnungsfimmel...diese und die folgenden Zeilen sind nicht Pflicht.  
Set FileSystemObject = nothing ' selbst erschaffene Objects auch selbst zerstören...welcher Bill sollte das für uns tun?  
wscript.quit                   ' und damit es auch jedes M$ mitbekommt, dass hier Ende ist, schreiben wir das.