Determine a computer's fingerprint?

[michaelrlanier]

Can a computer's fingerprint be determined when an Excel file is opened and its value be reflected in Sheet1, cell A1? Thanks.

 

[GS]

Can a computer's fingerprint be determined when an Excel file is opened and

its value be reflected in Sheet1, cell A1? Thanks.

Define "computer fingerprint", please! If you mean a unique identifier
of the motherboard then obtaining this is a simple task. Please
elaborate, though, so the correct code can be provided...

--
Garry

Free uenet access at http://www.eternal-september.org
Classic VB Users Regroup
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion

 

[Auric__]

Define "computer fingerprint", please! If you mean a unique identifier
of the motherboard then obtaining this is a simple task. Please
elaborate, though, so the correct code can be provided...

That's what came to mind -- that, or perhaps the serial number(s) of the
processor(s).

I hope Michael elaborates just so we know what the hell he's talking about.

 

[GS]

That's what came to mind -- that, or perhaps the serial number(s) of the
processor(s).

I hope Michael elaborates just so we know what the hell he's talking about.

IMO, the BIOS serial# is a good choice so long as the machine isn't a
clone. If it is a clone then there's likely no BIOS serial# and so we
need to get creative. My licensing methodology uses a hash of the app's
unique SeatID to arrive at what I call a 'unique' MachineID when
there's no BIOS serial#. For USB storage device installs I use
PNPDeviceID instead of BIOS serial#, and handle empty values the same
way!

--
Garry

Free uenet access at http://www.eternal-september.org
Classic VB Users Regroup
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion

 

[michaelrlanier]

I am looking for any unique means of determining a computer's identification so that when a computer opens a particular Excel file I have, its ID willbe logged. Whether by mother board, processor, or something else, I am notparticular, as long as the user can be identified and its identification posted in Sheet1 and A1. I hope that clarifies. Thanks.

 

[witek]

I am looking for any unique means of determining a computer's identification so that when a computer opens a particular Excel file I have, its ID will be logged. Whether by mother board, processor, or something else, I am not particular, as long as the user can be identified and its identification posted in Sheet1 and A1. I hope that clarifies. Thanks.

so user or computer?

 

[isabelle]

hi,

from Erlandsen Data Consulting,

Public Declare Function GetUserName Lib "advapi32.dll" Alias
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public user As String

Private Sub info()
'Range("A1") = ReturnDommainUserName & ReturnUserName
user = ReturnDommainUserName & ReturnUserName
End Sub 'thank you Erlandsen Data Consulting

Function ReturnDommainUserName() As String
' returns the NT Domain User Name
Dim rString As String * 255, sLen As Long, tString As String
tString = ""
On Error Resume Next
sLen = GetUserName(rString, 255)
sLen = InStr(1, rString, Chr(0))
If sLen > 0 Then
tString = Left(rString, sLen - 1)
Else
tString = rString
End If
On Error GoTo 0
ReturnDommainUserName = UCase(Trim(tString))
End Function 'merci à Erlandsen Data Consulting

Function ReturnUserName() As String
ReturnUserName = Application.UserName
End Function

isabelle

Le 2013-08-15 21:52, (e-mail address removed) a écrit :

I am looking for any unique means of determining a computer's identification so that when a computer opens a particular Excel file

I have, its ID will be logged. Whether by mother board, processor, or
something else,

I am not particular, as long as the user can be identified and its
identification posted in Sheet1 and A1. I hope that clarifies. Thanks.

 

[isabelle]

another way,

Sub test()
'http://stackoverflow.com/questions/3551055/getting-computer-name-using-vba
MsgBox ComputerName & " - " & UserName
End Sub

Public Function ComputerName() As String
Dim objNetwork As Object
Set objNetwork = CreateObject("WScript.Network")
ComputerName = objNetwork.ComputerName
Set objNetwork = Nothing
End Function


Public Function UserName(Optional WithDomain As Boolean = False) As String
Dim objNetwork As Object
Set objNetwork = CreateObject("WScript.Network")
If WithDomain Then
UserName = objNetwork.UserDomain & "\" & objNetwork.UserName
Else
UserName = objNetwork.UserName
End If
Set objNetwork = Nothing
End Function

isabelle

 

[michaelrlanier]

Thank you Isabelle and Charlotte. I will be putting your input to the test shortly and I will post the results as soon as they are in. Thank you much for your time.