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