<%@ 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 ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("
#Channel 1Channel 2Channel 3Channel 4
DS [" & cdbl(DSA(0)) & "][" & cdbl(DSA(1)) & "][" & cdbl(DSA(2)) & "][" & cdbl(DSA(3)) & "]
SNR [" & cdbl(SNRA(0)) & "][" & cdbl(SNRA(1)) & "][" & cdbl(SNRA(2)) & "][" & cdbl(SNRA(3)) & "]
US [" & cdbl(USA(0)) & "][" & cdbl(USA(1)) & "][" & cdbl(USA(2)) & "][" & cdbl(USA(3)) & "]
") 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 %>