FileSystemObject提供了一个返回临时文件名的GetTempName方法。

' Auto-Generate a File Name
Set objFSO = CreateObject("Scripting.FileSystemObject")
For i = 1 to 10
    strTempFile = objFSO.GetTempName
    Wscript.Echo strTempFile
Next