El troyano, tu lo creaste?, si es asi, lo creaste en VB6?, si no lo creaste, este post va en Troyanos y Virus.
Sin embargo si lo creaste, para obtener la IP solo usa: (por ejemplo)
Label1.Caption = Winsock1.LocalIP
Si lo que quieres saber es como obtenerla tu, lo puedes hacer utilizando FTP (un ejemplo me parece que lo encontraras en la sección de Programación en BAT), ya que por correo necesitarias meter todo el codigo de envio de e-mail y un servidor SMTP libre (osea que no te pida autorizacion para enviar correos), hay varias formas, pero estas son las que a mi criterio son mas sencillas.
Saludos.