M
michaelrlanier
Can a computer's fingerprint be determined when an Excel file is opened and its value be reflected in Sheet1, cell A1? Thanks.
G
GS
Can a computer's fingerprint be determined when an Excel file is opened and
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
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
A
Auric__
GS said:
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.
C
Charlotte E.
Fingerprint???
Do you mean the serial number of the motherboard or the CPU? The MAC
address? The IP address?
What are you talking about???
CE
Den 15.08.2013 03:07, (e-mail address removed) skrev:
Do you mean the serial number of the motherboard or the CPU? The MAC
address? The IP address?
What are you talking about???
CE
Den 15.08.2013 03:07, (e-mail address removed) skrev:
G
GS
GS said:
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
M
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.
W
witek
so user or computer?
I
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 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.
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 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.
I
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
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
C
Charlotte E.
Can a computer's fingerprint be determined when an Excel file is opened and its value be reflected in Sheet1, cell A1? Thanks.
My suggestion would be to obtain the serial number of the CPU and the
serial number of the harddrive.
The chances of the same combination of those two on more than one system
is virtual non-exsisting - and, perhaps include the name of the computer
and/or user, as some others have suggested in this thread.
You can find nicely layed-out User-Defined Functions for obtaining all
these information (and many more) at:
http://www.EXCELGAARD.dk/Lib/System Information UDFs/
....including a downloadable workbook containing all of it
CE
My suggestion would be to obtain the serial number of the CPU and the
serial number of the harddrive.
The chances of the same combination of those two on more than one system
is virtual non-exsisting - and, perhaps include the name of the computer
and/or user, as some others have suggested in this thread.
You can find nicely layed-out User-Defined Functions for obtaining all
these information (and many more) at:
http://www.EXCELGAARD.dk/Lib/System Information UDFs/
....including a downloadable workbook containing all of it
CE
M
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.