Obteniendo el nombre de la computadora usando VBA

environment-variables username

Question

¿Hay alguna manera de obtener el nombre de la computadora en VBA?

Answer 1

Parece que llego tarde al juego, pero esta es una pregunta común ...

Este es probablemente el código que desea.

Tenga en cuenta que este código es de dominio público, de Usenet, MSDN y el blog Excellerando .

Dim objNetwork As Object
Set objNetwork = CreateObject("WScript.Network")

ComputerName = objNetwork.ComputerName

Set objNetwork = Nothing

Función final

Probablemente también necesites esto:

Dim objNetwork As Object
Set objNetwork = CreateObject("WScript.Network")

If WithDomain Then
    UserName = objNetwork.UserDomain & "/" & objNetwork.UserName
Else
    UserName = objNetwork.UserName
End If

Set objNetwork = Nothing

Función final

Answer 2

Puedes hacer así:

Sub Get_Environmental_Variable()

Dim sHostName As String
Dim sUserName As String

'' Get Host Name / Get Computer Name    
sHostName = Environ$("computername")

'' Get Current User Name    
sUserName = Environ$("username")

End Sub

Answer 3

Dim sHostName As String

'' Get Host Name / Get Computer Name

sHostName = Environ$("computername")