Mettre un fichier bat en vbs
totor51
-
totor51 -
totor51 -
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\newprof.exe -p "\\serveur\outlook\profil.prf" && "C:\Program Files\Microsoft Office\Office\OUTLOOK.EXE")
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\newprof.exe -p "\\serveur\outlook\profil.prf" && "C:\Program Files\Microsoft Office\Office\OUTLOOK.EXE")
A voir également:
- Mettre un fichier bat en vbs
- Creer un fichier .bat - Guide
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier rar - Guide
2 réponses
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
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