'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