Set TypeLib = CreateObject("Scriptlet.TypeLib")
strGUID = TypeLib.Guid

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strGUID
objIE.Quit

新建文本文件，将上面代码copy，然后保存关闭。将文本文件后缀名改为vbs.

如何得到Guid。双击上面建立的vbs后缀名的文件，然后在文本中，crtl+v  就可得到创建的Guid.