//---------------------------------------------
　　//Function f_get_GUID//得到全球唯一碼
　　//Argument: <ref string> of_guid //全球唯一碼
　　//Return: [None]
　　//Create by 泥草鞋 2004-03-10
　　//----------------------------------------------
　　oleObject PBObject 
　　long ll_result
　　PBObject = CREATE oleObject

　　ll_result = PBObject.ConnectToNewObject("PowerBuilder.Application")
　　IF ll_result < 0 THEN
　　messagebox(gs_message,"連接失敗：與PowerBuilder.Application連接出錯！")
　　return
　　ELSE
　　ll_result = PBObject.GenerateGUID(REF of_guid)
　　END IF

　　IF ll_result < 0 THEN
　　messagebox(gs_message,"生成GUID失敗：不能獲得GUID！")
　　return
　　END IF

　　of_guid = mid(of_guid,2,len(of_guid) - 2)
　　//End of Fuction