VBAやVBSでテンポラリファイル取得

Dim FSO As Object, TempName As String
Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO
    TempName = .GetSpecialFolder(2) & "\" & .GetBaseName(.GetTempName) & ".xlsxx"
End With
Set FSO = Nothing