Have Windows notify you if your Home IP Address changes

One of the biggest peeves I have about my internet connection is they never follow up on their support tickets.

I’ve been charged for 2 static IP addresses for a year, and they never have been able to get me the proper settings so I can finish configuring a Linux router I had built awhile back (more on that in another post) My ISP uses PPPoE for configuration, and I’m convinced they just don’t know what their doing, so they can’t get me the info.  I own my own domains, and they are hosted by a company where I have nearly unlimited access to a dedicated server,  which is basically LAMP server.  I don’t use any sort of Dynamic DNS registration because I control my own DNS servers.  So Here is the solution

— getip.php This file goes onto the php web server,  this is probably the simplest page I’ve ever put together.

echo "IP Address= $ip";

–isalive.vbs This file goes onto the PC running windows,  You then schedule your system to run this script periodically (15 minutes?)

'<script language="vbscript">
Option Explicit
on error resume next

call oXMLHTTP.open("get", "http://www.yourdomain.goeshere/getip.php", false)
Dim strResponseText
strResponseText = oXMLHTTP.ResponseText
SET oXMLHTTP = nothing
Dim strReturn

strReturn = trim(strResponseText)

'wscript.echo strReturn

Dim fso, outFile, logfile, oldfile
Set fso = CreateObject("Scripting.FileSystemObject")

Dim GetOldOutput

GetOldOutput = "IP Address="
set oldfile = fso.opentextfile("C:\getip\output.txt")
GetOldOutput = replace(trim(oldfile.readall()),VbCrLf,"")

Set outFile = fso.CreateTextFile("c:\getip\output.txt", True)
set logfile = fso.OpenTextFile("c:\getip\log\log.txt", 8,True)
Dim Splitter

if (GetOldOutput <> trim(strReturn)) then
Splitter = " <> "
Splitter = " == "
end if

Dim OutputMessage

outFile.WriteLine trim(strReturn)

OutputMessage = replace("Old " & GetOldOutput & Splitter & "New " & strReturn, "IP Address= ","")

logfile.writeline Date & " " & time & " - " & OutputMessage
wscript.echo OutputMessage

'Update DNS?? -- I'd love to have a dynamic DNS update script

if GetOldOutput <> trim(strReturn) then
wscript.echo "CHANGED"

Dim objMessage

Set objMessage = CreateObject("CDO.Message")
objMessage.From = "heartbeat@domain.com"
objMessage.To = "youraddress@domain.com"
objMessage.Subject = trim(strReturn)
objMessage.TextBody = OutputMessage

Dim objFlds

Set objFlds = objMessage.Configuration.Fields
With objFlds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "yourmailserver.net"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
End With

set objMessage = nothing
set objFlds = nothing

End IF

set outfile=nothing
set fso=nothing
set logfile = nothing

You have to create a simple file structure,  for me it was c:\isalive  and a subdirectory c:\isalive\log

The end result will be a file that is added to an e-mail and sent to you when your IP changes.  A side effect is if the connection times out, either the server your on, or your connection isn’t working, so you can quickly tell if you have a problem.  But it only e-mails you when there is a change (if the previously stored address is different then the most recently collected)

I’ll add more detail if asked.  This isn’t intended to be a tutorial,  just a solution to a problem that I see many people ask about, but there are few posted solutions.

Health problems?!?

I know some of you who still remember who I am, are wondering what happened to me, why I suddenly stopped being heavily involved in the Evolution Tuning scene. I am a very private person, and over the years I’ve mentioned a few things in posts and e-mails

These past few years have been rough, I was in a motorcycle accident which though pretty minor, forced me to take it easy. For a long time I had not been able to easily work on my cars, when I finally felt better, I discovered something else didn’t seem right.

In that time, I’ve had a bunch of health issues that have been difficult/impossible to diagnose, in fact, my doctors still aren’t sure whats actually wrong, but I’m on a bunch of medications to treat many different symptoms.

Its been a long time, and I’ve finally felt well enough to take my car out and drive it and enjoy it, only I can’t. The short story was when my cars were shipped down from New York, to Texas, the bumper on the Evo had been damaged. The Transport company did the right thing and had the car repaired properly. Unfortunately the body shop that had the car in their posession had a a douchebag who either recognized what kind of car it was, or the car itself, and beat the snot out of it, as a result my clutch and transmission (47000 miles on an ORIGINAL CLUTCH, and the same with the original driveline) were damaged, the clutch is slipping, and second gear, either the slider/selector or synchro is done (It won’t go into second gear at all, under any circumstance).. I also noticed the dealer who was servicing the car in NY wasn’t doing what I asked (They NEVER serviced the driveline fluids or timing/balance shaft belts) The only reason I noticed is I marked the belts for my cam swap, and the marks are still there. And my Oil pressure light is flickering, fortunately I know thats more than likely the Oil pressure sender, as thats something that these cars have happen often.

I’m in no condition (physically or mentally) to fix this myself these days. I barely have the energy to get to work most days, and when I’m home, most days I just feel like sleeping.

I finally have some money saved up for labor, I’m hoping to find a shop in the DFW area to have the car repaired properly. I’m embarassed to say this, but I could use a little help with parts, not freebies, I’d just like to get the car fixed and drivable as inexpensively as possible, so I can start getting my life back together and begin enjoying being out of the house.

Thanks to everyone I still chat with on occasion for the kind words, and support over the past few years that I haven’t been able to participate actively. I’m hoping that I’ll be able to get back into this stuff in the near future, especially to release the sorely needed updates for the free ECU Unlocker and Mitsulogger programs. (both of which have tens of thousands of downloads)

Lenovo S10 Review

Lenovo S10 by OdzBodkinz@s10lenovo forums
photo of Lenovo S10 courtesy of www.iflphoto.com

I use my S10 daily at work, then for extended periods at home at times.

The S10  sits next to my Lenovo work laptop. Going back and forth is a piece of cake, the keyboard is smaller, but not “an adjustment”

Previously I was using a Toshiba Libretto U105 almost constantly for 2 years until it began to have sporatic issues and finally refused to boot.

Here’s my opinion of the S10… Its awesome, it can play most portable video formats without any performance issues, I frequently work with Adobe CS4 (previously CS3), I’ve rendered and modeled using DAZ3D and other freeware graphics applications. Its obviously slower than most current full-featured laptops or desktops, but its fully capable of doing most tasks a regular laptop can as long as you don’t have unrealistic expectations. However most applications are snappy and responsive.

Let me preface this a bit, I have been using ultraportables for years, so the Lenovo is actually similar in size to the IBM 240x laptop, I’ve had several of those that I used for tuning my race car and while racing. I finally ended up with a Toshiba Libretto U105.. I have always done similar tasks on all of these machines, tuning, graphics, web, programming in Visual Studio, etc..

This current Lenovo is fantastic, performance wise, its equivalent to the Toshiba Libretto with its 1.0ghz mobile processor

My S10 is modified, It has a Lenovo OEM 6 cell battery, 128gb Patriot SSD, 2gb of ram, HelloWifi Bluetooth module, among a few other things. It runs Windows XP Professional Without much effort to disable unecessary services, Its tuned specifically for solid state disk, so random writes are minimized, I don’t run a swapfile, and I DO STILL use write caching. Apps running all the time are SpyBot, AVG Free, Zonealarm Free, Daemon Tools, and Lenovo Bluetooth Stack.

Performance is still snappy, but again, I don’t have unrealistic expectations for it, and every time I try to do something I expect it to have disappointing performance, I’m completely and unexpectedly impressed.

I had earlier purchased several Netbooks, Asus Eee, HP 2133, all were returned shortly after purchase. The HP got some upgraded ram, and an SSD in my testing process, and it was a HUGE disappointment, under Vista and XP it performed poorly (as did the Asus) I really wanted the higher 1280×768 screen that the HP offered, but was utterly disgusted with it and returned it.

The one thing the Lenovo lacks, that I would have liked, is the WXGA (1280×768) screen, however I’ve become accustomed to the 1024×600 and its “okay” for daily use. If they released a new version of the S10 with the higher resolution (same overall 10.2 inch screen) I would buy it in a heartbeat.

The S10 is larger than the Libretto, by about an Inch wide, and inch long. Its smaller than the IBM 240x by 1.5″, but its the exact same width (both machines fit the same custom fit Laptop Bag easily)

I would not hesitate to use this machine as a work machine, Office and other productivity tools work great. Forget video games, its 3DMark performance is laughable though.

Wireless works pretty well, I’ve copied large files for sustained periods of time, transfer speeds were definitely better than other machines, but not quite as fast as my “Entertainment Laptop, the HP DV5″

What I can tell you is the reception is really good, I get a good signal in a room of my house where most of my other machines would have Poor reception.

The one really cool thing about the Lenovo is how easily you can update the wireless card, I have experimented with using different devices in the mini-PCI slot, some work, some don’t. My goal is to remove the wireless card and run a 3G WWAN card (most don’t have built-in sim slots so I have to find a sim card slot and mount it somewhere) and run a USB or Expresscard32 ABGN card.

When I am home, I have access to several different computers, an HP DV5 laptop, a Gateway Quad core desktop, another gaming machine with 8gb overclocked at 3.5ghz quad core proc, dual 24” screens etc.. Guess what machine gets the most use.. With 5 hours of battery life, and the ability to use remote desktop to get to my work and other server machines, I can spend time with my family and get tons of things done at the same time.

This computer is more than a Netbook, its probably one of my all-time favorite computers I’ve ever owned. Sometimes its not about ultimate performance, being biggest or smallest, it just does everything I would like to do, well enough to be completely useful to me.

Those of you who have complaints, have much higher expectations for this machine than you really should have, but I have personally used most of the products on the market, from low end PC’s, to ultra-performance desktops and laptops, and the S10 does everything its expected to do, much better than its netbook bretheran, additionally, it does as well, if not better, than most older small and ultra portable laptops that would have cost much more.

In the end, the only thing I would trade my S10 for is an upgraded version of this model, with a higher resolutions screen, if they see fit to offer it, or a Flybook V5

I am uniquely in the position where my decision for an ultraportable is motivated by usability and not price. Yet this machine is a HUGE bargain too.

Computer Tech, Car Tech, DIY, Hardware Hacking