Как сгенерировать GUID в VBScript?
ну, я все испробовал, но это не помогло, после того, как я разобрался, я понял следующее, и это помогло. используется python 2.7.
# encoding=utf8
import sys
reload(sys)
sys.setdefaultencoding('utf8')
5 ответов
Как я могу создать GUID, используя скрипт? (в: Hey, Scripting Guy! Blog) говорит следующее:
Set TypeLib = CreateObject("Scriptlet.TypeLib")
Wscript.Echo TypeLib.Guid
Однако обратите внимание, что Scriptlet.TypeLib.Guid возвращает строку с нулевым символом в конце, которая может вызвать некоторые вещи в игнорировать все после GUID . Чтобы это исправить, вам может понадобиться:
Set TypeLib = CreateObject("Scriptlet.TypeLib")
myGuid = TypeLib.Guid
myGuid = Left(myGuid, Len(myGuid)-2)
Wscript.Echo myGuid
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)
Set tlib = Server.CreateObject("Scriptlet.TypeLib")
strGuid = tlib.Guid
Вы можете генерировать произвольный GUID через этот объект => "Scriptlet.TypeLib"
Справка Link => с ... Конец
Вот мой путь =
With CreateObject("Scriptlet.TypeLib")
'' For Del This = {}
WSH.Echo mid(.Guid ,2, 36)
WSH.Echo (.Guid)
End With
' Returns a unique Guid on every call. Removes any cruft.
Function CreateGuid()
CreateGuid = Left(CreateObject("Scriptlet.TypeLib").Guid,38)
End Function