Récupérer l'IP de sa machine a distance

Récupérer l'IP de sa machine a distance - Windows & Software

Marsh Posté le 29-03-2001 à 10:57:53    

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 ...
 
:hello:

Reply

Marsh Posté le 29-03-2001 à 10:57:53   

Reply

Marsh Posté le 29-03-2001 à 11:20:35    

Compliqué ton truc mais intéressant...
Un autre truc facile est de prendre une adresse dns sur une site gratuit genre www.dyndns.org , ensuite quand il faut connaitre son ip on pinge son adresse tout simplement.

 

[edit]--Message édité par Lorenzotoz--[/edit]

Reply

Marsh Posté le 29-03-2001 à 12:01:52    

jamais pensé !!!
 
c si tu veux mettre ton site en ligne tout le temps a partir de ta machine ca NON ????

Reply

Marsh Posté le 29-03-2001 à 12:16:28    

Cool.
 
Faudra que j'essaye.

Reply

Marsh Posté le 29-03-2001 à 13:41:37    

ouaip... intéressant, je voulais justement installer un PC anywhere entre chez moi et mon boulot.. histoire de voir si le d/l se passe bien pendant mon absence !!!


---------------
Tout cul tendu mérite son dû
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed