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.
创建Guid 的代码
原文：http://www.jb51.net/article/7548.htm
