Per recuperare l'ip è semplice, basta che fai:
Dim ss As ServerSocket
Dim MioIp As String = ss.GetMyIP
Per gli altri dati non credo proprio si possa recuperare nome e cognome (io ad esempio non l'ho mai inserito nel dispositivo) e non credo si possa nemmeno recuperare il numero di telefono.
Infatti alcune applicazioni (ad esempio Whatsapp) ti chiedono quale è il tuo numero di telefono invece che recuperarlo dal dispositivo, quindi penso non si possa fare.
Ciao
Sergio