使用脚本来创建 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，就可以将其粘贴到哪里。

转载于:https://www.cnblogs.com/sk-net/archive/2008/06/20/1226336.html