Come generare un GUID in VBScript?

Question

voglio generare stringhe GUID in VBScript. So che non c'è built-in funzione in VBScript per la generazione di uno. Non voglio usare GUID casuali generati. Forse c'è un oggetto ActiveX che può essere creata usando CreateObject () che è sicuro per essere installato sulle versioni (più recente) di Windows che possono generare un GUID?

Answer 1

Come si crea un GUID utilizzando uno script? (In: Hey, Scripting Guy Blog) dice questo:

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

Si noti tuttavia che Scriptlet.TypeLib.Guid restituisce una stringa null-terminated, che può causare alcune cose da ignorare tutto dopo il GUID . Per risolvere questo, si potrebbe essere necessario utilizzare:

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

Answer 2

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

Questa funzione restituisce una pianura GUID, ad esempio, 47BC69BD-06A5-4617-B730-B644DBCD40A9.

Se si desidera un GUID in un formato di registro, ad esempio, {47BC69BD-06A5-4617-B730-B644DBCD40A9}, cambiare ultima riga della funzione di

CreateGUID = Left(TypeLib.Guid, 38)

Answer 3

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

Answer 4

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

Answer 5

Puoi Gen GUID casuale Via Questo oggetto => "Scriptlet.Typelib"

Guida Link => Con ... Fine

Ecco My Way =

With CreateObject("Scriptlet.TypeLib")
'' For Del This = {}
 WSH.Echo mid(.Guid ,2, 36)
 WSH.Echo (.Guid)
End With