用VBScript生成一个新的GUID

一个用写的生成GUID的代码，很方便～～～

' 获取一个新的GUID
Set TypeLib = CreateObject("Scriptlet.TypeLib")
strGUID = TypeLib.Guid

' 将生成GUID拷贝到粘贴板
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strGUID
objIE.Quit