@DIV
Set TypeLib = CreateObject("Scriptlet.TypeLib")
Wscript.Echo TypeLib.guid

'テンポラリファイル名にするなら、

FileName = TypeLib.guid
FileName = Replace(FileName,"{","")
FileName = Replace(FileName,"}","")
FileName = Replace(FileName,"-","")
FileName = FileName & ".txt"

Wscript.Echo FileName
@END