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")