Getting the System Hardware Fingerprint (XP/2003/Vista)

[citystate]

just a quick snippet...

Code: Select all

Structure HW_PROFILE_INFO
  DockInfo.l
  szHWProfileGUID.s{38}
EndStructure

getCurrentHWProfile_(hwp.HW_PROFILE_INFO)
hwGUID.s = hwp\szHWProfileGUID
MessageRequester("Info","Your Machine's FingerPrint is: "+hwGUID)

end

yeah, I know I've only used the minimum structure, but it seems to work fine. It returns a string in the format:

"{XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX}"

The output includes the braces and hyphens. The X's appear to be simple Hex, and seem to be unique to the machine running the program (no surprising considering there are 2^256 different numbers available).
My laptop gives me the fingerprint

"{536a5cc0-645b-11d7-933e-806d6172696f}"

Once I get home, I'll test on different machines to confirm the uniqueness of the number. If anyone wants to test it out, please post your results for comparison.

Cheers,
Matt

[rsts]

Works fine under vista. Looks like a neat function.

didn't have time to copy the text string right now. Will update later.

cheers

vista business
{3d4e88c0-6a70-11db-b1ba-806e6f6e6963}

[dige]

WinXP: {9defa740-316f-11d9-9ee7-806d6172696f}

[citystate]

K - I've tested it out on a couple more machines

WinXP:
{9743fa40-f2e8-11da-9cee-806d6172696f}
{22bbe040-5f97-11db-9259-806d6172696f}

2003 Server:
{e615bcc0-49c9-11db-808d-806e6f6e6963}

with just this small sample set (thanks dige) - it looks like the last 6 bytes have something to do with the platform, I'm curious what Vista and other flavours of Windows might equate to...

[PB]

How can I make this a procedure? If I run the following, I get invalid memory
access on the ProcedureReturn line:

Code: Select all

Procedure.s HardwareFingerprint()
  Structure HW_PROFILE_INFO
    DockInfo.l
    szHWProfileGUID.s{38}
  EndStructure
  GetCurrentHwProfile_(hwp.HW_PROFILE_INFO)
  ProcedureReturn hwp\szHWProfileGUID
EndProcedure

Debug HardwareFingerprint()

[gnozal]

How can I make this a procedure? If I run the following, I get invalid memory
access on the ProcedureReturn line:

Code: Select all

Procedure.s HardwareFingerprint()
  Structure HW_PROFILE_INFO
    DockInfo.l
    szHWProfileGUID.s{38}
  EndStructure
  GetCurrentHwProfile_(hwp.HW_PROFILE_INFO)
  ProcedureReturn hwp\szHWProfileGUID
EndProcedure

Debug HardwareFingerprint()

The structure is wrong ...
This seems to work :

Code: Select all

;
; Get Hardware Fingerprint
;
#HW_PROFILE_GUIDLEN = $27
#MAX_PROFILE_LEN = $50

Structure HW_PROFILE_INFO 
  DockInfo.l 
  szHWProfileGUID.c[#HW_PROFILE_GUIDLEN] 
  szHwProfileName.c[#MAX_PROFILE_LEN]
EndStructure 

Procedure.s HardwareFingerprint()
  Protected hwp.HW_PROFILE_INFO
  GetCurrentHwProfile_(@hwp)
  Debug PeekS(@hwp\szHwProfileName[0]) + " -> " + PeekS(@hwp\szHWProfileGUID[0])
  ProcedureReturn PeekS(@hwp\szHWProfileGUID[0])
EndProcedure 

Debug HardwareFingerprint()

WinNT4 : {ADB18780-FC84-11DB-81B7-00A0C9E133FF}

[PB]

Thanks gnozal!

[eJan]

Thanks!
Win XP: {1d70e440-b786-11db-8634-806d6172696f}

Is it possible to make it working on Win 9x?
http://msdn2.microsoft.com/en-us/library/ms724311.aspx

[Derek]

Winxp sp2

{27f5e540-5bbb-11db-bf11-806d6172696f}

[citystate]

Is it possible to make it working on Win 9x?
http://msdn2.microsoft.com/en-us/library/ms724311.aspx

It should run on all flavours of Windows - it's a fairly standard API call
have you tried it on Win9x? what errors are you getting?

[akj]

In Windows ME, the output from the two Debug statements are:

Code: Select all

[Debug] ->
[Debug]

Thus nothing is returned by any of the PeekS() statements.

[citystate]

hmm

try this then

Code: Select all

Structure HW_PROFILE_INFO 
  DockInfo.w
  szHWProfileGUID.c[39]
  szHWProfileName.c[80] 
EndStructure 

getCurrentHWProfile_(hwp.HW_PROFILE_INFO) 
hwGUID.s = PeekS(@hwp\szHWProfileGUID[0])
MessageRequester("Info","Your Machine's FingerPrint is: "+hwGUID) 
end

sorry, I don't have anything earlier than XP so can't really test it
the only change is to the DockInfo variable type (making it a word instead of a long) It *might* work, but perhaps this function is only valid for XP onwards (if so maybe one of the Windows guru's could help out)...

[citystate]

How can I make this a procedure? If I run the following, I get invalid memory
access on the ProcedureReturn line:

Code: Select all

Procedure.s HardwareFingerprint()
  Structure HW_PROFILE_INFO
    DockInfo.l
    szHWProfileGUID.s{38}
  EndStructure
  GetCurrentHwProfile_(hwp.HW_PROFILE_INFO)
  ProcedureReturn hwp\szHWProfileGUID
EndProcedure

Debug HardwareFingerprint()

The main problem I can see is that you have the Structure inside the Procedure - move it outside and it should work

[PB]

> Is it possible to make it working on Win 9x?

No. MSDN for GetCurrentHwProfile states that it requires NT-based Windows.

[GeoTrail]

Vista
{0f694440-6a70-11db-8eb3-806e6f6e6963}