Etape sous VBS

Bonjour a tous,

J'ai un petit script qui fonctionne bien mais je voudrais l'améliorer en rajouter des étapes.

Voici le script en question :

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
 
'lancement automatique d'application sans que l'utilisateur soit connecté. 
'===== PERSONNALISER ICI LES INFORMATIONS EN FONCTION DE 
'===== l'utilisateur et du mot de passe 
'===== Déclaration de variable
 
sage="""msiexec.exe /i c:\sagetrust\pkiclient-x32-5.1.msi ADDDEFAULT=DriverFeature,CoreFeature,CapiFeature,UIFeature,etMonitor,etFSFeature,etVerifierFeature,NgFlashFeature /qn""" 
 
motdepasse="*****" 
utilisateur="domaine\utilisateur"
 
registre="""REGEDIT.EXE /s ""C:\sagetrust\Token.reg"""
 
Dim wshShell 
Set wshShell = WScript.CreateObject("WScript.Shell")
 
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject" )
 
Set net = Wscript.CreateObject("WScript.Network")
 
'===== FIN DE LA PERSONNALISATION 
 
'===== COPIE DU RACCOURCI BUREAU
 
If not objFSO.FileExists("C:\Documents and Settings\" & net.UserName & "\Bureau\raccourci.url" ) Then
	objFSO.CopyFile "\\domaine\NETLOGON\Depl-Token\raccourci" , "C:\Documents and Settings\" & net.UserName & "\Bureau\raccourci.url"
END IF
 
'===== INSTALLATION DE L APPLICATION ET BASE DE REGISTRE
 
If objFSO.FileExists("C:\Program Files\Aladdin\eToken\PKIClient\x32\PKIMonitor.exe" ) Then
	WScript.Quit 
ELSE
	objFSO.CopyFolder "\\domaine\NETLOGON\Depl-Token\sagetrust", "c:\sagetrust"
	wshShell.Run "runas /user:" & utilisateur & " " & sage
	WScript.Sleep(1000) 
	wshShell.SendKeys motdepasse & "{ENTER}"
	WScript.Sleep(300000)
	wshShell.Run "runas /user:" & utilisateur & " " & registre
	WScript.Sleep(1000) 
	wshShell.SendKeys motdepasse & "{ENTER}"
	WScript.Sleep(10000) 
End if

Ce que je voudrais faire c'est rajouter une etape a la place de quitter le script.

A la place de sa

Code:

1
2
3
If objFSO.FileExists("C:\Program Files\Aladdin\eToken\PKIClient\x32\PKIMonitor.exe" ) Then
	WScript.Quit 
ELSE

Ici mettre si le fichier existe alors aller a l'etape bidule .

Je sait que je pourrai faire sinon

Si le fichier existe pas faire le bidule mais je voulais savoir si le system d'étape existe en VBS comme dans le batch ou il y a GOTO.

Merci de vos réponse ;)

Bonjour!

Bon effectivement, pas de goto en vbs, mais finalement on ne peut que s'en réjouir, sinon quelle galère à debugger!

Je pense qu'un moyen simple que tu as pour rajouter des étapes dans ton script est la procédure ou la fonction.

Tu définis donc dedans tes actions à réaliser :
Code:

1 2 3 Sub Etape_Sub() 'Actions End Sub
Et après t'as plus qu'à l'appeler :
Code:

1 2 3 If objFSO.FileExists("C:\Program Files\Aladdin\eToken\PKIClient\x32\PKIMonitor.exe" ) Then Etape_Sub ELSE
Et sûr que ça vaut plus le coup qu'un bon vieux GoTo.
Bonne continuation

Merci pitchalov c'est impeccable :ccool: