#DEFINE GUID_Size  16
CLEAR
lc_HidGuid = SPACE( GUID_Size )
ls_HidGuid = SPACE( GUID_Size )

*The GUID_DEVCLASS_HIDCLASS guid below is taken from devguid.h
*GUID_DEVCLASS_HIDCLASS, 0x745A17A0, 0x74D3, 0x11D0, 0xB6, 0xFE, 0x00, 0xA0, 0xC9, 0x0F, 0x57, 0xDA 

#DEFINE GUID_DEVCLASS_HIDCLASS ;
    CHR(0xA0) + CHR(0x17) + CHR(0x5A) + CHR(0x74) + ;
    CHR(0xD3) + CHR(0x74) + CHR(0xD0) + CHR(0x11) + ;
    CHR(0xB6) + CHR(0xFE) + CHR(0x00) + CHR(0xA0) + ;
    CHR(0xC9) + CHR(0x0F) + CHR(0x57) + CHR(0xDA)
lc_hidGuid = GUID_DEVCLASS_HIDCLASS             && <--------------Check lc_hidGuid Value here

DECLARE HidD_GetHidGuid IN HID ;
     STRING @ O_sHidGuid
HidD_GetHidGuid( @ls_HidGuid )                  && <--------------Check ls_HidGuid Value here
lsGUIDStr = []
lcGUIDStr = []
FOR asd = 1 TO 16
    lsGUIDStr = lsGUIDStr + [0x]+RIGHT(TRANSFORM(ASC(SUBSTR(ls_HidGuid,asd,1)),[@0]),2)+[  ]
    lcGUIDStr = lcGUIDStr + [0x]+RIGHT(TRANSFORM(ASC(SUBSTR(lc_hidGuid,asd,1)),[@0]),2)+[  ]
NEXT
? lsGUIDStr FONT [COURIER New], 12
? lcGUIDStr FONT [COURIER New], 12