web-dev-qa-db-fra.com

Comment générer un GUID dans VBScript?

Je veux générer GUID Strings dans VBScript. Je sais qu'il n'y a pas de fonction intégrée dans VBScript pour générer une. Je ne veux pas utiliser des GUDS générés aléatoires. Peut-être qu'il y a un activeX Objet qui peut être créé à l'aide de CreateObject () qui est sûr d'être installé sur (plus récentes) versions Windows pouvant générer un GUID?

vbscriptguiduuid
29
vividos

Comment puis-je créer A GUID à l'aide d'un script? (In: hé, script gars! Blog dit ceci:

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

Toutefois, notez que Scriptlet.tyPelib.Guid renvoie une chaîne de terminaison NULL, qui peut causer certaines choses à ignorer tout après le GUID . Pour résoudre ce problème, vous devrez peut-être utiliser:

Set TypeLib = CreateObject("Scriptlet.TypeLib")
myGuid = TypeLib.Guid
myGuid = Left(myGuid, Len(myGuid)-2)
Wscript.Echo myGuid
33
Roger Lipscombe
Function CreateGUID
  Dim TypeLib
  Set TypeLib = CreateObject("Scriptlet.TypeLib")
  CreateGUID = Mid(TypeLib.Guid, 2, 36)
End Function

Cette fonction reviendra un guidable, par exemple, 47BC69BD-06A5-4617-B730-B644DBCD40A9.

Si vous voulez un GUID dans un format de registre, par exemple, {47BC69BD-06A5-4617-B730-B644DBCD40A9}, changer la dernière ligne de la fonction à

CreateGUID = Left(TypeLib.Guid, 38)
47
Helen
Set tlib = Server.CreateObject("Scriptlet.TypeLib")
strGuid = tlib.Guid
2
BobbyShaftoe

Vous pouvez Gen aléatoire GUID via cet objet => "scriptlet.typeLib"

HELP LINK => avec ... fin

Voici mon chemin =

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