[AccessD] Computer Identifier

Selina,

Two Functions to return unique computer name...

Declare Function GetComputerName& Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lbbuffer As String, nsize As Long)

Function ReturnName()
Dim str As String * 64
Call GetComputerName(str, 64)
ReturnName = str
End Function

Sub GetCPUname()
Dim CPUname As String
CPUname = Left(ReturnName(), 64)
MsgBox CPUname
End Sub

HTH,
Kevin
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Selina Iddon
Sent: Monday, August 04, 2003 8:27 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] Computer Identifier


Good Afternoon Everyone

I am trying to confirm that a computer is eligible to open a distributed
.mde file by the startup screen first checking to see if it's identifier
exists in a separate password protected file.  To do this I need to be
able to extract an unique identifier for each computer (say the Windows
Registry key or something).

Can anyone offer a suggestion of a PC identifier to use and how I would
retrieve it using code?

TIA
Cheers
Selina


_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com