NOME DO COMPUTADOR

USUARIO.EXCLUIDOS 23/12/2003 14:30:39
#2213 Resposta escolhida

essa rola


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

Public wChave As String
Public wTbtempCH As New ADODB.Recordset
Public wComputador As String

Function sGetComputerName() As String
Dim sBuffer As String
Dim lBufSize As Long
Dim lStatus As Long
lBufSize = 255
sBuffer = String$(lBufSize, " ")
lStatus = GetComputerName(sBuffer, lBufSize)
sGetComputerName = ""
If lStatus 0 Then
sGetComputerName = Left(sBuffer, lBufSize)
End If
End Function


falow