vbscript 使用OLE32生成GUID

Posted 2021-05-22

'GUID type for the generation of GUID's at runtime
Private Type GUID
   Data1 As Long
   Data2 As Integer
   Data3 As Integer
   Data4(7) As Byte
End Type

Public Declare Function CoCreateGuid Lib "OLE32.DLL" (pGuid As GUID) As Long

'***************************************************************************
'*** Name   : GetGUID
'*** Purpose: Get a GUID
'*** http://support.microsoft.com/kb/176790
'*** Inputs : None.
'*** Outputs: None.
'***
'*** Return : string.
'**************************************************************************
Public Function GetGUID() As String


   Dim udtGUID As GUID

   If (CoCreateGuid(udtGUID) = 0) Then

      GetGUID = _
      String(8 - Len(Hex$(udtGUID.Data1)), "0") & Hex$(udtGUID.Data1) & _
      String(4 - Len(Hex$(udtGUID.Data2)), "0") & Hex$(udtGUID.Data2) & _
      String(4 - Len(Hex$(udtGUID.Data3)), "0") & Hex$(udtGUID.Data3) & _
      IIf((udtGUID.Data4(0) < &H10), "0", "") & Hex$(udtGUID.Data4(0)) & _
      IIf((udtGUID.Data4(1) < &H10), "0", "") & Hex$(udtGUID.Data4(1)) & _
      IIf((udtGUID.Data4(2) < &H10), "0", "") & Hex$(udtGUID.Data4(2)) & _
      IIf((udtGUID.Data4(3) < &H10), "0", "") & Hex$(udtGUID.Data4(3)) & _
      IIf((udtGUID.Data4(4) < &H10), "0", "") & Hex$(udtGUID.Data4(4)) & _
      IIf((udtGUID.Data4(5) < &H10), "0", "") & Hex$(udtGUID.Data4(5)) & _
      IIf((udtGUID.Data4(6) < &H10), "0", "") & Hex$(udtGUID.Data4(6)) & _
      IIf((udtGUID.Data4(7) < &H10), "0", "") & Hex$(udtGUID.Data4(7))
   End If

End Function


'  Set a GUID for the Document
   pXDoc.Fields.ItemByName("GUID").Text = GetGUID