Autor Tema: Nombre del PC  (Leído 2731 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 212
Nombre del PC
« en: Abril 28, 2020, 01:13:19 pm »
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