RE: How to read Computer Name?

How can I find the computer name which found on "Network -> Identification tab"?

Thanx.

SK

[Joacim Andersson]

Use the GetComputerName API Function:

Public Declare Function GetComputerName _
Lib "kernel32" Alias "GetComputerNameA" ( _
ByVal lpBuffer As String, _
nSize As Long) As Long

Public Function ComputerName() As String
Dim sName As String
sName = Space(25)
Call GetComputerName(sName, 25)
ComputerName = sName
End Function

Good luck!

------------------
Joacim Andersson
[email protected]
[email protected]
www.YellowBlazer.com