Dead IP's
This issue resurfaces from time to time and it has been continuing in Cape Town for the last six months if not longer and it doesn’t seem as if iBurst is able to resolve the issue permanently.
Some threads on the subject:
**********************
http://mybroadband.co.za/vb/showthread.php?t=28356
http://mybroadband.co.za/vb/showthread.php?t=44800
http://mybroadband.co.za/vb/showthread.php?t=51957
http://mybroadband.co.za/vb/showthread.php?t=56531
http://mybroadband.co.za/vb/showthread.php?t=57125
http://mybroadband.co.za/vb/showthread.php?t=57427
The script below (written by seburn) might do the trick: (Ask if you need help)
Copy the text below into Notepad and save it as iBurst.vbs or any other suitable name; change the following three variables; username="
[email protected]" and password="
password" and arrayBadip=Array(
"224","225","226") then double click.
You also have the option to
uncomment the pop-up
msgboxes with the
' character or change the msgs as you see fit.
' *************************************************************** '
' * Initialize some variables.* '
' *************************************************************** '
Dim strDUN
strDUN="iBurst"
username="
[email protected]"
password="password"
arrayBadip=Array("224","225","226")
'uncomment the line below for debug
msgbox "Click OK to connect to the internet."
incorrectIP=true
while incorrectIp
InternetConnect
ip=GetIp
incorrectIp=false
thirdOct=ip
thirdOct=right(thirdOct,len(thirdOct)-instr(thirdOct,"."))
thirdOct=right(thirdOct,len(thirdOct)-instr(thirdOct,"."))
thirdOct=left(thirdOct,instr(thirdOct,".")-1)
for i=0 to ubound(arrayBadip)
if thirdOct=arrayBadip(i) then
'uncomment the line below for debug
msgbox "IP of Death found – Click OK to retry :"&ip&""
incorrectIp=true
InternetDisconnect
end if
Next
if incorrectIp=false then
'uncomment the line below for debug
msgbox "Congratulations you have won the iBurst IP lottery! You are now connected with IP Address: "&ip&""
end if
wend
' *********************************************************************** '
' * Subroutine to connect to the internet. * '
' *********************************************************************** '
Sub InternetConnect()
commandLine = "rasdial "&strDUN&" "&userName&" "&password
Set WshShell = CreateObject("WScript.Shell")
call WshShell.Run (commandLine,8,true)
set WshShell=nothing
End Sub
' *********************************************************************** '
' * Subroutine to disconnect from the internet. * '
' *********************************************************************** '
Sub InternetDisconnect()
commandLine = "rasdial "&strDUN&" /Disconnect"
Set WshShell = CreateObject("WScript.Shell")
call WshShell.Run (commandLine,8,true)
set WshShell=nothing
End Sub
' *********************************************************************** '
' * Subroutine to get ip address. * '
' *********************************************************************** '
Function GetIP()
Dim ws : Set ws = CreateObject("WScript.Shell")
Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
Dim TmpFile : TmpFile = fso.GetSpecialFolder(2) & "/ip.txt"
Dim ThisLine, IP
If ws.Environment("SYSTEM")("OS") = "" Then
ws.run "winipcfg /batch " & TmpFile, 0, True
Else
ws.run "%comspec% /c ipconfig > " & TmpFile, 0, True
End If
With fso.GetFile(TmpFile).OpenAsTextStream
Do While NOT .AtEndOfStream
ThisLine = .ReadLine
If InStr(ThisLine, "Address") <> 0 Then IP = Mid(ThisLine, InStr(ThisLine, ":") + 2)
Loop
.Close
End With
'WinXP (NT? 2K?) leaves a carriage return at the end of line
If IP <> "" Then
If Asc(Right(IP, 1)) = 13 Then IP = Left(IP, Len(IP) - 1)
End If
GetIP = IP
fso.GetFile(TmpFile).Delete
Set fso = Nothing
Set ws = Nothing
End Function
* If you have a Netgear Router go to
http://192.168.1.1/RST_st_poe.htm and click disconnect and connect untill you have a suitable IP > xxx.xxx.224.xxx.
