mettre un fichier bat en vbs Fermé

Question

Bonjour,

est ce que quelqu'un pourrait m'aider a mettre se fichier bat en vbs comme je ne connais rien en VBS :P

IF EXIST "C:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE" ( "C:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE" /importprf \serveur\outlook\profil.prf)
IF NOT EXIST "C:\Program~1\Micros~2\Office12\OUTLOOK.EXE" GOTO 2

:2
IF EXIST "C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE" ("C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE"  /importprf \serveur\outlook\profil.prf)
IF NOT EXIST "C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE" GOTO 3

:3
IF EXIST "C:\Program Files\Microsoft Office\Office\OUTLOOK.EXE" (\serveur\outlook
ewprof.exe -p "\serveur\outlook\profil.prf" && "C:\Program Files\Microsoft Office\Office\OUTLOOK.EXE")

paristheodore · Answer

Je te propose le code suivant. Je n'ai pas pu le tester complétement:
Option explicit
'
Dim     fso, WshShell
Dim     file_exec, watt_exc

Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")

File_exec	=	"C:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE"
if	fso.FileExists(File_exec)	Then
	Set watt_exc = WshShell.Exec(File_exec & "  /importprf \serveur\outlook\profil.prf")
	
Else	
	File_exec	=	"C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE"
	if	fso.FileExists(File_exec)	Then
		Set watt_exc = WshShell.Exec(File_exec & "  /importprf \serveur\outlook\profil.prf")

	Else	
		File_exec	=	"C:\Program Files\Microsoft Office\Office\OUTLOOK.EXE"
		if	fso.FileExists(File_exec)	Then
			Set watt_exc = WshShell.Exec(File_exec)
		Else
			msgbox "Application inconnue"
		End If
	End If
End If	

Wscript.quit

totor51 · Answer

hum il me dit qu'il ya des erreurs de langage dans le script

Mettre un fichier bat en vbs

2 réponses

Discussions similaires

Newsletters