Hi Jeff,
I've been setting up Movie Manager without much luck. When I point the browser to ..../setup.asp, I get the following message in log and no show of the setup screen.
9/28/2012 5:25:13 PM ~!~Web Server~!~Web Server authorized local login successful from: 192.168.0.122 User: hcooper
9/28/2012 5:25:33 PM ~!~Error~!~Script compile error: 'HttpUtility' is not a member of 'Web'.on line 27
9/28/2012 5:25:33 PM ~!~SCR~!~Option Strict OffImports VB = Microsoft.VisualBasicImports System.Web Imports System.IOImports System.Xml Imports System.DataImports System.Data.SqlClientimports Schedulerimports SystemPublic Module scriptcode4#Region "Automatically generated code, do not modify"'Automatically generated code, do not modify'Event Sources Begin <System.ContextStaticAttribute()> Public WithEvents hs As Scheduler.hsapplication <System.ContextStaticAttribute()> Public WithEvents hsp As scheduler.hsp <System.ContextStaticAttribute()> Public WithEvents hssystem As scheduler.phone0'Event Sources End'End of automatically generated code#End RegionPublic Dim debugMode As Boolean = falsePublic Dim sINI as String = "movies.ini"Public Dim IName = "MovieManager"Sub Main(Optional ByVal sParam as String = "") hs.WriteLog(IName,"You must specify the function name when calling this script.")End SubFunction urlEncode(ByVal sURL as String) Return System.Web.HttpUtility.UrlEncode(sURL)End FunctionFunction webAdminLinks(ByVal sChkUser as String) Dim aSort Dim x, nPriv, nLoop as Integer Dim fs, ss as Object Dim sURL, sBtn, sAlt, sLev, rtS, sPath, sSort as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) nPriv = webPermissions(sChkUser) if hs.GetINISetting("webPages","showMenu","1",sINI) = "1" Then sPath = hs.GetINISetting("adminPages","pagePath","movies",sINI) sSort = hs.GetINISetting("adminPages","pageSort","1",sINI) fs = hs.CreateStringClass ss = hs.CreateStringClass fs.Add("<br/>") aSort = Split(sSort,",") for x = 0 to aSort.GetUpperBound(0) nLoop = aSort(x) ss.Add("pageURL") ss.Add(nLoop) sURL = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset ss.Add("pageBtn") ss.Add(nLoop) sBtn = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset ss.Add("pageAlt") ss.Add(nLoop) sAlt = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset ss.Add("pageLev") ss.Add(nLoop) sLev = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset if (lCase(sLev)) <> "none" Then if (lCase(sLev) <> "admin") OR (nPriv = 1) Then if len(trim(sURL)) > 0 Then fs.Add("<input type=""button"" class=""functionrowbutton"" value=""") fs.Add(sBtn) fs.Add(""" alt=""") fs.Add(sAlt) fs.Add(""" onClick=""location.href='/") fs.Add(sPath) fs.Add("/") fs.Add(sURL) fs.Add("'"" onmouseover=""this.className='functionrowbuttonselected';"" onmouseout=""this.className='functionrowbutton';"">") End if End if End if Next rtS = fs.Value ss = Nothing fs = Nothing End if Return rtSEnd FunctionFunction webPageLinks(ByVal sChkUser as String) Dim aSort Dim x, nPriv, nLoop as Integer Dim fs, ss as Object Dim sURL, sBtn, sAlt, sLev, rtS, sPath, sSort as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) nPriv = webPermissions(sChkUser) if hs.GetINISetting("webPages","showMenu","1",sINI) = "1" Then sPath = hs.GetINISetting("webPages","pagePath","movies",sINI) sSort = hs.GetINISetting("webPages","pageSort","1,2",sINI) fs = hs.CreateStringClass ss = hs.CreateStringClass fs.Add("<br/>") aSort = Split(sSort,",") for x = 0 to aSort.GetUpperBound(0) nLoop = aSort(x) ss.Add("pageURL") ss.Add(nLoop) sURL = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset ss.Add("pageBtn") ss.Add(nLoop) sBtn = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset ss.Add("pageAlt") ss.Add(nLoop) sAlt = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset ss.Add("pageLev") ss.Add(nLoop) sLev = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset if (lCase(sLev)) <> "none" Then if (lCase(sLev) <> "admin") OR (nPriv = 1) Then if len(trim(sURL)) > 0 Then fs.Add("<input type=""button"" class=""functionrowbutton"" value=""") fs.Add(sBtn) fs.Add(""" alt=""") fs.Add(sAlt) fs.Add(""" onClick=""location.href='/") fs.Add(sPath) fs.Add("/") fs.Add(sURL) fs.Add("'"" onmouseover=""this.className='functionrowbuttonselected';"" onmouseout=""this.className='functionrowbutton';"">") End if End if End if Next rtS = fs.Value ss = Nothing fs = Nothing End if Return rtSEnd FunctionFunction webNoAccess(Optional ByVal sName as String = "") as String Dim na as Object Dim rtS as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) na = hs.CreateStringClass na.Add("<table border=""0"" cellpadding=""0"" cellspacing=""1"">") na.Add("<tr><td class=""pagetitle""><span style=""display='';"" id=""pgtitle"">Page Access</span></td></tr>") na.Add("<tr><td class=""tablecolumn"">You do not have access to this page.</td></tr></table>") rtS = na.Value na = Nothing Return rtSEnd FunctionFunction webNotActive(Optional ByVal sName as String = "") as String Dim na as Object Dim rtS as String na = hs.CreateStringClass na.Add("<table border=""0"" cellpadding=""0"" cellspacing=""1"">") na.Add("<tr><td class=""pagetitle""><span style=""display='';"" id=""pgtitle"">Page Access</span></td></tr>") na.Add("<tr><td class=""tablecolumn"">This page is not active.</td></tr></table>") rtS = na.Value na = Nothing Return rtSEnd FunctionFunction webPageAccess(ByVal sPageName as String) as String Dim aType, aList as Array Dim x, nList as Integer Dim ca as Object Dim rtS, sList, sPage, sType as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) rtS = "none" aType = split(sPageName,"|") if aType.GetUpperBound(0) = 1 Then sType = "adminPages" sPageName = aType(0) sList = hs.GetINISetting("adminPages","pageSort","1",sINI) aList = Split(sList,",") nList = aList.GetUpperBound(0)+1 Else sType = "webPages" sList = hs.GetINISetting("webPages","pageSort","1",sINI) aList = Split(sList,",") nList = aList.GetUpperBound(0)+1 End if ca = hs.CreateStringClass for x = 1 to nList ca.Add("pageURL") ca.Add(x) sPage = hs.GetINISetting(sType,ca.Value,"",sINI) ca.Reset if LCase(sPage) = LCase(sPageName) Then ca.Add("pageLev") ca.Add(x) rtS = lCase(hs.GetINISetting(sType,ca.Value,"",sINI)) ca.Reset Exit for End if Next ca = Nothing Return rtSEnd FunctionFunction webPermissions(ByVal sChkUser as String) Dim arrUsers, arrPrivs as Array Dim x, nAdmin, nPriv as Integer Dim sAllUsers, sUser as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) sAllUsers = hs.GetUsers arrUsers = Split(sAllUsers, ",") nAdmin=0 For x = 0 To UBound(arrUsers) arrPrivs = Split(arrUsers(x),"|") sUser = arrPrivs(0) nPriv = arrPrivs(1) if lCase(sUser) = lCase(sChkUser) Then if nPriv AND 2 Then nAdmin=1 Exit for End if End if Next Return nAdminEnd FunctionEnd Module
9/28/2012 5:25:33 PM ~!~Error~!~Script compile error: 'HttpUtility' is not a member of 'Web'.on line 27
9/28/2012 5:25:33 PM ~!~SCR~!~Option Strict OffImports VB = Microsoft.VisualBasicImports System.Web Imports System.IOImports System.Xml Imports System.DataImports System.Data.SqlClientimports Schedulerimports SystemPublic Module scriptcode5#Region "Automatically generated code, do not modify"'Automatically generated code, do not modify'Event Sources Begin <System.ContextStaticAttribute()> Public WithEvents hs As Scheduler.hsapplication <System.ContextStaticAttribute()> Public WithEvents hsp As scheduler.hsp <System.ContextStaticAttribute()> Public WithEvents hssystem As scheduler.phone0'Event Sources End'End of automatically generated code#End RegionPublic Dim debugMode As Boolean = falsePublic Dim sINI as String = "movies.ini"Public Dim IName = "MovieManager"Sub Main(Optional ByVal sParam as String = "") hs.WriteLog(IName,"You must specify the function name when calling this script.")End SubFunction urlEncode(ByVal sURL as String) Return System.Web.HttpUtility.UrlEncode(sURL)End FunctionFunction webAdminLinks(ByVal sChkUser as String) Dim aSort Dim x, nPriv, nLoop as Integer Dim fs, ss as Object Dim sURL, sBtn, sAlt, sLev, rtS, sPath, sSort as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) nPriv = webPermissions(sChkUser) if hs.GetINISetting("webPages","showMenu","1",sINI) = "1" Then sPath = hs.GetINISetting("adminPages","pagePath","movies",sINI) sSort = hs.GetINISetting("adminPages","pageSort","1",sINI) fs = hs.CreateStringClass ss = hs.CreateStringClass fs.Add("<br/>") aSort = Split(sSort,",") for x = 0 to aSort.GetUpperBound(0) nLoop = aSort(x) ss.Add("pageURL") ss.Add(nLoop) sURL = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset ss.Add("pageBtn") ss.Add(nLoop) sBtn = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset ss.Add("pageAlt") ss.Add(nLoop) sAlt = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset ss.Add("pageLev") ss.Add(nLoop) sLev = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset if (lCase(sLev)) <> "none" Then if (lCase(sLev) <> "admin") OR (nPriv = 1) Then if len(trim(sURL)) > 0 Then fs.Add("<input type=""button"" class=""functionrowbutton"" value=""") fs.Add(sBtn) fs.Add(""" alt=""") fs.Add(sAlt) fs.Add(""" onClick=""location.href='/") fs.Add(sPath) fs.Add("/") fs.Add(sURL) fs.Add("'"" onmouseover=""this.className='functionrowbuttonselected';"" onmouseout=""this.className='functionrowbutton';"">") End if End if End if Next rtS = fs.Value ss = Nothing fs = Nothing End if Return rtSEnd FunctionFunction webPageLinks(ByVal sChkUser as String) Dim aSort Dim x, nPriv, nLoop as Integer Dim fs, ss as Object Dim sURL, sBtn, sAlt, sLev, rtS, sPath, sSort as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) nPriv = webPermissions(sChkUser) if hs.GetINISetting("webPages","showMenu","1",sINI) = "1" Then sPath = hs.GetINISetting("webPages","pagePath","movies",sINI) sSort = hs.GetINISetting("webPages","pageSort","1,2",sINI) fs = hs.CreateStringClass ss = hs.CreateStringClass fs.Add("<br/>") aSort = Split(sSort,",") for x = 0 to aSort.GetUpperBound(0) nLoop = aSort(x) ss.Add("pageURL") ss.Add(nLoop) sURL = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset ss.Add("pageBtn") ss.Add(nLoop) sBtn = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset ss.Add("pageAlt") ss.Add(nLoop) sAlt = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset ss.Add("pageLev") ss.Add(nLoop) sLev = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset if (lCase(sLev)) <> "none" Then if (lCase(sLev) <> "admin") OR (nPriv = 1) Then if len(trim(sURL)) > 0 Then fs.Add("<input type=""button"" class=""functionrowbutton"" value=""") fs.Add(sBtn) fs.Add(""" alt=""") fs.Add(sAlt) fs.Add(""" onClick=""location.href='/") fs.Add(sPath) fs.Add("/") fs.Add(sURL) fs.Add("'"" onmouseover=""this.className='functionrowbuttonselected';"" onmouseout=""this.className='functionrowbutton';"">") End if End if End if Next rtS = fs.Value ss = Nothing fs = Nothing End if Return rtSEnd FunctionFunction webNoAccess(Optional ByVal sName as String = "") as String Dim na as Object Dim rtS as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) na = hs.CreateStringClass na.Add("<table border=""0"" cellpadding=""0"" cellspacing=""1"">") na.Add("<tr><td class=""pagetitle""><span style=""display='';"" id=""pgtitle"">Page Access</span></td></tr>") na.Add("<tr><td class=""tablecolumn"">You do not have access to this page.</td></tr></table>") rtS = na.Value na = Nothing Return rtSEnd FunctionFunction webNotActive(Optional ByVal sName as String = "") as String Dim na as Object Dim rtS as String na = hs.CreateStringClass na.Add("<table border=""0"" cellpadding=""0"" cellspacing=""1"">") na.Add("<tr><td class=""pagetitle""><span style=""display='';"" id=""pgtitle"">Page Access</span></td></tr>") na.Add("<tr><td class=""tablecolumn"">This page is not active.</td></tr></table>") rtS = na.Value na = Nothing Return rtSEnd FunctionFunction webPageAccess(ByVal sPageName as String) as String Dim aType, aList as Array Dim x, nList as Integer Dim ca as Object Dim rtS, sList, sPage, sType as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) rtS = "none" aType = split(sPageName,"|") if aType.GetUpperBound(0) = 1 Then sType = "adminPages" sPageName = aType(0) sList = hs.GetINISetting("adminPages","pageSort","1",sINI) aList = Split(sList,",") nList = aList.GetUpperBound(0)+1 Else sType = "webPages" sList = hs.GetINISetting("webPages","pageSort","1",sINI) aList = Split(sList,",") nList = aList.GetUpperBound(0)+1 End if ca = hs.CreateStringClass for x = 1 to nList ca.Add("pageURL") ca.Add(x) sPage = hs.GetINISetting(sType,ca.Value,"",sINI) ca.Reset if LCase(sPage) = LCase(sPageName) Then ca.Add("pageLev") ca.Add(x) rtS = lCase(hs.GetINISetting(sType,ca.Value,"",sINI)) ca.Reset Exit for End if Next ca = Nothing Return rtSEnd FunctionFunction webPermissions(ByVal sChkUser as String) Dim arrUsers, arrPrivs as Array Dim x, nAdmin, nPriv as Integer Dim sAllUsers, sUser as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) sAllUsers = hs.GetUsers arrUsers = Split(sAllUsers, ",") nAdmin=0 For x = 0 To UBound(arrUsers) arrPrivs = Split(arrUsers(x),"|") sUser = arrPrivs(0) nPriv = arrPrivs(1) if lCase(sUser) = lCase(sChkUser) Then if nPriv AND 2 Then nAdmin=1 Exit for End if End if Next Return nAdminEnd FunctionEnd Module
9/28/2012 5:25:33 PM ~!~Error~!~Script compile error: 'HttpUtility' is not a member of 'Web'.on line 27
9/28/2012 5:25:33 PM ~!~SCR~!~Option Strict OffImports VB = Microsoft.VisualBasicImports System.Web Imports System.IOImports System.Xml Imports System.DataImports System.Data.SqlClientimports Schedulerimports SystemPublic Module scriptcode6#Region "Automatically generated code, do not modify"'Automatically generated code, do not modify'Event Sources Begin <System.ContextStaticAttribute()> Public WithEvents hs As Scheduler.hsapplication <System.ContextStaticAttribute()> Public WithEvents hsp As scheduler.hsp <System.ContextStaticAttribute()> Public WithEvents hssystem As scheduler.phone0'Event Sources End'End of automatically generated code#End RegionPublic Dim debugMode As Boolean = falsePublic Dim sINI as String = "movies.ini"Public Dim IName = "MovieManager"Sub Main(Optional ByVal sParam as String = "") hs.WriteLog(IName,"You must specify the function name when calling this script.")End SubFunction urlEncode(ByVal sURL as String) Return System.Web.HttpUtility.UrlEncode(sURL)End FunctionFunction webAdminLinks(ByVal sChkUser as String) Dim aSort Dim x, nPriv, nLoop as Integer Dim fs, ss as Object Dim sURL, sBtn, sAlt, sLev, rtS, sPath, sSort as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) nPriv = webPermissions(sChkUser) if hs.GetINISetting("webPages","showMenu","1",sINI) = "1" Then sPath = hs.GetINISetting("adminPages","pagePath","movies",sINI) sSort = hs.GetINISetting("adminPages","pageSort","1",sINI) fs = hs.CreateStringClass ss = hs.CreateStringClass fs.Add("<br/>") aSort = Split(sSort,",") for x = 0 to aSort.GetUpperBound(0) nLoop = aSort(x) ss.Add("pageURL") ss.Add(nLoop) sURL = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset ss.Add("pageBtn") ss.Add(nLoop) sBtn = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset ss.Add("pageAlt") ss.Add(nLoop) sAlt = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset ss.Add("pageLev") ss.Add(nLoop) sLev = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset if (lCase(sLev)) <> "none" Then if (lCase(sLev) <> "admin") OR (nPriv = 1) Then if len(trim(sURL)) > 0 Then fs.Add("<input type=""button"" class=""functionrowbutton"" value=""") fs.Add(sBtn) fs.Add(""" alt=""") fs.Add(sAlt) fs.Add(""" onClick=""location.href='/") fs.Add(sPath) fs.Add("/") fs.Add(sURL) fs.Add("'"" onmouseover=""this.className='functionrowbuttonselected';"" onmouseout=""this.className='functionrowbutton';"">") End if End if End if Next rtS = fs.Value ss = Nothing fs = Nothing End if Return rtSEnd FunctionFunction webPageLinks(ByVal sChkUser as String) Dim aSort Dim x, nPriv, nLoop as Integer Dim fs, ss as Object Dim sURL, sBtn, sAlt, sLev, rtS, sPath, sSort as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) nPriv = webPermissions(sChkUser) if hs.GetINISetting("webPages","showMenu","1",sINI) = "1" Then sPath = hs.GetINISetting("webPages","pagePath","movies",sINI) sSort = hs.GetINISetting("webPages","pageSort","1,2",sINI) fs = hs.CreateStringClass ss = hs.CreateStringClass fs.Add("<br/>") aSort = Split(sSort,",") for x = 0 to aSort.GetUpperBound(0) nLoop = aSort(x) ss.Add("pageURL") ss.Add(nLoop) sURL = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset ss.Add("pageBtn") ss.Add(nLoop) sBtn = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset ss.Add("pageAlt") ss.Add(nLoop) sAlt = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset ss.Add("pageLev") ss.Add(nLoop) sLev = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset if (lCase(sLev)) <> "none" Then if (lCase(sLev) <> "admin") OR (nPriv = 1) Then if len(trim(sURL)) > 0 Then fs.Add("<input type=""button"" class=""functionrowbutton"" value=""") fs.Add(sBtn) fs.Add(""" alt=""") fs.Add(sAlt) fs.Add(""" onClick=""location.href='/") fs.Add(sPath) fs.Add("/") fs.Add(sURL) fs.Add("'"" onmouseover=""this.className='functionrowbuttonselected';"" onmouseout=""this.className='functionrowbutton';"">") End if End if End if Next rtS = fs.Value ss = Nothing fs = Nothing End if Return rtSEnd FunctionFunction webNoAccess(Optional ByVal sName as String = "") as String Dim na as Object Dim rtS as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) na = hs.CreateStringClass na.Add("<table border=""0"" cellpadding=""0"" cellspacing=""1"">") na.Add("<tr><td class=""pagetitle""><span style=""display='';"" id=""pgtitle"">Page Access</span></td></tr>") na.Add("<tr><td class=""tablecolumn"">You do not have access to this page.</td></tr></table>") rtS = na.Value na = Nothing Return rtSEnd FunctionFunction webNotActive(Optional ByVal sName as String = "") as String Dim na as Object Dim rtS as String na = hs.CreateStringClass na.Add("<table border=""0"" cellpadding=""0"" cellspacing=""1"">") na.Add("<tr><td class=""pagetitle""><span style=""display='';"" id=""pgtitle"">Page Access</span></td></tr>") na.Add("<tr><td class=""tablecolumn"">This page is not active.</td></tr></table>") rtS = na.Value na = Nothing Return rtSEnd FunctionFunction webPageAccess(ByVal sPageName as String) as String Dim aType, aList as Array Dim x, nList as Integer Dim ca as Object Dim rtS, sList, sPage, sType as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) rtS = "none" aType = split(sPageName,"|") if aType.GetUpperBound(0) = 1 Then sType = "adminPages" sPageName = aType(0) sList = hs.GetINISetting("adminPages","pageSort","1",sINI) aList = Split(sList,",") nList = aList.GetUpperBound(0)+1 Else sType = "webPages" sList = hs.GetINISetting("webPages","pageSort","1",sINI) aList = Split(sList,",") nList = aList.GetUpperBound(0)+1 End if ca = hs.CreateStringClass for x = 1 to nList ca.Add("pageURL") ca.Add(x) sPage = hs.GetINISetting(sType,ca.Value,"",sINI) ca.Reset if LCase(sPage) = LCase(sPageName) Then ca.Add("pageLev") ca.Add(x
Pardon the garbage but there's even more. Since this occurs so early in process of install/setup, I'm not sure where to look. Just FYI, here's the entry in the settings.ini for Scripting Reference:
ScriptingReferences=System.XML;System.XML.dll,System.Data;Sy stem.Data.Dll;System.web;System.Web.DLL;HSPI_SKYPE;C:\Progra m Files\HomeSeer 2\hspi_skype.dll
Anyway, I'm at a loss to get anywhere into setup, etc. I'd appreciate some counsel. BTW FWIW the HS directory is Homeseer 2 (not Homeseer HS2).
Thanks in advance
I've been setting up Movie Manager without much luck. When I point the browser to ..../setup.asp, I get the following message in log and no show of the setup screen.
9/28/2012 5:25:13 PM ~!~Web Server~!~Web Server authorized local login successful from: 192.168.0.122 User: hcooper
9/28/2012 5:25:33 PM ~!~Error~!~Script compile error: 'HttpUtility' is not a member of 'Web'.on line 27
9/28/2012 5:25:33 PM ~!~SCR~!~Option Strict OffImports VB = Microsoft.VisualBasicImports System.Web Imports System.IOImports System.Xml Imports System.DataImports System.Data.SqlClientimports Schedulerimports SystemPublic Module scriptcode4#Region "Automatically generated code, do not modify"'Automatically generated code, do not modify'Event Sources Begin <System.ContextStaticAttribute()> Public WithEvents hs As Scheduler.hsapplication <System.ContextStaticAttribute()> Public WithEvents hsp As scheduler.hsp <System.ContextStaticAttribute()> Public WithEvents hssystem As scheduler.phone0'Event Sources End'End of automatically generated code#End RegionPublic Dim debugMode As Boolean = falsePublic Dim sINI as String = "movies.ini"Public Dim IName = "MovieManager"Sub Main(Optional ByVal sParam as String = "") hs.WriteLog(IName,"You must specify the function name when calling this script.")End SubFunction urlEncode(ByVal sURL as String) Return System.Web.HttpUtility.UrlEncode(sURL)End FunctionFunction webAdminLinks(ByVal sChkUser as String) Dim aSort Dim x, nPriv, nLoop as Integer Dim fs, ss as Object Dim sURL, sBtn, sAlt, sLev, rtS, sPath, sSort as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) nPriv = webPermissions(sChkUser) if hs.GetINISetting("webPages","showMenu","1",sINI) = "1" Then sPath = hs.GetINISetting("adminPages","pagePath","movies",sINI) sSort = hs.GetINISetting("adminPages","pageSort","1",sINI) fs = hs.CreateStringClass ss = hs.CreateStringClass fs.Add("<br/>") aSort = Split(sSort,",") for x = 0 to aSort.GetUpperBound(0) nLoop = aSort(x) ss.Add("pageURL") ss.Add(nLoop) sURL = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset ss.Add("pageBtn") ss.Add(nLoop) sBtn = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset ss.Add("pageAlt") ss.Add(nLoop) sAlt = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset ss.Add("pageLev") ss.Add(nLoop) sLev = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset if (lCase(sLev)) <> "none" Then if (lCase(sLev) <> "admin") OR (nPriv = 1) Then if len(trim(sURL)) > 0 Then fs.Add("<input type=""button"" class=""functionrowbutton"" value=""") fs.Add(sBtn) fs.Add(""" alt=""") fs.Add(sAlt) fs.Add(""" onClick=""location.href='/") fs.Add(sPath) fs.Add("/") fs.Add(sURL) fs.Add("'"" onmouseover=""this.className='functionrowbuttonselected';"" onmouseout=""this.className='functionrowbutton';"">") End if End if End if Next rtS = fs.Value ss = Nothing fs = Nothing End if Return rtSEnd FunctionFunction webPageLinks(ByVal sChkUser as String) Dim aSort Dim x, nPriv, nLoop as Integer Dim fs, ss as Object Dim sURL, sBtn, sAlt, sLev, rtS, sPath, sSort as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) nPriv = webPermissions(sChkUser) if hs.GetINISetting("webPages","showMenu","1",sINI) = "1" Then sPath = hs.GetINISetting("webPages","pagePath","movies",sINI) sSort = hs.GetINISetting("webPages","pageSort","1,2",sINI) fs = hs.CreateStringClass ss = hs.CreateStringClass fs.Add("<br/>") aSort = Split(sSort,",") for x = 0 to aSort.GetUpperBound(0) nLoop = aSort(x) ss.Add("pageURL") ss.Add(nLoop) sURL = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset ss.Add("pageBtn") ss.Add(nLoop) sBtn = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset ss.Add("pageAlt") ss.Add(nLoop) sAlt = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset ss.Add("pageLev") ss.Add(nLoop) sLev = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset if (lCase(sLev)) <> "none" Then if (lCase(sLev) <> "admin") OR (nPriv = 1) Then if len(trim(sURL)) > 0 Then fs.Add("<input type=""button"" class=""functionrowbutton"" value=""") fs.Add(sBtn) fs.Add(""" alt=""") fs.Add(sAlt) fs.Add(""" onClick=""location.href='/") fs.Add(sPath) fs.Add("/") fs.Add(sURL) fs.Add("'"" onmouseover=""this.className='functionrowbuttonselected';"" onmouseout=""this.className='functionrowbutton';"">") End if End if End if Next rtS = fs.Value ss = Nothing fs = Nothing End if Return rtSEnd FunctionFunction webNoAccess(Optional ByVal sName as String = "") as String Dim na as Object Dim rtS as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) na = hs.CreateStringClass na.Add("<table border=""0"" cellpadding=""0"" cellspacing=""1"">") na.Add("<tr><td class=""pagetitle""><span style=""display='';"" id=""pgtitle"">Page Access</span></td></tr>") na.Add("<tr><td class=""tablecolumn"">You do not have access to this page.</td></tr></table>") rtS = na.Value na = Nothing Return rtSEnd FunctionFunction webNotActive(Optional ByVal sName as String = "") as String Dim na as Object Dim rtS as String na = hs.CreateStringClass na.Add("<table border=""0"" cellpadding=""0"" cellspacing=""1"">") na.Add("<tr><td class=""pagetitle""><span style=""display='';"" id=""pgtitle"">Page Access</span></td></tr>") na.Add("<tr><td class=""tablecolumn"">This page is not active.</td></tr></table>") rtS = na.Value na = Nothing Return rtSEnd FunctionFunction webPageAccess(ByVal sPageName as String) as String Dim aType, aList as Array Dim x, nList as Integer Dim ca as Object Dim rtS, sList, sPage, sType as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) rtS = "none" aType = split(sPageName,"|") if aType.GetUpperBound(0) = 1 Then sType = "adminPages" sPageName = aType(0) sList = hs.GetINISetting("adminPages","pageSort","1",sINI) aList = Split(sList,",") nList = aList.GetUpperBound(0)+1 Else sType = "webPages" sList = hs.GetINISetting("webPages","pageSort","1",sINI) aList = Split(sList,",") nList = aList.GetUpperBound(0)+1 End if ca = hs.CreateStringClass for x = 1 to nList ca.Add("pageURL") ca.Add(x) sPage = hs.GetINISetting(sType,ca.Value,"",sINI) ca.Reset if LCase(sPage) = LCase(sPageName) Then ca.Add("pageLev") ca.Add(x) rtS = lCase(hs.GetINISetting(sType,ca.Value,"",sINI)) ca.Reset Exit for End if Next ca = Nothing Return rtSEnd FunctionFunction webPermissions(ByVal sChkUser as String) Dim arrUsers, arrPrivs as Array Dim x, nAdmin, nPriv as Integer Dim sAllUsers, sUser as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) sAllUsers = hs.GetUsers arrUsers = Split(sAllUsers, ",") nAdmin=0 For x = 0 To UBound(arrUsers) arrPrivs = Split(arrUsers(x),"|") sUser = arrPrivs(0) nPriv = arrPrivs(1) if lCase(sUser) = lCase(sChkUser) Then if nPriv AND 2 Then nAdmin=1 Exit for End if End if Next Return nAdminEnd FunctionEnd Module
9/28/2012 5:25:33 PM ~!~Error~!~Script compile error: 'HttpUtility' is not a member of 'Web'.on line 27
9/28/2012 5:25:33 PM ~!~SCR~!~Option Strict OffImports VB = Microsoft.VisualBasicImports System.Web Imports System.IOImports System.Xml Imports System.DataImports System.Data.SqlClientimports Schedulerimports SystemPublic Module scriptcode5#Region "Automatically generated code, do not modify"'Automatically generated code, do not modify'Event Sources Begin <System.ContextStaticAttribute()> Public WithEvents hs As Scheduler.hsapplication <System.ContextStaticAttribute()> Public WithEvents hsp As scheduler.hsp <System.ContextStaticAttribute()> Public WithEvents hssystem As scheduler.phone0'Event Sources End'End of automatically generated code#End RegionPublic Dim debugMode As Boolean = falsePublic Dim sINI as String = "movies.ini"Public Dim IName = "MovieManager"Sub Main(Optional ByVal sParam as String = "") hs.WriteLog(IName,"You must specify the function name when calling this script.")End SubFunction urlEncode(ByVal sURL as String) Return System.Web.HttpUtility.UrlEncode(sURL)End FunctionFunction webAdminLinks(ByVal sChkUser as String) Dim aSort Dim x, nPriv, nLoop as Integer Dim fs, ss as Object Dim sURL, sBtn, sAlt, sLev, rtS, sPath, sSort as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) nPriv = webPermissions(sChkUser) if hs.GetINISetting("webPages","showMenu","1",sINI) = "1" Then sPath = hs.GetINISetting("adminPages","pagePath","movies",sINI) sSort = hs.GetINISetting("adminPages","pageSort","1",sINI) fs = hs.CreateStringClass ss = hs.CreateStringClass fs.Add("<br/>") aSort = Split(sSort,",") for x = 0 to aSort.GetUpperBound(0) nLoop = aSort(x) ss.Add("pageURL") ss.Add(nLoop) sURL = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset ss.Add("pageBtn") ss.Add(nLoop) sBtn = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset ss.Add("pageAlt") ss.Add(nLoop) sAlt = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset ss.Add("pageLev") ss.Add(nLoop) sLev = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset if (lCase(sLev)) <> "none" Then if (lCase(sLev) <> "admin") OR (nPriv = 1) Then if len(trim(sURL)) > 0 Then fs.Add("<input type=""button"" class=""functionrowbutton"" value=""") fs.Add(sBtn) fs.Add(""" alt=""") fs.Add(sAlt) fs.Add(""" onClick=""location.href='/") fs.Add(sPath) fs.Add("/") fs.Add(sURL) fs.Add("'"" onmouseover=""this.className='functionrowbuttonselected';"" onmouseout=""this.className='functionrowbutton';"">") End if End if End if Next rtS = fs.Value ss = Nothing fs = Nothing End if Return rtSEnd FunctionFunction webPageLinks(ByVal sChkUser as String) Dim aSort Dim x, nPriv, nLoop as Integer Dim fs, ss as Object Dim sURL, sBtn, sAlt, sLev, rtS, sPath, sSort as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) nPriv = webPermissions(sChkUser) if hs.GetINISetting("webPages","showMenu","1",sINI) = "1" Then sPath = hs.GetINISetting("webPages","pagePath","movies",sINI) sSort = hs.GetINISetting("webPages","pageSort","1,2",sINI) fs = hs.CreateStringClass ss = hs.CreateStringClass fs.Add("<br/>") aSort = Split(sSort,",") for x = 0 to aSort.GetUpperBound(0) nLoop = aSort(x) ss.Add("pageURL") ss.Add(nLoop) sURL = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset ss.Add("pageBtn") ss.Add(nLoop) sBtn = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset ss.Add("pageAlt") ss.Add(nLoop) sAlt = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset ss.Add("pageLev") ss.Add(nLoop) sLev = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset if (lCase(sLev)) <> "none" Then if (lCase(sLev) <> "admin") OR (nPriv = 1) Then if len(trim(sURL)) > 0 Then fs.Add("<input type=""button"" class=""functionrowbutton"" value=""") fs.Add(sBtn) fs.Add(""" alt=""") fs.Add(sAlt) fs.Add(""" onClick=""location.href='/") fs.Add(sPath) fs.Add("/") fs.Add(sURL) fs.Add("'"" onmouseover=""this.className='functionrowbuttonselected';"" onmouseout=""this.className='functionrowbutton';"">") End if End if End if Next rtS = fs.Value ss = Nothing fs = Nothing End if Return rtSEnd FunctionFunction webNoAccess(Optional ByVal sName as String = "") as String Dim na as Object Dim rtS as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) na = hs.CreateStringClass na.Add("<table border=""0"" cellpadding=""0"" cellspacing=""1"">") na.Add("<tr><td class=""pagetitle""><span style=""display='';"" id=""pgtitle"">Page Access</span></td></tr>") na.Add("<tr><td class=""tablecolumn"">You do not have access to this page.</td></tr></table>") rtS = na.Value na = Nothing Return rtSEnd FunctionFunction webNotActive(Optional ByVal sName as String = "") as String Dim na as Object Dim rtS as String na = hs.CreateStringClass na.Add("<table border=""0"" cellpadding=""0"" cellspacing=""1"">") na.Add("<tr><td class=""pagetitle""><span style=""display='';"" id=""pgtitle"">Page Access</span></td></tr>") na.Add("<tr><td class=""tablecolumn"">This page is not active.</td></tr></table>") rtS = na.Value na = Nothing Return rtSEnd FunctionFunction webPageAccess(ByVal sPageName as String) as String Dim aType, aList as Array Dim x, nList as Integer Dim ca as Object Dim rtS, sList, sPage, sType as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) rtS = "none" aType = split(sPageName,"|") if aType.GetUpperBound(0) = 1 Then sType = "adminPages" sPageName = aType(0) sList = hs.GetINISetting("adminPages","pageSort","1",sINI) aList = Split(sList,",") nList = aList.GetUpperBound(0)+1 Else sType = "webPages" sList = hs.GetINISetting("webPages","pageSort","1",sINI) aList = Split(sList,",") nList = aList.GetUpperBound(0)+1 End if ca = hs.CreateStringClass for x = 1 to nList ca.Add("pageURL") ca.Add(x) sPage = hs.GetINISetting(sType,ca.Value,"",sINI) ca.Reset if LCase(sPage) = LCase(sPageName) Then ca.Add("pageLev") ca.Add(x) rtS = lCase(hs.GetINISetting(sType,ca.Value,"",sINI)) ca.Reset Exit for End if Next ca = Nothing Return rtSEnd FunctionFunction webPermissions(ByVal sChkUser as String) Dim arrUsers, arrPrivs as Array Dim x, nAdmin, nPriv as Integer Dim sAllUsers, sUser as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) sAllUsers = hs.GetUsers arrUsers = Split(sAllUsers, ",") nAdmin=0 For x = 0 To UBound(arrUsers) arrPrivs = Split(arrUsers(x),"|") sUser = arrPrivs(0) nPriv = arrPrivs(1) if lCase(sUser) = lCase(sChkUser) Then if nPriv AND 2 Then nAdmin=1 Exit for End if End if Next Return nAdminEnd FunctionEnd Module
9/28/2012 5:25:33 PM ~!~Error~!~Script compile error: 'HttpUtility' is not a member of 'Web'.on line 27
9/28/2012 5:25:33 PM ~!~SCR~!~Option Strict OffImports VB = Microsoft.VisualBasicImports System.Web Imports System.IOImports System.Xml Imports System.DataImports System.Data.SqlClientimports Schedulerimports SystemPublic Module scriptcode6#Region "Automatically generated code, do not modify"'Automatically generated code, do not modify'Event Sources Begin <System.ContextStaticAttribute()> Public WithEvents hs As Scheduler.hsapplication <System.ContextStaticAttribute()> Public WithEvents hsp As scheduler.hsp <System.ContextStaticAttribute()> Public WithEvents hssystem As scheduler.phone0'Event Sources End'End of automatically generated code#End RegionPublic Dim debugMode As Boolean = falsePublic Dim sINI as String = "movies.ini"Public Dim IName = "MovieManager"Sub Main(Optional ByVal sParam as String = "") hs.WriteLog(IName,"You must specify the function name when calling this script.")End SubFunction urlEncode(ByVal sURL as String) Return System.Web.HttpUtility.UrlEncode(sURL)End FunctionFunction webAdminLinks(ByVal sChkUser as String) Dim aSort Dim x, nPriv, nLoop as Integer Dim fs, ss as Object Dim sURL, sBtn, sAlt, sLev, rtS, sPath, sSort as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) nPriv = webPermissions(sChkUser) if hs.GetINISetting("webPages","showMenu","1",sINI) = "1" Then sPath = hs.GetINISetting("adminPages","pagePath","movies",sINI) sSort = hs.GetINISetting("adminPages","pageSort","1",sINI) fs = hs.CreateStringClass ss = hs.CreateStringClass fs.Add("<br/>") aSort = Split(sSort,",") for x = 0 to aSort.GetUpperBound(0) nLoop = aSort(x) ss.Add("pageURL") ss.Add(nLoop) sURL = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset ss.Add("pageBtn") ss.Add(nLoop) sBtn = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset ss.Add("pageAlt") ss.Add(nLoop) sAlt = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset ss.Add("pageLev") ss.Add(nLoop) sLev = hs.GetINISetting("adminPages",ss.Value,"",sINI) ss.Reset if (lCase(sLev)) <> "none" Then if (lCase(sLev) <> "admin") OR (nPriv = 1) Then if len(trim(sURL)) > 0 Then fs.Add("<input type=""button"" class=""functionrowbutton"" value=""") fs.Add(sBtn) fs.Add(""" alt=""") fs.Add(sAlt) fs.Add(""" onClick=""location.href='/") fs.Add(sPath) fs.Add("/") fs.Add(sURL) fs.Add("'"" onmouseover=""this.className='functionrowbuttonselected';"" onmouseout=""this.className='functionrowbutton';"">") End if End if End if Next rtS = fs.Value ss = Nothing fs = Nothing End if Return rtSEnd FunctionFunction webPageLinks(ByVal sChkUser as String) Dim aSort Dim x, nPriv, nLoop as Integer Dim fs, ss as Object Dim sURL, sBtn, sAlt, sLev, rtS, sPath, sSort as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) nPriv = webPermissions(sChkUser) if hs.GetINISetting("webPages","showMenu","1",sINI) = "1" Then sPath = hs.GetINISetting("webPages","pagePath","movies",sINI) sSort = hs.GetINISetting("webPages","pageSort","1,2",sINI) fs = hs.CreateStringClass ss = hs.CreateStringClass fs.Add("<br/>") aSort = Split(sSort,",") for x = 0 to aSort.GetUpperBound(0) nLoop = aSort(x) ss.Add("pageURL") ss.Add(nLoop) sURL = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset ss.Add("pageBtn") ss.Add(nLoop) sBtn = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset ss.Add("pageAlt") ss.Add(nLoop) sAlt = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset ss.Add("pageLev") ss.Add(nLoop) sLev = hs.GetINISetting("webPages",ss.Value,"",sINI) ss.Reset if (lCase(sLev)) <> "none" Then if (lCase(sLev) <> "admin") OR (nPriv = 1) Then if len(trim(sURL)) > 0 Then fs.Add("<input type=""button"" class=""functionrowbutton"" value=""") fs.Add(sBtn) fs.Add(""" alt=""") fs.Add(sAlt) fs.Add(""" onClick=""location.href='/") fs.Add(sPath) fs.Add("/") fs.Add(sURL) fs.Add("'"" onmouseover=""this.className='functionrowbuttonselected';"" onmouseout=""this.className='functionrowbutton';"">") End if End if End if Next rtS = fs.Value ss = Nothing fs = Nothing End if Return rtSEnd FunctionFunction webNoAccess(Optional ByVal sName as String = "") as String Dim na as Object Dim rtS as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) na = hs.CreateStringClass na.Add("<table border=""0"" cellpadding=""0"" cellspacing=""1"">") na.Add("<tr><td class=""pagetitle""><span style=""display='';"" id=""pgtitle"">Page Access</span></td></tr>") na.Add("<tr><td class=""tablecolumn"">You do not have access to this page.</td></tr></table>") rtS = na.Value na = Nothing Return rtSEnd FunctionFunction webNotActive(Optional ByVal sName as String = "") as String Dim na as Object Dim rtS as String na = hs.CreateStringClass na.Add("<table border=""0"" cellpadding=""0"" cellspacing=""1"">") na.Add("<tr><td class=""pagetitle""><span style=""display='';"" id=""pgtitle"">Page Access</span></td></tr>") na.Add("<tr><td class=""tablecolumn"">This page is not active.</td></tr></table>") rtS = na.Value na = Nothing Return rtSEnd FunctionFunction webPageAccess(ByVal sPageName as String) as String Dim aType, aList as Array Dim x, nList as Integer Dim ca as Object Dim rtS, sList, sPage, sType as String debugMode = hs.GetINISetting("Settings","debugMode","False",sINI) rtS = "none" aType = split(sPageName,"|") if aType.GetUpperBound(0) = 1 Then sType = "adminPages" sPageName = aType(0) sList = hs.GetINISetting("adminPages","pageSort","1",sINI) aList = Split(sList,",") nList = aList.GetUpperBound(0)+1 Else sType = "webPages" sList = hs.GetINISetting("webPages","pageSort","1",sINI) aList = Split(sList,",") nList = aList.GetUpperBound(0)+1 End if ca = hs.CreateStringClass for x = 1 to nList ca.Add("pageURL") ca.Add(x) sPage = hs.GetINISetting(sType,ca.Value,"",sINI) ca.Reset if LCase(sPage) = LCase(sPageName) Then ca.Add("pageLev") ca.Add(x
Pardon the garbage but there's even more. Since this occurs so early in process of install/setup, I'm not sure where to look. Just FYI, here's the entry in the settings.ini for Scripting Reference:
ScriptingReferences=System.XML;System.XML.dll,System.Data;Sy stem.Data.Dll;System.web;System.Web.DLL;HSPI_SKYPE;C:\Progra m Files\HomeSeer 2\hspi_skype.dll
Anyway, I'm at a loss to get anywhere into setup, etc. I'd appreciate some counsel. BTW FWIW the HS directory is Homeseer 2 (not Homeseer HS2).
Thanks in advance
Comment