'*********************************************************
' wshNetworkProperties
'
' En el siguiente ejemplo, se expone cómo obtener de una
' forma sencilla el nombre del equipo, nombre del dominio
' y nombre del usuario, utilizando WSH
'
Sub wshNetworkProperties()
Dim wshNetwork As Object 'New wshNetwork

    Set wshNetwork = CreateObject("WScript.Network")
    
    Debug.Print "Nombre del equipo: " _
                ; wshNetwork.ComputerName
    Debug.Print "Nombre del dominio: " _
                ; wshNetwork.UserDomain
    Debug.Print "Nombre de usuario: " _
                ; wshNetwork.UserName
    
    Set wshNetwork = Nothing
    
End Sub
'*********************************************************