質問
思いをこの文字列VBScript.知っていることが可能であるVBScriptのために生成します。いたランダム発生する特別な技術を必要と.ん、ありがとうございますActiveXオブジェクトに利用できるものCreateObject()では、インストールする必要があります(新しい)Windowsバージョンを発生するガイド?
解決
<のhref = "https://blogs.technet.microsoft.com/heyscriptingguy/2005/02/21/how-can-i-create-a-guid-using-a-script/" のrel =」 noreferrer ">どのように私は、スクリプトを使用してGUIDを作成することはできますか? (中:!ねえ、Scripting Guyのブログ)これは言うに:
Set TypeLib = CreateObject("Scriptlet.TypeLib")
Wscript.Echo TypeLib.Guid
しかし、Scriptlet.TypeLib.Guidはhref="https://stackoverflow.com/q/413367/8446">は、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
を戻します。
、例えば、{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
できる世代のランダムガイドによるこのオブジェクト=>"スクリプトレット.TypeLib"
ク=> 付---終了
こちらはMy Way=
With CreateObject("Scriptlet.TypeLib")
'' For Del This = {}
WSH.Echo mid(.Guid ,2, 36)
WSH.Echo (.Guid)
End With
所属していません StackOverflow