'=============================================================================
' Серый форум / VBScript: генерация пути для временного файла или папки
' (http://forum.script-coding.com/viewtopic.php?id=1221)
'=============================================================================
Function GetTemporaryName()
    Const TemporaryFolder = 2
    
    Dim strTempName
    
    With WScript.CreateObject("Scripting.FileSystemObject")
        Do
            strTempName = .BuildPath(.GetSpecialFolder(TemporaryFolder), .GetTempName)
        Loop While .FileExists(strTempName) Or .FolderExists(strTempName)
    End With
    
    GetTemporaryName = strTempName
End Function
'=============================================================================

Option Explicit

Function GetTemporaryFileName()
    Const SYSTEM_FOLDER = 1
    Const TEMP_FOLDER = 2
    
    Dim objFSO
    Dim strTempFile
    
    
    Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
    
    'генерация пути к временному файлу: КаталогВременныхФайлов\ИмяВременногоФайла
    With objFSO
        Do
            strTempFile = .BuildPath(.GetSpecialFolder(TEMP_FOLDER), .GetTempName)
    
            'если такой файл существует, продолжаем попытки генерации пути:
        Loop While .FileExists(strTempFile)
    End With
    
    Set objFSO = Nothing
    
    GetTemporaryFileName = strTempFile
End Function

WScript.Echo GetTemporaryFileName()