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