batch en vbs

Bonjour,

je dois convertir un script batch en vbs, mais je n'ai aucune expérience dans le domaine. Alors je mène mes petites recherches, mais c'est très lent et compte tenu de la simplicité du script, je me permets de solliciter votre aide.

En gros le script procède à la désinstallation d'un vieil agent, pour en installer un nouveau ensuite.

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 43 44 45 46 47 48 49 50 51 52 53 54 55

@echo off   REG QUERY HKEY_LOCAL_MACHINE\Software\...\Uninst   set err1=%errorlevel%   REG QUERY HKEY_LOCAL_MACHINE\Software\...\Deploy   set err2=%errorlevel%   if %err2% equ 1 (   if %err1% equ 1 (   echo DESINSTALLATION...   <cmd de désinstall>   set err3=%errorlevel%   if %err3% equ 1 (   goto install   )   echo DESINSTALLATION TERMINEE   REG ADD HKLM\Software\...\Uninst   goto install )   )   else (     if %err2% equ 1 (   :install   cls   echo INSTALLATION...   msiexec -i ...   set err4=%errorlevel%   REG ADD HKLM\Software\...\Deploy   echo %date% %time% %hostname% code erreur : %err4% >> \\<@reseau>\machin.log   )

---

Merci d'avance!

Bonjour,

Fais une recherche sur la méthode RegWrite

Dans un premier temps, je cherche à tester... Le premier problème est la récupération du code retour de l'exécution d'une commande!

Il n'aime pas particulièrement la commande suivante :

Code:

---

Set err1 = WshShell.Run "REG QUERY HKEY_LOCAL_MACHINE\Software\Uninst", now

---

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

Option Explicit   OSCheck()   Sub OSCheck()   Dim err1, WshShell, vbHide, Shell   Set WshShell = WScript.CreateObject("WScript.Shell" ) Set err1 = WshShell.Run "REG QUERY HKEY_LOCAL_MACHINE\Software\Uninst", now   If err1 = 1 Then   MsgBox "DESINSTALLATION..."   wscript.sleep 200   Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegWrite "HKLM\Software\Citrix\Uninst",now   MsgBox "DESINSTALLATION TERMINEE"   Else wscript.echo "script deja execute"   wscript.sleep 200   WScript.Quit   End if   End Sub

---

Merci de bien vouloir m'apporter votre aide

qu'est ce que "now" ?

Une aide sur l'utilisation de la fonction run :
http://vb.developpez.com/faqvbs/?page=IV.1#wshRun