' GUID 取得用 Set TypeLib = CreateObject("Scriptlet.TypeLib") ' クリップボード用 ' ※ HTA 等では直接 window.clipboardData より実行 ' ※ するように書き換える必要があります Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate("about:blank") Do While objIE.Busy ' 100 ミリ秒 Wscript.Sleep 100 Loop Call objIE.document.parentWindow.clipboardData.SetData( "Text", TypeLib.Guid & "" ) objIE.Quit WScript.Echo "クリップボードにコピーしました" & vbCrLf & vbCrLf & TypeLib.Guid