Discussion :

[scarface56]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[pc75]

Bonjour,

Fais une recherche sur la méthode RegWrite

[scarface56]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ced600]

qu'est ce que "now" ?

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