Get PC Name

[gnosis13]

I am appending a line to a log file in an on_click event of a button. I would like to capture the PC's network name either during form_activate or at the on_click and include it as part of the string written to the log. How can I get the PC name without a bunch of API calls? (trying to keep it simple) A+, N+, MCP

 

[Creepers]

Here is an API

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal sBuffer As String, lSize As Long) As Long

 

[gnosis13]

How would I access this API from the on_click event? For example:

dim computer_name as string
computer_name = GetComputerName
.
..
...

Does the declaration need to be in a module?
A+, N+, MCP

 

[chrissie1]

try this code

http://www.mvps.org/access/api/api0009.htm

"What a wonderfull world" - Louis armstrong

 

[gnosis13]

Ahhhhh!

Tahnk you very much! A+, N+, MCP