VBScriptでGUIDを生成するには？

VBScriptでGUID文字列を生成します。 VBScriptには、VBScriptを生成するための組み込み関数はありません。私はランダムに生成されたGUIDを使用したくありません。おそらく、CreateObject（）を使用して作成できるActiveXオブジェクトがあります。これは、GUIDを生成できる（新しい）Windowsバージョンにインストールされますか？VBScriptでGUIDを生成するには？

出典

2009-06-09 vividos

に、関数の最後の行を変更私は（受け入れ答えは、[最高のものを投票]よりもはるかに低い品質を持っていると思いますhttp://stackoverflow.com/a/968790/2932052）。おそらくあなたの決定を再考する理由は？ – Wolf

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にいくつかのことを引き起こす可能性があり、NULLで終わる文字列を返すことに注意してください。それを修正するには、使用する必要があります

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

出典

2009-06-09 08:05:57

ありがとう！私は "Hey、Scripting Guy！"が好きです。リンク！ – vividos

このメソッドを使用する人は、 'Scriptlet.TypeLib'オブジェクトが' GUID'プロパティを呼び出すたびに同じGUID_を返すことに注意してください。複数のGUIDを生成する必要がある場合は、 'Scriptlet.TypeLib'オブジェクトを破棄して再作成するか、他の関数と同じようにラップしてオブジェクトが作成され、各関数呼び出しで破棄されるようにします。 – Bond

@vividosの壊れたリンクは現在修正されています（Googleに感謝） – Wolf

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

出典

2009-06-09 08:07:35 BobbyShaftoe

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)

出典

2009-06-09 08:12:16 Helen

ベストアンサー：あまりスマートでない機能を提供し、詳細についての情報を追加します。これは受け入れられた答えでなければなりません。 – Wolf

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

出典

2012-09-29 00:00:43 BSalita

VBScriptでGUIDを生成するには？

答えて

関連する問題