Help on retrieving Local Computer Name{RESOLVED]

[Joacim Andersson]

There is an API function you can use. Here's a wrapper function for that API function.

Private Declare Function GetComputerName _
 Lib "kernel32.dll" Alias "GetComputerNameA" ( _
 ByVal lpBuffer As String, _
 ByRef nSize As Long) As Long
 
Public Function GetCompName() As String
    Dim sBuff As String
    Dim nLen As Long
    nLen = 215 'probably to large buffer
    sBuff = Space$(nLen + 1)
    If GetComputerName(sBuff, nLen) Then
        GetCompName = Left$(sBuff, nLen)
    Else
        sBuff = Space$(nLen)
        Call GetComputerName(sBuff, nLen)
        GetCompName = Left$(sBuff, nLen)
    End If
End Function

[data2delete]

Declare Function GetUserNameA Lib "advapi32.dll" (ByVal lpBuffer As String, nSize As Long) As Long
Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function GetUserName() As String
Dim UserName As String * 255
Call GetUserNameA(UserName, 255)
GetUserName = Left$(UserName, InStr(UserName, Chr$(0)) - 1)
End Function


Public Function GetComputerName() As String
Dim UserName As String * 255

Call GetComputerNameA(UserName, 255)
GetComputerName = Left$(UserName, InStr(UserName, Chr$(0)) - 1)
End Function

'Put in module
'Call this like
'Text1.text = "Hello " & GetUserName & " On " & GetComputerName