Scriptbox - Find your Script, VBScript VBScripts VB-Script VB-Scripts Scripting

Loading

:: { Category } ::

0-9


	Search Options: Create GUID Content of Create GUID.vbs MD5 Hash: A59A5E5393E606F5DC6A9461757BD712
	msgbox CreateGUID() ' --------------------------- create GUID Private Function CreateGUID() Dim sReturn Dim oTypeLib : Set oTypeLib = CreateObject("Scriptlet.TypeLib") sReturn = cStr(oTypeLib.Guid) Set oTypeLib = Nothing sReturn = Replace(sReturn, "{", "", 1, -1, 1) sReturn = Replace(sReturn, "}", "", 1, -1, 1) sReturn = Replace(sReturn, Chr(0), "", 1, -1, 1) CreateGUID = "{" & Left(Trim(sReturn),Len(Trim(sReturn))-1) & "}" End Function

© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at ::