Please advise how to obtain computer name

[KevinD]

I am trying to programatically find what a computer's name is on a network. Does anyone know how to do this? I guess it's a Windows API function but I really have no idea.
Thanks in advance.

[da_silvy]

Here is an api:
put this in a module

Declare Function GetComputerName Lib "kernel32.dll" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function GetCompName() As String
Dim compname As String, retval As Long  ' string to use as buffer & return value
compname = Space(255)  ' set a large enough buffer for the computer name
retval = GetComputerName(compname, 255)  ' get the computer's name
' Remove the trailing null character from the strong
compname = Left(compname, InStr(compname, vbNullChar) - 1)
GetCompName = compname
End Function

to display do this:

Text1.Text = GetCompName

ok?

[Ishamel]

This should work too.

sMyComputerName = Environ("COMPUTERNAME")

[da_silvy]

IShamel I couldn't get your example to work why

[KevinD]

Thanks Isamal, but I couldn't get it to work either - David's ('da-silvy') code was fine.

[da_silvy]

so i'm not crazy :P

[Ishamel]

It does not work on your machine because you do not have an Environment setting on your computer called "COMPUTERNAME"

This code will list all the Environment variables that are held on your computer.

Private Sub Command1_Click()
    Dim EnvString, Indx,     

    Indx = 1

    Do
        Debug.Print Environ(Indx)
        Indx = Indx + 1
    Loop Until EnvString = ""

End Sub

From the list that is produced, you should be able to determine which setting holds the computer name. Then you can use this code to return the Computers Name.

sMyComputerName = Environ("PLACE ENVIRON NAME HERE")

Hope this helps.

[KevinD]

Yep Ishamel, you're right - I've got it to work now.

Thanks