वीबीस्क्रिप्ट में GUID कैसे उत्पन्न करें?

Question

मैं वीबीस्क्रिप्ट में GUID तार उत्पन्न करना चाहता हूं। मुझे पता है कि वी उत्पन्न करने के लिए वीबीस्क्रिप्ट में कोई अंतर्निहित फ़ंक्शन नहीं है। मैं यादृच्छिक जेनरेट किए गए GUID का उपयोग नहीं करना चाहता हूं। हो सकता है कि एक ActiveX ऑब्जेक्ट है जिसे CreateObject() का उपयोग करके बनाया जा सकता है जो कि (नए) विंडोज संस्करणों पर स्थापित होना सुनिश्चित है जो GUID उत्पन्न कर सकते हैं?

Answer 1

How Can I Create a GUID Using a Script? (in: Hey, Scripting Guy! Blog) कहना है कि यह:

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

हालांकि, ध्यान दें कि Scriptlet.TypeLib.Guid रिटर्न एक अशक्त-समाप्त स्ट्रिंग, जो ignore everything after the GUID को कुछ चीजें पैदा कर सकता है। कि ठीक करने के लिए, आप उपयोग करना पड़ सकता है:

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

Answer 2

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

Answer 3

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) 

Answer 4

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