Bonjour.
J'essai d'exécuter un script shell en faisant appel à la fonction Run.
Mais au cours de l'exécution j'obtiens le message suivant :
Cet objet ne gère pas cette propriété ou cette méthode.
et la ligne qui est indiquée est :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
objShell2.Run CryptoPath + "/crypto.cmd < " + CryptoPath + "/list-certificate.txt >> """ + CertFileName + """", 1,True
J'ai beau cherché sur les forum je ne parviens pas à résoudre ce problème. Merci de m'aider s'il vous plait.

J'ai mis un bout de mon code pour plus d'info.

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
Dim SQLPath 
SQLPath =  "G:/DSI/3-APPLICATIONS/BaseTiersOracle/Crypto"  
 
Dim PinPath 
PinPath =  "G:/DSI/3-APPLICATIONS/BaseTiersOracle/Crypto"   
 
Dim CertificatPath 
CertificatPath = "G:/DSI/3-APPLICATIONS/BaseTiersOracle/Certificat" 
 
Dim CryptoPath 
CryptoPath = "G:/DSI/3-APPLICATIONS/BaseTiersOracle/Crypto"
 
Dim SQLFileName 
SQLFileName = SQLPath + "/" + "SQL_certificat.txt"    
 
Dim fs 
Set fs= CreateObject("Scripting.FileSystemObject")
 
Dim SQLfile 
Set SQLfile= fs.CreateTextFile(SQLFileName, True)
 
 
 Dim CertFileName
 Set CertFileName = fs.CreateTextFile(CertificatPath + "/" +" <%Response.Write(NumClef);%> "+" <%Response.Write(NomUser);%>"+ ".txt", True)
 
 CertFileName.Writeline("User : " +" <%Response.Write(NomUser);%>")
 CertFileName.Writeline("Pin code : " + " <%Response.Write(NumPin);%>")
 
 
MsgBox("Inserer la clef USB"+ " <%Response.Write(NumClef);%>")
 
        Dim objShell
				Set objShell = CreateObject("WScript.Shell")
				objShell.Run CryptoPath + "/crypto.cmd < " + CryptoPath + "/input-certificate.txt ", 1
 
	      Wscript.Sleep(33000)
 
				 Dim objShell2
				 Set objShell2 = CreateObject("WScript.Shell")
				 objShell2.Run CryptoPath + "/crypto.cmd < " + CryptoPath + "/list-certificate.txt >> """ + CertFileName + """", 1,True