31

我想在 VBScript 中生成 GUID 字符串。我知道 VBScript 中没有内置函数可以生成一个。我不想使用随机生成的 GUID。也许有一个可以使用 CreateObject() 创建的 ActiveX 对象肯定会安装在可以生成 GUID 的（更新的）Windows 版本上？

4

4 回答 4

53 
Function CreateGUID
  Dim TypeLib
  Set TypeLib = CreateObject("Scriptlet.TypeLib")
  CreateGUID = Mid(TypeLib.Guid, 2, 36)
End Function

此函数将返回一个普通的 GUID，例如47BC69BD-06A5-4617-B730-B644DBCD40A9.

如果您想要注册表格式的 GUID，例如，{47BC69BD-06A5-4617-B730-B644DBCD40A9}将函数的最后一行更改为

CreateGUID = Left(TypeLib.Guid, 38)
于 2009-06-09T08:12:16.813 回答
33

如何使用脚本创建 GUID？（在：嘿，脚本专家！博客）这样说：

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

但是，请注意 Scriptlet.TypeLib.Guid 返回一个以 null 结尾的字符串，这可能会导致某些事情忽略 GUID 之后的所有内容。要解决这个问题，您可能需要使用：

Set TypeLib = CreateObject("Scriptlet.TypeLib")
myGuid = TypeLib.Guid
myGuid = Left(myGuid, Len(myGuid)-2)
Wscript.Echo myGuid
于 2009-06-09T08:05:57.030 回答
8 
' Returns a unique Guid on every call. Removes any cruft.
Function CreateGuid()
    CreateGuid = Left(CreateObject("Scriptlet.TypeLib").Guid,38)
End Function
于 2012-09-29T00:00:43.647 回答
2 
Set tlib = Server.CreateObject("Scriptlet.TypeLib")
strGuid = tlib.Guid
于 2009-06-09T08:07:35.687 回答