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")
Function DamePC() As String
Set ObjetoRed = CreateObject("WScript.Network")
DamePC = ObjetoRed.ComputerName
Set ObjetoRed = Nothing
End Function