如何使用脚本来创建GUID

问：
您好，脚本专家！我们需要使用唯一标识号来跟踪某些项目。我的上司建议我们使用 GUID 来实现这个目的。有什么办法可以使用脚本来创建 GUID 呢？
-- DX

答：
您好，DX。GUID（全局唯一标识符）适用于完成类似以下内容的任务；我们自认为并不了解 GUID 所基于的算法，但我们几乎可以肯定地讲，您生成的每一个 GUID 都是唯一的。尽管在理论上存在生成重复 GUID 的可能性，但 Bill Gates 将他所有的钱都送给脚本专家的可能性在理论上也是存在的。我们还是不要在这两种可能性上劳神才是。

实际上，可以使用一种非常简单的方法来生成 GUID，但这种方法近乎像是作弊。（您可听清楚了，我们说的可是“近乎”。）“Scriptlet.TypeLib”对象的设计用途是帮助您创建“Windows 脚本组件”（实质上，这是一种使您编写的脚本可以像 COM 对象那样工作的方法）。Scriptlet.Typelib 对象包含一种方法，它可以生成与“Windows 脚本组件”类型库一起使用的 GUID；不过，没有理由不能使用该方法来生成用于其他用途的 GUID。（毕竟，GUID 就是 GUID。）如果您需要 GUID，下面这个由两行代码组成的脚本就可为您提供一个：

Set TypeLib = CreateObject("Scriptlet.TypeLib")
Wscript.Echo TypeLib.Guid

还不赖，是吧？当然，这个脚本所做的只是在消息框中回显 GUID；如果实际上要在其他地方使用该 GUID，就必须将其键入。如果不是由于 GUID 像如下内容那么冗长，这倒也不算什么难事：

因此，像我们这样乐于助人又喜欢标榜自己的家伙，当然要对脚本略做修改了。以下脚本可生成 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，就可以将其粘贴到哪里。