Page 1 sur 1
[R] Script pour savoir si mon serveur ftp est activé ou pas
Posté : mar. 24 févr. 2015 22:09
par 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
Re: [..] Script pour savoir si mon serveur ftp est activé ou
Posté : mer. 25 févr. 2015 02:02
par 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
Re: [R] Script pour savoir si mon serveur ftp est activé ou
Posté : mer. 25 févr. 2015 09:34
par Boulanza
Bonjour,
Merci pour votre réponse.
Non, la macro @error ne donne pas l'information si le serveur est active ou pas.
Cordialement.
Re: [..] Script pour savoir si mon serveur ftp est activé ou
Posté : mer. 25 févr. 2015 11:00
par 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 ?)
Re: [..] Script pour savoir si mon serveur ftp est activé ou
Posté : mer. 25 févr. 2015 12:08
par 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.
Re: [..] Script pour savoir si mon serveur ftp est activé ou
Posté : mer. 25 févr. 2015 13:57
par 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
Re: [R] Script pour savoir si mon serveur ftp est activé ou
Posté : mer. 25 févr. 2015 15:14
par Boulanza
Merci à vous tous.
TCPConnect est ma solution, j'avais un problème du choix du port.
Cordialement.