SetTypeLib=CreateObject("Scriptlet.TypeLib")

strGUID=TypeLib.Guid

SetobjIE=CreateObject("InternetExplorer.Application")

objIE.Navigate("about:blank")

objIE.document.parentwindow.clipboardData.SetData"text",strGUID

objIE.Quit

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

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