どのように生成することで、VBScript?

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

  •  13-09-2019
  •  | 
  •  

質問

思いをこの文字列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を戻します。

レジストリ形式でGUIDをしたい場合は、

、例えば、{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
ライセンス： CC-BY-SA と 帰属
所属していません StackOverflow
scroll top