Why - I have my internet connection through a wireless provider and have run into issues with it getting stuck and not routeing traffic. I found clicking on the connection in my task bar and choosing repair tended to fix the issue. This problem only seem to happen when I am using my bittorrent client which tells me its probably just a limitation on the wireless adapter that I am hitting.
What - I started looking for a windows solution to correct this issue or self-heal it when it became unresponsive. I really could not find anything and kept thinking if this were a unix box I could write a short script to take care of it. Then the giant light bulb went off over my head and I realized I could write a TCL script to do just that with ActiveTCL and a some windows knowledge.
How - First I downloaded and installed ActiveTCL from activestates website. I also needed a program called devcon that can be found on Microsofts website as a free download.
I created a directory on my system under c:\ called batch. This is where I will put all of these tools for future reference to the reader.
I put the devcon.exe file in c:\batch. You can use "devcon find =net" to find your interface. It will be a string that looks something like: ROOT\SOMETHING\ELSE NOTE: Remember to escape the \ like this \\ so that tcl does not choke on it.
The IP address that is being pinged is simply the gateway address of the router I connect to. I use only one ping and wait for a reply. If I get a "reply timed out" message, we correct the problem. Otherwise do nothing. If I do not get a Reply from message or timed out message I will go ahead and attempt to correct regardless.
Original Source - Please do not edit.
wm withdraw .
proc writelog {data} {
set timestamp [clock format [clock seconds] -format {%D %X}]
set fileId [open c:\\batch\\winnetfix.log a+]
puts $fileId "$timestamp - $data"
close $fileId
}
catch {exec c:\\windows\\system32\\ping.exe -n 1 192.168.1.1} result
switch -glob $result {
*from* {set connection 1}
*timed* (set connection 0; writelog "Timed Out"}
default {set connection 0; writelog "Default Used"}
}
if {$connection == 0} {
catch {exec c:\\batch\\devcon.exe disable @USB\\VID_07B8&PID_6001\\6&3534C65&0&5 } disable
catch {exec c:\\batch\\devcon.exe enable @USB\\VID_07B8&PID_6001\\6&3534C65&0&5 } enable
writelog "Fixed Connection!"
exit
}
exitRevised Source - Feel free to correct
wm withdraw .
proc writelog {data} {
set timestamp [clock format [clock seconds] -format {%D %X}]
set fileId [open c:/batch/winnetfix.log a+]
puts $fileId "$timestamp - $data"
close $fileId
}
catch {exec c:/windows/system32/ping.exe -n 1 192.168.1.1} result
switch -glob $result {
*from* {set connection 1}
*timed* (set connection 0; writelog "Timed Out"}
default {set connection 0; writelog "Default Used"}
}
if {$connection == 0} {
catch {exec c:/batch/devcon.exe disable @USB\\VID_07B8&PID_6001\\6&3534C65&0&5 } disable
catch {exec c:/batch/devcon.exe enable @USB\\VID_07B8&PID_6001\\6&3534C65&0&5 } enable
writelog "Fixed Connection!"
exit
}
exitRT For one, you can replace all the escaped backslashes in the first argument to exec and in the open command with a single forward quote. Don't replace backslashes in latter arguments to exec - 15Mar07
TJC Do you mean like in the Revised Source? - 15Mar07
Questions - If there are any questions or suggestions on how to make this better please feel free to add them here. I will be sure to keep an eye on this page to see what everyone comes up with. Tory Clement