How to generate a GUID in VBScript?

Question

I want to generate GUID strings in VBScript. I know that there's no built-in function in VBScript for generating one. I don't want to use random-generated GUIDs. Maybe there is an ActiveX object that can be created using CreateObject() that is sure to be installed on (newer) Windows versions that can generate a GUID?

I think the accepted answer has much lower quality than the [highest voted one](http://stackoverflow.com/a/968790/2932052). Maybe a reason to rethink your decision? — Wolf, Dec 07 '16 at 08:47

Helen · Answer 1 · 2010-10-08T14:15:36.070

57

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

This function will return a plain GUID, e.g., 47BC69BD-06A5-4617-B730-B644DBCD40A9.

If you want a GUID in a registry format, e.g., {47BC69BD-06A5-4617-B730-B644DBCD40A9}, change the function's last line to

CreateGUID = Left(TypeLib.Guid, 38)

edited Oct 08 '10 at 14:15

answered Jun 09 '09 at 08:12

Helen

87,344
17
243
314

2

Best answer: combines providing a not too smart function and adding additional material for information about the details. This should be the accepted answer. – Wolf Dec 07 '16 at 08:44
Worked best for me. – Moir Apr 13 '21 at 01:47

score 34 · Accepted Answer · edited May 23 '17 at 10:31

34

How Can I Create a GUID Using a Script? (in: Hey, Scripting Guy! Blog) says this:

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

However, note that Scriptlet.TypeLib.Guid returns a null-terminated string, which can cause some things to ignore everything after the GUID. To fix that, you might need to use:

Set TypeLib = CreateObject("Scriptlet.TypeLib")
myGuid = TypeLib.Guid
myGuid = Left(myGuid, Len(myGuid)-2)
Wscript.Echo myGuid

edited May 23 '17 at 10:31

Community

1
1

answered Jun 09 '09 at 08:05

Roger Lipscombe

89,048
55
235
380

Thanks! I like the "Hey, Scripting Guy!" link! – vividos Jun 09 '09 at 21:50
12

For anyone using this method, be aware that the `Scriptlet.TypeLib` object will return _the same GUID_ each time you invoke the `GUID` property. If you need to generate multiple GUIDs, destroy and recreate the `Scriptlet.TypeLib` object or, better yet, wrap it in a function like others have shown so the object is created and destroyed with each function call. – Bond Jun 29 '15 at 21:03
@vividos broken link is fixed now (thanks to Google) – Wolf Dec 07 '16 at 08:52

score 9 · Answer 3 · answered Sep 29 '12 at 00:00

9

' Returns a unique Guid on every call. Removes any cruft.
Function CreateGuid()
    CreateGuid = Left(CreateObject("Scriptlet.TypeLib").Guid,38)
End Function

answered Sep 29 '12 at 00:00

BSalita

8,420
10
51
68

score 2 · Answer 4 · answered Jun 09 '09 at 08:07

2

Set tlib = Server.CreateObject("Scriptlet.TypeLib")
strGuid = tlib.Guid

answered Jun 09 '09 at 08:07

BobbyShaftoe

28,337
7
52
74

How to generate a GUID in VBScript?

4 Answers4

Linked

Related