Nombre usuario

xavi · Octubre 10, 2012, 03: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

Noticias:

Nombre usuario

xavi