Désolé de poser une question qui a sûrement dû l'être à plusieurs reprises, mais je n'arrive pas à m'en sortir avec ce que j'ai pu trouver.
Voici mon script :
Code : Tout sélectionner
Dim $Mino
$Mino = "C:\Program Files\Mozilla Thunderbird"
; 1. On vérifie si le dossier existe sur le poste client
If FileExists($Mino) Then
; 3. Il existe alors on stoppe le script.
MsgBox(0,"Installation Mino","Mino est déjà installé sur votre poste", 10) ;-> s'affiche 10s
Exit
Else
; 3' a. Il n'existe pas alors on connecte le lecteur réseau : * signifie qu'il prend la 1ère lettre disponible
MsgBox(0,"Installation Mino","Mino va être installé sur votre poste, merci de patienter environ 10 minutes jusqu'au message de fin.", 100) ;-> s'affiche 100s
$lecteur = DriveMapAdd("*","\\Serveur\InstMino")
; 3' b. On recopie les programmes d'installation (depuis le serveur) sur le poste, et on les lance.
DirCreate("C:\mino_temp")
FileCopy($lecteur & "\install_mino.msi", "C:\mino_temp\")
FileCopy($lecteur & "\Thunderbird Setup 2.0.0.9.exe", "C:\mino_temp\")
FileCopy($lecteur & "\Firefox_2.0.0.9.exe", "C:\mino_temp\")
FileCopy($lecteur & "\jre-6u2-windows-i586-p-s.exe", "C:\mino_temp\")
RunAsSet("Administrateur","Domaine","MotDePasse",1)
RunWait(@COMSPEC & " /c Start C:\mino_temp\install_mino.msi", @SW_HIDE)
; 3' c. Une fois l'installation terminée, on supprime le dossier mino_temp et on déconnecte le lecteur réseau
DirRemove("C:\mino_temp", 1)
DriveMapDel($lecteur)
MsgBox(0,"Installation Mino","Mino vient d'être installé sur votre poste.", 100) ;-> s'affiche 100s
EndIf
; 4. Arrêt du script
ExitSi vous pouvez m'aider...
Merci par avance.
Patrice
)
