Autor Tema: Nombre usuario  (Leído 2703 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 219
Nombre usuario
« en: Octubre 10, 2012, 02:38:30 pm »
Palabras clave: nombre, usuario, red, WSH
Autor: Buho / Junio 2003
Extraído de: La web del Búho

Objetivo:
Recuperar información de la red.

Cita de: Buho
Con dos lineas de código, me devuelve el nombre del PC y del usuario Activo.Mas fácil, imposible

Código: [Seleccionar]
Function DameNombreUsuarioPc()
'Dos lineas y me devuelve el nombre del PC y del usuario Activo
'Mas facil, imposible
'Buho Junio 2003
  Dim ObjetoRed As Object
  Set ObjetoRed = CreateObject("WScript.Network")
  MsgBox "Nombre del PC en Red : " & ObjetoRed.ComputerName & vbCrLf & "Usuario: " & ObjetoRed.username, vbInformation, "Aviso"
  Set ObjetoRed = Nothing
End Function