Dx21 - UDF

Home

eZine

Coding

Software

Network Admin.

Home > Coding > Libraries > UDF / UDC Library > UDF Library

	Back
	UDC Library

User Defined Functions Library

Syntax:	GetGUID
Where:	bStripFormatting Boolean value indicating if formatting should be stripped out of return
Constants:	None
Return Type:	String

View Function in:

Function GetGUID(bStripFormatting)
	'bStripFormatting - Boolean value
	'True = the {, }, and - characters are removed
	'False = the entire GUID is returned as Is
	
	If cBool(bStripFormatting) <> True Then bStripFormatting = False
	
	'Ensure we can create the TypeLib object
	On Error Resume Next: Err.Clear
	Dim objTypeLib:	Set objTypeLib = CreateObject("Scriptlet.TypeLib")
	If Err.Number <> 0 Then 
		GetGUID = Nothing
		Exit Function
	End If
	On Error GoTo 0
	
	'Get a GUID | {24DD18D4-C902-497F-A64B-28B2FA741661}
	Dim strGUID:	strGUID = Left(objTypeLib.Guid,38)
	
	'see if we need to strip out extra characters
	If bStripFormatting Then
		Dim objRE:	Set objRE = New RegExp
		objRE.Global = True
		objRE.IgnoreCase = True
		objRE.Pattern = "[\{\}\-]"
		
		strGUID = objRE.Replace(strGUID,"")
	End If
	
	GetGUID = strGUID
End Function

Script Example

WScript.Echo GetGUID(False)
WScript.Echo GetGUID(True)

Last Modification:
8/28/2008

More Information: None

	FAQs \| Terms Of Use \| Privacy Policy \| Contact Us
	Copyright © 1997 - 2010 Dx21, LLC. All rights reserved. Dx21, LLC a Washington Limited Liability Company Page Rendered at: 9/8/2010 9:54:37 PM for Unknown