[VBS]Tester variable d'environnement.

J'ai trouvé une solution qui me satisfait, je la laisse pour les éventuels demandeurs...

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
Set objShell = WScript.CreateObject("WScript.Shell")
Set colSystemEnvVars = objShell.Environment("System")
Set colUserEnvVars = objShell.Environment("User")
dim displayText
displayText ="Il vous est inutile de continuer l'installation car : "& vbCrLf
dim flag
flag =0 
if (trim(colSystemEnvVars("JAVA_HOME")) = "") then
	if (trim(colUserEnvVars("JAVA_HOME")) = "") then
		displayText = displayText & " - JAVA_HOME n'est pas defini dans les variables d'environnement "& vbCrLf
		flag = 1
	end if
end if
if (INSTR(colSystemEnvVars("PATH"),"PostgreSQL")=0) then
	displayText = displayText &  " - PostgreSQL n'est pas defini dans les variables d'environnement (PATH)"& vbCrLf
	flag = 1
end if
if (flag=1) then
	displayError(displayText)
end if
 
function displayError(displayText)
	msgbox displayText,vbCritical,"Erreur rencontrée"
end function

Dans mon exemple, je recherche une variable d'environnement appelée JAVA_HOME et je teste la présence de postgreSQL dans le path.