Option Explicit
dim txt, frage, app, i
dim wshell 
dim v(20) 'maximal 20 Programme. Kann natürlich angepasst werden.
txt = "Zahl eintippen um das Programme zu starten." & vbcrlf &  vbcrlf 

'-----------------------------------------------------
' Hinter  " -> den Anwendungs-Nname eintippen der angezeigt werden soll
' nach V(i) die DateiPfad (sollten Leerzeichen vorkommen mit "" kapseln
'-----------------------------------------------------
i = 0
'Diese 2 Befehlzeilen sollten in einer produktiven Umgebeung auskommentiert werden da eine CMD-Shell mit Admin-Rechten gestartet wird
txt = txt &  i & " -> Command-Shell starten" & vbcrlf 
v(0) = "cmd /T:4F /k Title *** %USERNAME%-Rechte ***" ' /T:4F bedeutet Shell ist rot 

'Hier wird c:\Programme ersetzt mit der Umgebungsvariablen %programfiles%.
i=i+1
txt = txt &  i & " -> CDBurnerXP" & vbcrlf 
v(i) = "%programfiles%\CDBurnerXP\cdbxpp.exe"
'------------------------------------------------------
i=i+1
txt = txt &  i & " -> Firefox" & vbcrlf
v(i) = """%programfiles%\Mozilla Firefox\firefox.exe"""

i=i+1
txt = txt &  i & " -> Foxit ReaderFirefox" & vbcrlf 
v(i) = """%programfiles%\Foxit Software\Foxit Reader\Foxit Reader.exe"""

i=i+1
txt = txt &  i & " -> IExplorer" & vbcrlf
v(i) = """%programfiles%\Internet Explorer\iexplore.exe"""

i=i+1
txt = txt &  i & " -> iTunes" & vbcrlf
v(i) = """%programfiles%\iTunes\iTunes.exe"""

i=i+1
txt = txt &  i & " -> Skype" & vbcrlf 
v(i) = """%programfiles%\Skype\Phone\Skype.exe"""

i=i+1
txt = txt &  i & " -> Thunderbird" & vbcrlf
v(i) = """%programfiles%\Mozilla Thunderbird\thunderbird.exe"""

i=i+1
txt = txt &  i & " -> TotalCommander" & vbcrlf
v(i) = "%programfiles%\totalcmd\TOTALCMD.EXE"               	

i=i+1
txt = txt &  i & " -> TrueCrypt" & vbcrlf 
v(i) = "%programfiles%\TrueCrypt\TrueCrypt.exe"

i=i+1
txt = txt &  i & " -> Winamp" & vbcrlf
v(i) = "%programfiles%\Winamp\winamp.exe"

' i=i+1
' txt = txt &  i & " -> ---" & vbcrlf 
' v(i) = "" 


txt = txt & vbcrlf &  "Alles andere schließt die Anwendung."
frage = inputbox(txt , "Programm mit Adminstrator Rechten starten", "1")
if frage <> vbnullstring then
	app = v(frage)
	set wshell = CreateObject("Wscript.shell")
	wshell.run app
else
end if