[R] Script pour savoir si mon serveur ftp est activé ou pas

[Boulanza]

Je cherche un moyen (script) sûr pour savoir si mon serveur ftp est en marche ou éteint. Le script ci-joint me donne des fausses informations sur l’état du serveur.
Merci pour votre collaboration
Cordialement.

► Afficher le texte

#include <FTPEx.au3>
DirGetServeurActive()
Func DirGetServeurActive()
Local $server=""
Local $username=""
Local $pass=""
;==========================
Local $Open = _FTP_Open('MyFTP Control')
Global $Conn = _FTP_Connect($Open, $server, $username, $pass)
Global $home=_FTP_DirGetCurrent($Conn)
If $home = 0 Then
MsgBox(1,"TEST SERVEUR","Serveur Active. ",62)
Else
MsgBox(1,"TEST SERVEUR","Serveur Désactivé. Réessayez plus tard.",6)
EndFunc

[orax]

Normalement avec la macro @error ça devrait aller.

► Afficher le texte

Code : Tout sélectionner

#include <FTPEx.au3>

DirGetServeurActive()
Func DirGetServeurActive()
    Local $server = ""
    Local $username = ""
    Local $pass = ""
    ;==========================
    Local $Open = _FTP_Open('MyFTP Control')
    Global $Conn = _FTP_Connect($Open, $server, $username, $pass)
    Global $home = _FTP_DirGetCurrent($Conn)
    If @error Then
        MsgBox(1, "TEST SERVEUR", "Serveur Désactivé. Réessayez plus tard.", 6)
    Else
        MsgBox(1, "TEST SERVEUR", "Serveur Active. ", 62)
    EndIf
EndFunc

[Boulanza]

Bonjour,
Merci pour votre réponse.
Non, la macro @error ne donne pas l'information si le serveur est active ou pas.
Cordialement.

[jguinch]

Un simple TCPConnect pourrait suffir non ?
Sinon pour @error, il faut juste savoir où l'utiliser (regarde dans la doc).
On peut aussi le mettre après _FTP_Connect (c'est d'ailleurs peut-être plus logique, non ?)

[Boulanza]

Merci jguinch,
Voici le message de TCPConnect
MsgBox($MB_SYSTEMMODAL, "", "Connection successful")
Malheureusement je ne peut pas importer ni exporter aucun fichier du ou vers le serveur ftp, car le serveur est désactivé. Une fois que je l'active manuellement tout rentre dans l'ordre.
Cordialement.

[walkson]

Bonjour,
Et comme ça ?

Code : Tout sélectionner

#include <FTPEx.au3>
DirGetServeurActive()
Func DirGetServeurActive()
Local $server='ftp.csx.cam.ac.uk'

Local $username=""
Local $pass=""
;==========================
Local $Open = _FTP_Open('MyFTP Control')
Global $Conn = _FTP_Connect($Open, $server, $username, $pass)
Global $home=_FTP_DirGetCurrent($Conn)
If $Conn <> 0 Then
MsgBox(1,"TEST SERVEUR","Serveur Active. ",62)
Else
MsgBox(1,"TEST SERVEUR","Serveur Désactivé. Réessayez plus tard.",6)
EndIf
EndFunc

[Boulanza]

Merci à vous tous.
TCPConnect est ma solution, j'avais un problème du choix du port.
Cordialement.