If this is your first visit, be sure to check out the FAQ. You must register before you can post.
IMPORTANT: Your first post will be checked for appropriate content. This may take a bit of time.
1/14/2007 12:19:32 PM ~!~Error~!~Script compile error: 'GetLastRemoteIP' is not a member of 'Scheduler.hsapplication'.on line 67
1/14/2007 12:19:32 PM ~!~SCR~!~Option Strict Offimports 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 Regionsub Main(parm as object)'****** Jon00 Homeseer 2 Web page builder *****''Supplementary script to work with Buildpage.aspx''Please see the documentation that comes With the package.''Version: 1.02'Date: 14th January 2007''Written by Jon00 (Jon Simmons jon00@btinternet.com )''Always check For the latest version at http://www.jon00.me.uk/hs.html''Feel free to make suggestions/comments to the Homeseer forum and/or jon00@btinternet.com''Enjoy - Remember, Please give credit when credits due!Dim Command As StringDim Extra1 As StringDim HouseCode As StringDim I As IntegerDim P As ObjectDim Pi As ObjectDim s As StringDim StrVar As StringFor I=1 to 99hs.CreateVar ("BPVar" & I)next'Variable 1 - Homeseer versionstrVar=hs.versionhs.SaveVar ("BPVar1",strVar)'Variable 2 - Homeseer uptimestrVar=hs.SystemUptime()hs.SaveVar ("BPVar2",strVar)'Variable 3 - Web page viewsstrVar=hs.WEBStatsPageViews()hs.SaveVar ("BPVar3",strVar)'Variable 4 - Last remote IP AddressstrVar=hs.GetLastRemoteIP()hs.SaveVar ("BPVar4",strVar)'Variable 5 - Web logged in userstrVar=hs.WEBLoggedInUser()hs.SaveVar ("BPVar5",strVar)'Variable 6 - Sunrise TimestrVar=hs.Sunrise()hs.SaveVar ("BPVar6",strVar)'Variable 7 - Sunset TimestrVar=hs.Sunset()hs.SaveVar ("BPVar7",strVar)'Variable 8 - Local Time nowstrVar=Timeofday()hs.SaveVar ("BPVar8",strVar)'Variable 9 - Local Date nowstrVar=Today()hs.SaveVar ("BPVar9",strVar)'Variable 10 - Homeseer phone InterfacestrVar=hsp.linestatus(1)if strVar = "0" then strVar = "Idle"else strVar = "Busy"end ifhs.SaveVar ("BPVar10",strVar)'Variable 11 - CM11A/CM12U StatusstrVar=hs.X10InterfaceStatusif strVar = "0" then strVar = "Stable"else strVar = "Alert"end ifhs.SaveVar ("BPVar11",strVar)'Variable 12 - Last X10strVar=hs.LastX10Housecode=hs.stringitem(strVar,2,";")Command=hs.stringitem(strVar,3,";")Extra1=hs.stringitem(strVar,4,";")Select Case CommandCase 0StrVar=HouseCode & " (All Units Off)"Case 1StrVar=HouseCode & " (All Lights On)"Case 2StrVar=HouseCode & " (On)"Case 3StrVar=HouseCode & " (Off)"Case 4StrVar=HouseCode & " (Dim: " & Extra1 & ")"hs.SaveVar ("BPVar11",strVar)Case 5StrVar=HouseCode & " (Bright: " & Extra1 & ")"hs.SaveVar ("BPVar11",strVar)Case 6StrVar=HouseCode & " (All Lights Off)"Case 7StrVar=HouseCode & " (Extended)"Case 8StrVar=HouseCode & " (Hail Request)"Case 9StrVar=HouseCode & " (Hail Ack)"Case 10StrVar=HouseCode & " (Preset Dim)"Case 11StrVar=HouseCode & " (Ex Data Xfer)"Case 12StrVar=HouseCode & " (Status On)"Case 13StrVar=HouseCode & " (Status Off)"Case 14StrVar=HouseCode & " (Status Request)"Case 15StrVar=HouseCode & " (Dim To Off)"Case elseStrVar="Unknown"End selecths.SaveVar ("BPVar12",strVar)'Variable 13 - LAN IP AddressstrVar=hs.LanIPhs.SaveVar ("BPVar13",strVar)'Variable 14 - WAN IP AddressstrVar=hs.WANIPhs.SaveVar ("BPVar14",strVar)'Variable 15 - Homeseer ThreadsstrVar=hs.HSThreadshs.SaveVar ("BPVar15",strVar)'Variable 16 - Homeseer Memory UsedstrVar=hs.HSMemoryUsedhs.SaveVar ("BPVar16",strVar)'Variable 17 - Homeseer Scripts runningstrVar=hs.ScriptsRunningstrvar=replace(strVar,",",", ") hs.SaveVar ("BPVar17",strVar)'Variable 18 - Operating System VersionstrVar=hs.GetOSVersionhs.SaveVar ("BPVar18",strVar)'Variable 19 - Is Licenced?If hs.IsLicensed then strVar="HomeSeer is licensed"else strVar="This copy of HomeSeer is not currently licensed"end ifhs.SaveVar ("BPVar19",strVar)'Variable 20 - Plugin countpi = hs.GetPluginsEx hs.SaveVar ("BPVar20",pi.count)'Variable 21 - Plugin ListstrVar=""For Each p in pi If Trim (p.name)<>"" then StrVar = StrVar & p.Name & ", "Next StrVar=Replace(StrVar,p.Name & ", ",p.Name)hs.SaveVar ("BPVar21",strVar)'******* User defined here *****'Variable 51 - FreestrVar=""hs.SaveVar ("BPVar51",strVar)'Variable 52 - FreestrVar=""hs.SaveVar ("BPVar52",strVar)'Variable 53 - FreestrVar=""hs.SaveVar ("BPVar53",strVar)'Variable 54 - FreestrVar=""hs.SaveVar ("BPVar54",strVar)'Variable 55 - FreestrVar=""hs.SaveVar ("BPVar55",strVar)End subEnd Module
Just replace buildpage.aspx with the attached.
Comment