Pour ceux qui comme moa veulent pouvoir récupérer leur IP sans etre chez eux afin de pouvoir se
transferer des TRUCS par FTP (par exemple), voila 2 solutions :
1/ sous win98 :
------------
Vu que win98 n'a pas enormement de fonctionnalité l'astuce est d'envoyer par FTP sur son site
perso un fichier texte contenant ses paramètres de connexions.
créer 1 fichier sendip.bat sous c:\
-->contenu de sendip.bat :
ipconfig > c:\toto.txt // changez le toto.txt en nom bizarre 68UYYG.txt (+ dur a
retrouver)
ftp -s:param.txt
créer 1 fichier param.txt toujours ss c:\
-->contenu de param.txt
open ftp.multimania.fr // connexion a votre site perso
login
password
cd secret // pour mettre le fichier dasn 1 rep caché (donner 1 nom comme
nui98505 au répertoire)
put toto.txt // commande pour envoyer le fichier !!!
bye
Voila reste plus qu'a faire 1 tache planifiée avec le planificateur de windows !!!!
Apres il suffit d'aller sur votre site perso dans le répertoire secret/toto.txt & vous avez
votre IP
2/ sous win2000Server :
--------------------
Cette x ci vu que l'OS c pas de la daube on va faire 1 peu mieux & s'envoyer par mail son IP !!!
créer 1 fichier sendip.bat sous c:\
-->contenu de sendip.bat :
ipconfig > c:\ipconfig.txt
cscript c:\SENDMAIL.VBS
créer 1 fichier SENDMAIL.VBS toujours ss c:\
-->contenu de SENDMAIL.VBS :
'************test de l'objet sendMail*******************
'declare all variables
Dim strFrom,strTo,strSubject,Body
fileNamePath="c:\ipconfig.txt"
moi="toto@hotmail.com"
strFrom="Monsieur IP"
strTo=moi
strSubject="Nouvelle IP -->"&Now()
Body=IPconfig &vbcrlf&vbcrlf
'#######################################
'# #
'# Procedure d'envoi d'e-mails #
'# #
'#######################################
Sub SendMail (strFrom,strTo,strSubject,Body)
'mail constantes
Const BodyFormatHtml = 0 'Corps au format HTML
Const BodyFormatText = 1 'Corps au format text
Const MailFormatMime = 0 'Mail au format MIME
Const MailFormatText = 1 'Mail au format text
Const Low = 0 'Low importance
Const normal = 1 'normal importance
Const High = 2 'high importance
Dim objSendMail
Set objSendMail=CreateObject("CDONTS.NewMail" )
objSendMail.From = strFrom
objSendMail.To = strTo
objSendMail.Subject=strSubject
objSendMail.Body=Body
objSendMail.BodyFormat=BodyFormatText
objSendMail.MailFormat=MailFormatText
objSendMail.Importance=normal
'objSendMailAttachFile FilePath_Name
objSendMail.Send
wscript.echo vbcrlf&"send ok"&vbcrlf
Set objSendMail=Nothing
End Sub
Dim fso, f1, ts, s
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject" )
' Read the contents of the file.
Set ts = fso.OpenTextFile(fileNamePath, ForReading)
s = ts.ReadAll
ipconfig = s
ts.Close
Body=Body&ipconfig
call SendMail(strFrom,strTo,strSubject,Body)
:-)
Pareil reste plus qu'a faire 1 tache planifiée avec le planificateur de windows & vous recevrez
par mail votre IP !!!!
Allez bon courage ...
