|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Redes/Comunicações)
|
|
 |
Título da Dica: Retorna o nome do micro na rede
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Public Declare Function GetComputerName Lib _
"kernel32" Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As _
Long) As Long
Public Function GetComputer() As String
Dim Buffer As String
Dim Size As Long
Dim dl As Long
Size = 199
Buffer = String$(200, 0)
dl = GetComputerName(Buffer, Size)
If dl <> 0 Then
GetComputer = Left$(Buffer, Size)
Else
GetComputer = ""
End If
End Function
'Vc chamada a função assim:
Dim Var as String
Var = GetComputer()
|
|
|
|
|
