・ TEMP フォルダーのパスを取得（VBScript の使用)

VBScript のランタイムモジュールのオブジェクトを使って TEMP フォルダーのパスを取得するには、

'*************************************************************************
'Temp フォルダーのパスを取得（VBScript の使用）
'*************************************************************************
Sub get_temp()
  Dim objFS As Object
  Dim objFolder As Object
  Dim temp_path As String
  temp_path = "特定できません"

  On Error Resume Next
  Set objFS = CreateObject("Scripting.FileSystemObject")
  Set objFolder = objFS.getSpecialFolder(2)
  temp_path = objFolder.Path & "\"
  On Error GoTo 0

  MsgBox "TEMPフォルダーのパスは" & temp_path

End Sub

ただし、VBScript のインストールが前提となります（Internet Explorer 5.0 以後がインストールされていればＯＫ）