Getting Computer Name

G

Guest

I have pasted the below into a module and named it fOSMachineName then in a
form I try to use =fOSMachineName() as my control source and I get error in
field #Name? What is the problem? In the end I want to be able to store this
computer name in a table record but can not even get it in form yet?
******************** 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 **************************
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Get UserName and Insert that in a Table 5
Form freezing 2
Code halts on one PC but not others 5
retreving the network login name in a text box 3
Display list of logged on system names 5
How to use 'GetUserName' function 3
get network login name 14
Combining fOSUserName() and ShowUserRosterMultipleUsers() 1

Top