使用脚本来创建 GUID

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

如果您想知道我们是怎样做到的,实际上,我们又耍弄了一个小伎俩。VBScript 无法将项目复制到剪贴板,但 Internet Explorer 可以。因此,我们只是生成 GUID,然后将该值存储在名为 strGUID 的变量中。接着,创建一个不可见的 Internet Explorer 实例,并使用“clipboardData.SetData”方法将该 GUID 复制到剪贴板。可使用以下这行代码来执行这项操作:

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

退出 Internet Explorer,现在您想要在哪里使用该 GUID,就可以将其粘贴到哪里。

你可能感兴趣的:(GUI)