Amigos:

 

Como faço para capiturar o nome do computador em uma variavel?

Function G_NomeComputador() As String
On Error GoTo Err_G_NomeComputador
    Dim sBuffer As String
    Dim lBufSize As Long
    Dim lStatus As Long
   
    lBufSize = 255
    sBuffer = String$(lBufSize, " ")
    lStatus = GetComputerName(sBuffer, lBufSize)
    G_NomeComputador = ""
    If lStatus <> 0 Then
       G_NomeComputador = Trim(Left(sBuffer, lBufSize))
    End If
    If G_NomeComputador = "" Then G_NomeComputador = "Não Logado"
    Exit Function

Err_G_NomeComputador:
    G_NomeComputador = "Não Logado"
End Function

Daniel,

 

Onde e como declarar esta função "GetComputerName"?

"lStatus = GetComputerName(sBuffer, lBufSize)"

Consegui, obg Daniel

expedito como vc fez a declaração do getcomputername?  eu nao consegui. tambem queria essa funcao

 

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