Nombre del PC

[xavi]

Palabras clave: nombre, ordenador, PC
Autor: ¿?
Extraído de: ¿?

Objetivo:
Obtener el nombre del PC dónde se ejecuta el código.

Alternativa a Environ("ComputerName")

Código: [Seleccionar]

Function DamePC() As String
  Set ObjetoRed = CreateObject("WScript.Network")
  DamePC = ObjetoRed.ComputerName
  Set ObjetoRed = Nothing
End Function