用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
' 获取一个新的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