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

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)