N900 My Net Overheating - activate fan

Continuing the discussion from MyNet N900, expected temperatures; fan:

Couldn’t figure out how to edit the 109th line (If someone could post detailed info on how to do this it would be great)
I ended up making a vbs script to activate the fan at high speed…it can be changed to normal speed if desired. It seems only to work after a fresh router reboot and you have to be logged in by web browser when running the script. You also have to activate telnet on the router first as described in this link which also contains login info which can be changed for other routers.
http://wiki.openwrt.org/toh/wd/n900
Telnet program can be installed in windows by command line with these instructions:
https://technet.microsoft.com/en-ca/library/cc771275(v=ws.10).aspx#bkmk_installcmd
This dropped my temps from about 50c under load to 35c
Hopefully this helps some people to avoid frying their router and keep it cooler and more stable.
The end of the script opens a browser window to verify the fan speed and temps.
Copy and paste the below into a text file and rename to .vbs

Set cloner = CreateObject(“WScript.Shell”)
cloner.run"cmd"
WScript.Sleep 500

cloner.SendKeys"telnet 192.168.1.1"
cloner.SendKeys("{Enter}")
WScript.Sleep 500

cloner.SendKeys"Alphanetworks"
cloner.SendKeys("{Enter}")
WScript.Sleep 500

cloner.SendKeys"wrgnd15_wd_pro"
cloner.SendKeys("{Enter}")
WScript.Sleep 500

cloner.SendKeys"mfc fan highspeed"
cloner.SendKeys("{Enter}")
WScript.Sleep 500

cloner.SendKeys"exit"
cloner.SendKeys("{Enter}")
WScript.Sleep 300

cloner.SendKeys"exit"
cloner.SendKeys("{Enter}")

Set cloner = CreateObject(“WScript.Shell”)
cloner.run"cmd"
WScript.Sleep 500

cloner.SendKeys"start http://192.168.1.1/DevInfo.php"
cloner.SendKeys("{Enter}")
cloner.SendKeys"exit"
cloner.SendKeys("{Enter}")
WScript.Sleep 300

I’d recommend contacting the original poster. Private Message him asking for assistance.