Script unique pour installer sur deux Hosts

Version imprimable

Bonjour à tous,

j'ai besoin de créer un script VBS unique qui effectue l'installation d'un pack, en fonction du Host.
J'ai créé ce script en batch, cela fonctionne bien, mais on me demande de faire un VBS. Mes connaissances en VBS sont nuls.
Pourriez-vous m'aider à faire l'équivalent en VBS. Je vous remercie d'avance.

PAB/31/SAB

Mon script:
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 @echo off set serveur1=TEST1 set serveur2=TEST2 H: cd H:\Livraison\Appli if %COMPUTERNAME% == %serveur1% goto start1 if %COMPUTERNAME% == %serveur2% goto start2 :start1 call H:\Livraison\ Appli\Migration_TEST1.bat goto end :start2 call H:\Livraison\ Appli\Migration_TEST2.bat goto end :end @exit

:salut:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim serveur1,serveur2,NomMachine
serveur1 = "TEST1"
serveur2 = "TEST2"
Set Ws = CreateObject("WScript.Shell")
Set ProcessEnv = Ws.Environment("Process")
NomMachine = ProcessEnv("COMPUTERNAME")
'MsgBox NomMachine ,64,"NomMachine"
If NomMachine = serveur1 then call Installation1
If NomMachine = serveur2 then call Installation2
 
sub Installation1
Set Ws = CreateObject("WScript.Shell")
Command = "cmd /c start H:\Livraison\Appli\Migration_TEST1.bat"
Resultat = Ws.Run(Command,1,True)
end sub
 
sub Installation2
Set Ws = CreateObject("WScript.Shell")
Command = "cmd /c start H:\Livraison\Appli\Migration_TEST2.bat"
Resultat = Ws.Run(Command,1,True)
end sub

13/02/2012, 17h00
PAB/31/SAB

Merci beaucoup

Merci beaucoup,

cela fonctionne parfaitement. :P

Cordialement

PAB/31/SAB