How can I find the computer name which found on "Network -> Identification tab"?
Thanx.
SK
Joacim Andersson
Dec 8th, 1999, 04:09 AM
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
joacim@programmer.net
joacim@yellowblazer.com
www.YellowBlazer.com (http://www.YellowBlazer.com)