How can I find the computer name which found on "Network -> Identification tab"?
Thanx.
SK
Printable View
How can I find the computer name which found on "Network -> Identification tab"?
Thanx.
SK
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