Afficher les variables d'environnement

'Affichage des variables d'environnement en VbScript

Dim WSHShell
Dim vAPPDATA, vSystemDrive, vSystemRoot, vSESSIONNAME, vCOMPUTERNAME, vProgramFilesx32, vProgramFilesx64, vUserProfile, vHomePath, vHomeDrive

Set WSHShell = CreateObject("WScript.Shell")
vUserName = WSHShell.ExpandEnvironmentStrings("%USERNAME%") 'Pour le login du user
vAPPDATA = WSHShell.ExpandEnvironmentStrings("%APPDATA%")
vSystemDrive = WSHShell.ExpandEnvironmentStrings("%SystemDrive%") 'Retourne C: en général (sans le \ à la fin)
vSystemRoot = WSHShell.ExpandEnvironmentStrings("%systemroot%")
vUserProfile = WSHShell.ExpandEnvironmentStrings("%USERPROFILE%")
vHomePath = WSHShell.ExpandEnvironmentStrings("%HOMEPATH%")
vHomeDrive = WSHShell.ExpandEnvironmentStrings("%HOMEDRIVE%")
vSESSIONNAME = WSHShell.ExpandEnvironmentStrings("%SESSIONNAME%")
vCOMPUTERNAME = WSHShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
vProgramFilesx32 = WSHShell.ExpandEnvironmentStrings("%programfiles(x86)%")
vProgramFilesx64 = WSHShell.ExpandEnvironmentStrings("%programfiles%")

If Left(vProgramFilesx32,1) = "%" Then
	'Si on est sur un système 32bits, alors le chemin du répertoire Program Files est dans vProgramFilesx64 et non vProgramFilesx32.
	'Du coup on recopie l'un dans l'autre et on efface la variable vProgramFilesx64
	vProgramFilesx32 = vProgramFilesx64
	vProgramFilesx64 = ""
End If

Wscript.echo "APPDATA : " & vAPPDATA
Wscript.echo "SystemDrive : " & vSystemDrive
Wscript.echo "SESSIONNAME : " & vSESSIONNAME
Wscript.echo "UserProfile : " & vUserProfile
Wscript.echo "Home Path : " & vHomePath
Wscript.echo "Home Drive : " & vHomeDrive
Wscript.echo "COMPUTERNAME : " & vCOMPUTERNAME
Wscript.echo "ProgramFilesx32 : " & vProgramFilesx32
Wscript.echo "ProgramFilesx64 : " & vProgramFilesx64

Set WSHShell = Nothing