The inevitable question: Get Computer ID

[MSingh]

Hi,

How can i get the unique computer id?

My program makes extensive use of userforms, so a
user cannot utilise it without enabling macros.

I have searched but cannot seem to find code
to get compid. There are lots of cautionary
notes around this.

Thanking you
Mohamed

[HansV]

What exactly do you mean by "unique computer ID" and what would you use it for - I don't see the connection to enabling macros.

[MSingh]

Hi Hans,

Sorry for the late reply...

I attempting to safeguard .xlsm from piracy, workbook open event would verify computer id against the id obtained from the end-user before distribution (perhaps that's the incorrect term, maybe pc serial number) whichever is unique to each pc.
This unique number to be stored & compared each time .xlsm is opened, if it doesn't match, then give msg & close workbook.
Becoz workbook can only be used with userforms macros has to be enabled.

I should have described such in first post.

Thanks
Mohamed

[HansV]

You can use the following code to get the computer's serial number:

Code: Select all

Function GetSerial() As String
  Dim strComputer As String
  Dim objWMIService As Object
  Dim colSMBIOS As Object
  Dim objSMBIOS As Object
  strComputer = "."
  Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
  Set colSMBIOS = objWMIService.ExecQuery _
    ("Select * from Win32_SystemEnclosure")
  For Each objSMBIOS In colSMBIOS
    GetSerial = objSMBIOS.SerialNumber
  Next objSMBIOS
End Function

The user can get the serial number from the service tag on the PC, or you could give them the .vbs file in the attached zip file; when opened from Windows Explorer it will display the serial number.

GetSerial.zip

[MSingh]

Thanks Hans,

Thats awesome. I only accessed the post now & see 35 downloads already.

You should start charging for this service!

Kindest regards
Mohamed

[HansV]

You should start charging for this service!

Hi Mohamed,

The idea behind Eileen's Lounge is a free exchange of information, we're not trying to make money.

[kpark91]

You should start charging for this service!

Hi Mohamed,

The idea behind Eileen's Lounge is a free exchange of information, we're not trying to make money.

That's the best part of it all lol, joking :P

I'm really amazed by your range of knowledge in computers O_o