Here's the updated script.
It will prompt for an input (prefilled with the power line) for the command to enter.
Code:
Dim w,url,pwrcode,userid,password,bexit
userid="youruserid"
password="yourpassword"
bexit=false
url="http://" & userid & ":" & password & "@my.router/Main_AdmStatus_Content.asp"
pwrcode="/usr/sbin/wl -i eth2 txpwr 84"
'create internet explorer object
on error resume next
Set w=CreateObject("internetexplorer.application")
if w is nothing or err.number<>0 then
msgbox "Can't create IE!"
bexit=true
end if
pwrcode=inputbox("Please enter the command","ASUS Commander",pwrcode)
If pwrcode<>"" and not bexit Then
'login and wait for it
w.navigate2 url
do while w.busy
doevents
loop
'now "enter" the code
w.document.forms(0).SystemCmd.value=pwrcode
'and submit the form
w.document.forms(0).submit
'again wait for it to end
do while w.busy
doevents
loop
msgbox "Command executed!"
end if
'clean up
set w=nothing
Antiloop: If you want email me, maybe we can build a tool in ASP(.NET) or VB(.NET).