Palabras clave:
nombre, usuario, red, WSHAutor:
Buho / Junio 2003Extraído de:
La web del BúhoObjetivo: Recuperar información de la red.
Con dos lineas de código, me devuelve el nombre del PC y del usuario Activo.Mas fácil, imposible
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