Comment générer un GUID en VBScript?

Je veux générer GUID chaînes en VBScript. Je sais qu'il n'y a pas de fonction intégrée dans VBScript pour générer un. Je ne veux pas utiliser aléatoires générés par les Guid. Peut-être qu'il est un objet ActiveX qui peut être créé à l'aide de la fonction CreateObject() qui est sûr d'être installé sur (plus récente) des versions de Windows qui peuvent générer un GUID?

Je pense que l'on a accepté de répondre a beaucoup de qualité inférieure à celle de la plus haut voté one. Peut-être une raison à repenser votre décision?

InformationsquelleAutor vividos | 2009-06-09

32

Comment puis-je Créer un GUID à l'Aide d'un Script? (dans: Hey, le scripteur! Le Blog) dit ceci:
```
Set TypeLib = CreateObject("Scriptlet.TypeLib")
Wscript.Echo TypeLib.Guid
```
Toutefois, notez que le Scriptlet.La bibliothèque de types.Guid renvoie une chaîne se terminant par null, ce qui peut provoquer certaines choses à ignorer tout ce qui est après le GUID. Pour corriger cela, vous pourriez avoir besoin d'utiliser:
```
Set TypeLib = CreateObject("Scriptlet.TypeLib")
myGuid = TypeLib.Guid
myGuid = Left(myGuid, Len(myGuid)-2)
Wscript.Echo myGuid
```
- Merci! J'aime bien le "Hey, le scripteur!" le lien!
- Pour toute personne utilisant cette méthode, sachez que le Scriptlet.TypeLib objet sera de retour sur le même GUID chaque fois que vous appelez la GUID de la propriété. Si vous avez besoin de générer plusieurs Guid, de le détruire et recréer le Scriptlet.TypeLib objet ou, mieux encore, de l'envelopper dans une fonction comme d'autres l'ont indiqué, de sorte que l'objet est créé et détruit à chaque appel de fonction.
- lien brisé est fixé maintenant (grâce à Google)
InformationsquelleAutor Roger Lipscombe
47
```
Function CreateGUID
  Dim TypeLib
  Set TypeLib = CreateObject("Scriptlet.TypeLib")
  CreateGUID = Mid(TypeLib.Guid, 2, 36)
End Function
```
Cette fonction retournera une plaine GUID, par exemple, 47BC69BD-06A5-4617-B730-B644DBCD40A9.

Si vous voulez un GUID dans un format du registre, par exemple, {47BC69BD-06A5-4617-B730-B644DBCD40A9}, de changer la fonction de la dernière ligne de
```
CreateGUID = Left(TypeLib.Guid, 38)
```
- Meilleure réponse: combine fournissant un pas trop intelligent de la fonction et de l'ajout de matériel supplémentaire pour plus d'informations sur les détails. Ce doit être la accepté de répondre.
InformationsquelleAutor Helen

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

InformationsquelleAutor BSalita

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

InformationsquelleAutor BobbyShaftoe

Vous devez vous connecter pour publier un commentaire.