Gestion erreur mauvais login/password sqlplus

Bonjour,

J'ai déjà fais un post pour la gestion d'une erreur sql qui est içi http://www.developpez.net/forums/d15...on-erreur-sql/

M'ai la je dois gérer le cas où je me connecte avec un login et mot de passe non valide

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
45
46
47
48
49
50
51
function requete_sql() 
On Error Resume Next
 
 
	if SERVICE <> "" then
 
			Set WshShell = CreateObject("WScript.Shell" ) 				'verifie si le service est present
			commande = "cmd /c sc query state= all | findstr OracleService | findstr SERVICE_NAME | findstr /I OracleService"&SERVICE&"$"
			return =wshshell.run(commande,true,1) 
 
		if return = 0 then 
			Set cmd = WshShell.Exec("cmd /c set ORACLE_SID="& SERVICE &" && "& ORACLE_HOME & "\BIN\sqlplus.exe -s "&LOGIN &" @C:\Maincare\nscp_supervision\scripts\maincare\requete_vbs\check_ds_infocentre_job.sql "&JOB)
 
			result_sql= cmd.StdOut.ReadAll
			ERR_SQL=result_sql
 
 
			Do While cmd.Status <> 1
				WScript.Sleep 100		
			Loop
			CODE_ERREUR=cmd.exitcode
 
				if CODE_ERREUR = 0 then
					result_cmd=replace(replace((result_sql),vbCrlF,""),vbTab," ")  	
					result_cmd = split(result_cmd," ")								
					x=0
					y=0
					do while x <> UBound (result_cmd)+1								
						if result_cmd(x)<> "" then 					
							Carnet(y)=result_cmd(x)
							y=y+1	
						end if 
						x=x+1
					loop
					result_job = carnet(0)
					result_start_time = carnet(1)
					result_execution_time = carnet(2)
				else
					CODE_ERREUR = 2										
					gest_erreur_sql()
				end if
 
		else
			wscript.echo "Service invalide"
			WScript.Quit(ST_UK)
 
		end if
 
	end if 
	gest_erreur_sql()
end function

ma variable LOGIN saisie sous cette forme ci : login/password

le problème est lorsque que je saisis une mauvais combinaison de login password le script bloque sur cette linge là "result_sql= cmd.StdOut.ReadAll"

quelqu'un aurait une solution s'il vous plait ?

merci d'avance

Galène