Computer Name or ID (1 Viewer)

Anyone know how to get the computer ID or name unique to your computer?

I want to be able to use it in a database to keep logs for each computer on the network.

Any ideas?

Use the search function here, I'm sure you'll find it

Computer id thru VBA :

http://www.access-programmers.co.uk/forums/showthread.php?t=65623&highlight=unique+computer

Rich said:

Use the search function here, I'm sure you'll find it

Click to expand...

I did.

I spent about 20 minutes looking but found nothing of value.

Will have another dig about....

Did you follow rak's link?

Rich said:

Did you follow rak's link?

Click to expand...

Yes, have had a look at it. Tried the harddrive serial number thing but it just returned "0000-0000" on all harddrives I tried it on.

Nevermind, if there is no easy way to do it, I can just produce my own unique ID for each current session

Thanks for ytour replies.

Have you tried this.
Option Compare Database

'******************** Code Start **************************
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Private Declare Function apiGetComputerName Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSMachineName() As String
'Returns the computername
Dim lngLen As Long, lngX As Long
Dim strCompName As String
lngLen = 16
strCompName = String$(lngLen, 0)
lngX = apiGetComputerName(strCompName, lngLen)
If lngX <> 0 Then
fOSMachineName = Left$(strCompName, lngLen)
Else
fOSMachineName = ""
End If
End Function
'******************** Code End **************************

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If lngX <> 0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = ""
End If
End Function

Hard to believe that your search did not stumble upon the Environ() function. You can easily grab the users computer name and the users network name and more. I have Environ() code samples posted all over this forum.

User Logon Name or Computer ID

Unique Hard Drive Serial

No. I did create a database that kept track of each computer and when it was logged onto. However, I sent an E-mail to all 300 employees and had them supply the number. then created a table........

In a smaller shop that may be an alternative.

What if another user signs into another users computer? What if a user changes the computer name on their PC [if they have the rights to do so on thier PCs]? What if... Too many what ifs.

I work with thousands of possible users so I know you can not trust everybody to do it the right way [so we use code to get what we want, our way].