Heimnetzwerke - WIFI, LAN, Router und Co 16.535 Themen, 81.366 Beiträge

alle24stunden neue ip(schon scheisse)

darth_blubb / 4 Antworten / Flachansicht Nickles

hallo ich habe folgendes problem ich möchte gerne für meine freunde einen ftp server aufmachen aber ich bekomme ja im 24 stundenrüttmus eine neu ip gibt es eine möglichkeit das mein win2003server mir eine email schickt mit der neuen ip? gibts für soetwas tools? bitte helft mir bei der lösung des problems!!!
DANKE:-)

bei Antwort benachrichtigen
Hanussen darth_blubb „alle24stunden neue ip(schon scheisse)“
Optionen

Win2003 Server gibt es für umme für Auszubildende und Studenten im IT-Bereich.

DynDNS ist wohl die beste Lösung. Alternativ kannst du dir ein kleines VBA-Script schreiben das einfach nur schaut ob sich die IP-geändert hat und dann ne Email versendet, sollte keine große angelegenheit werden...

Hier ist ein kleiner Codeschnipsel zum versenden von Mails :

Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).

Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM



Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = ""
objMessage.Sender = ""
objMessage.To = ""
objMessage.TextBody = ""



objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""


objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SERVER"


objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False


objMessage.Configuration.Fields.Update


objMessage.Send

bei Antwort benachrichtigen