How to obtain guid in Pb

// Function f_get_guid // obtain the globally unique code
// Argument: <ref string> of_guid // globally unique code
// Return: [none]
//----------------------------------------------
Oleobject pbobject
Long ll_result
Pbobject = create oleobject

L_result = pbobject. connecttonewobject ("PowerBuilder. application ")
If ll_result <0 then
MessageBox (gs_message, "Connection Failed: An error occurred while connecting to PowerBuilder. application! ")
Return
Else
Ll_result = pbobject. generateguid (ref of_guid)
End if

If ll_result <0 then
MessageBox (gs_message, "failed to generate guid: The GUID cannot be obtained! ")
Return
End if

Of_guid = mid (of_guid, 2, Len (of_guid)-2)