%@ Language="VBScript" %><%
dim url, xmlhttp, user, pass, IP, info
dim DSA, SNRA, USA, DSFA
dim loginurl, dataurl
dim start, omega, index, ds, snr, us, length, dsf
Login
Fetch
Data
Display
Response.End
Sub Display()
Response.Write ("
SMC data")
Response.Write ("# | Channel 1 | Channel 2 | Channel 3 | Channel 4 |
")
Response.Write ("DS | [" & cdbl(DSA(0)) & "] | [" & cdbl(DSA(1)) & "] | [" & cdbl(DSA(2)) & "] | [" & cdbl(DSA(3)) & "] |
")
Response.Write ("SNR | [" & cdbl(SNRA(0)) & "] | [" & cdbl(SNRA(1)) & "] | [" & cdbl(SNRA(2)) & "] | [" & cdbl(SNRA(3)) & "] |
")
Response.Write ("US | [" & cdbl(USA(0)) & "] | [" & cdbl(USA(1)) & "] | [" & cdbl(USA(2)) & "] | [" & cdbl(USA(3)) & "] |
")
Response.Write ("
")
Response.Write ("")
End Sub
Sub Login()
user = "cusadmin"
pass = "Password" 'edited
IP = "IP of Cablemodem" 'edited to hide the IP
loginurl = "http://" & IP & "/goform/login?user=" & user & "&pws=" & pass
dataurl = "http://" & IP & "/user/feat-gateway-modem.asp"
End Sub
Sub fetch()
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "GET", loginurl, 0
xmlhttp.send ""
xmlhttp.open "GET", dataurl, 0
xmlhttp.send ""
'Response.Write (xmlhttp.responseText)
info = xmlhttp.responseText
Set xmlhttp = Nothing
end sub
Sub data()
index = 10
start = InStr(info, "BmVBase")
omega = InStr(start + index+1, info, """")
length = omega - start - index-1
ds = Mid(info, start+index+1, length)
DSA = Split(ds, "|", 4)
index = 12
start = InStr(info, "SnrBase")
omega = InStr(start + index+1, info, """")
length = omega - start - index-1
snr = Mid(info, start+index+1, length)
SNRA = Split(snr, "|", 4)
index = 15
start = InStr(info, "PowerBase")
omega = InStr(start + index+1, info, """")
length = omega - start - index-1
us = Mid(info, start+index+1, length)
USA = Split(us, "|", 4)
end sub
%>