vbscript에서 Guid를 생성하는 방법은 무엇입니까?

StackOverflow https://stackoverflow.com/questions/968756

  •  13-09-2019
  •  | 
  •  

문제

vbscript에서 안내 문자열을 생성하고 싶습니다. VBScript에 내장 기능이 없다는 것을 알고 있습니다. 무작위 생성 안내서를 사용하고 싶지 않습니다. 어쩌면 Guid를 생성 할 수있는 (최신) Windows 버전에 설치 해야하는 CreateObject ()를 사용하여 생성 할 수있는 ActiveX 객체가있을 수 있습니다.

도움이 되었습니까?

해결책

스크립트를 사용하여 GUID를 어떻게 만들 수 있습니까? (In : Hey, Scripting Guy! 블로그) 이렇게 말합니다.

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

그러나 scriptlet.typelib.guid는 null 종결 문자열을 반환하여 어떤 것들을 유발할 수 있습니다. 안내 후 모든 것을 무시하십시오. 이를 해결하려면 다음을 사용해야 할 수도 있습니다.

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

이 기능은 평범한 안내를 반환합니다. 47BC69BD-06A5-4617-B730-B644DBCD40A9.

레지스트리 형식 (예 : {47BC69BD-06A5-4617-B730-B644DBCD40A9}, 기능의 마지막 줄을 변경하십시오 

CreateGUID = Left(TypeLib.Guid, 38)

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

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

이 객체 => "Scriptlet.typelib"을 통해 임의의 Guid를 생성 할 수 있습니다.

도움말 링크 => ... 끝

여기 내 방식이 있습니다 =

With CreateObject("Scriptlet.TypeLib")
'' For Del This = {}
 WSH.Echo mid(.Guid ,2, 36)
 WSH.Echo (.Guid)
End With
라이센스 : CC-BY-SA ~와 함께 속성
제휴하지 않습니다 StackOverflow
scroll top