Script VBS pour désinstallation puis installation de programme.

Version imprimable

08/12/2008, 11h09
sami117

Script VBS pour désinstallation puis installation de programme.

Bonjour

Etant débutant en VBS , je m'adresse à vos compétences en espèrant que vous puissiez m'aider...

Je désire créer une petit script en VBS qui , au lancement (comme un .bat ) va pointer sur un programme dans le disque C, le supprimer et une fois la desinstallation est TERMINEE , pointer sur un autre programme et l'executer.
Comme j'aurais remplacer le premier par le deuxiemme par un simple clique sur exécuter le programme VBS.

Auriez vous une piste , une proposition svp.

Merci pour avoir jeter un coup d'oeil.

Amicalement

Si t'as un .exe de désinstall et un autre d'install, la démarche à suivre est :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
début
check du fichier de log success du script
si il n existe pas
  check de la version du logiciel sur le poste (clé de registre)
  si ancienne version
    désinstallation
    si désinstall OK
      install
      si OK
        log success
      finsi
    finsi
  sinon
    log success
  finsi
fin

BONJOUR

Merci pour ta réponse ...En fait je viens de trouver un script sur le Net qui permet de installer un programme et un autres qui permet la désinstallation mais je ne sais pas ou mettre le chemin de mon programme à desinstaller ni comment mixer les deux programme installation/désinstallation..
Merci de m'éclairer un peu plus là dessus.

Voici le programme de désinstallation que je viens de trouver sur google :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Option Explicit
 
Dim msiObject, msiProduct, strProdList, strProdInfo, msiProdVersion,appName, CommandShell, cmdline
    Const msiInstallStateDefault = 5 
 
appName = "Sym"
 
strProdList = ""
Set msiObject = Wscript.CreateObject("WindowsInstaller.Installer")
 
For Each msiProduct In msiObject.Products
    msiProdVersion = CLng(msiObject.ProductInfo(msiProduct, "Version"))
    msiProdVersion = (msiProdVersion\65536\256) & "." & (msiProdVersion\65535 MOD 256) & "." & (msiProdVersion Mod 65536)
 
    strProdInfo = ""
    if msiObject.ProductInfo(msiProduct, "ProductName") = appName
        strProdInfo = "Product GUID: " & msiProduct & vbCrLf _
        & "Name: " & msiObject.ProductInfo(msiProduct, "ProductName") & vbCrLf _
        & "Version: " & msiProdVersion
 
        set CommandShell = createobject("wscript.shell") 
 
        cmdline = "msiexec /X" & msiProduct & " /qn"
    wscript.echo cmdline
        CommandShell.run cmdline, 1, true 
    END IF
 
 
    If strProdList = "" Then
        strProdList = strProdInfo
    Else
        strProdList = strProdList & vbCrLf & vbCrLf & strProdInfo
    End If
Next
 
If strProdList = "" Then
    strProdList = "No products installed or advertised."
Else
    strProdList = "There are " & msiObject.Products.Count & " product(s) installed or advertised." & vbCrLf & vbCrLf & strProdList
End If
 
Wscript.Echo strProdList

Celui d'installation est:

Code:

1
2
3
4
 
 
set WshShell = createObject("WScript.shell")
Wshshell.run "IEXPLORE.exe"

Amicalement

08/12/2008, 11h35
sami117

En fait , juste pour préciser : j'aimerais savoir si je dois renseigner la version , le nom du programme en plus du chemin ou est répertorié le programme?? et s'il y'as d'autre paramètres qui ne sont pas statiques (et du coup que je dois changer dans le programme ci dessus pour l'adapter à mes besoins).

Merci
08/12/2008, 13h40
pitchalov

En fait, si tu veux utiliser ces scripts, tu dois mettre le nom de ton programme à désinstaller à la place de "Sym", et dans le deuxième remplace "IEXPLORE.exe" par le chemin de ton EXE d'install.

Pour mettre l'un à la suite de l'autre, il suffit de mettre les codes à la suite dans ton vbs, mais moi je te conseillerai bien de ne faire l'install que si la désinstall c'est bien déroulée.