Discussion :

[PAB/31/SAB]

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 :

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
@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

[hackoofr]

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
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

[PAB/31/SAB]

Merci beaucoup,

cela fonctionne parfaitement.

Cordialement

PAB/31/SAB