Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Function GetTempDirectory() As String
    Dim sBuffer As String
    sBuffer = String$(260, vbNullChar)
    If GetTempPath(Len(sBuffer), sBuffer) Then
'       enlève  les  NULL
        GetTempDirectory = LeftB$(sBuffer, InStrB(1, sBuffer,  vbNullChar))
    Else
        GetTempDirectory = Environ$("TEMP")
    End If
'   ajoute le slash
    If Not (RightB$(GetTempDirectory, 2) = "\") Then GetTempDirectory = GetTempDirectory & "\"
End Function

<script type="text/javascript">
    var exc=new ActiveXObject("WScript.Shell");
    var tmp=exc.ExpandEnvironmentStrings("%temp%");
    
    alert(tmp); // affichage pour l'exemple
</script>

import os
os.environ.get('TEMP')

// Récupération du nom du répertoire  temporaire
ResRepTemp = fRépertoireTemp()

{ GetOrCreateTemporaryPath
  Renvois ou crée un repertoire temporaire valide
  La fonctions test en premier les variables d'environements TEMP, TMP puis WINDIR+Temp.
  Si tout ces repertoires sont invalide, la fonction crée un repertoire "Temp" a la
  racine du programme.
}
function GetOrCreateValidTemporaryPath: string;
begin
  result := GetEnvironmentVariable('TEMP');
  if not DirectoryExists(result) then
  begin
    result := GetEnvironmentVariable('TMP');
    if not DirectoryExists(Result) then
    begin
      result := IncludeTrailingBackslash(GetEnvironmentVariable('WINDIR'))+'Temp';
      if not DirectoryExists(Result) then
      begin
        result := 'C:\Windows\Temp';
        if not DirectoryExists(Result) then
        begin
          result := ExtractFilePath(ParamStr(0))+'Temp';
          CreateDir(result);
        end;
      end;
    end;
  end;
end;

// Retourne le répertoire temporaire de Windows
function RepertoireTemporaire(): String;
var
  lpBuffer : array[0..255] of Char;
begin
  GetTempPath(SizeOf (lpBuffer), lpBuffer);
  Result := lpBuffer;
end;

char sTempPath[MAX_PATH];
GetTempPath(MAX_PATH,sTempPath);