HSTV - Watch Control Script Error

Below is a list of the HSTV events leading up to the error until I turned off the logging.

8/7/2009 8:16:34 PM 	HSTV 	PagePut: name: ref_page = value:hstv
8/7/2009 8:16:34 PM 	HSTV 	PagePut: name: SaveAdmGeneral = value:Save
8/7/2009 8:16:34 PM 	HSTV 	PagePut: name: useVR = value:0
8/7/2009 8:16:34 PM 	HSTV 	PagePut: name: numdaysevents1 = value:3
8/7/2009 8:16:34 PM 	HSTV 	PagePut: name: numdayshistory1 = value:1
8/7/2009 8:16:34 PM 	HSTV 	PagePut: name: dbname1 = value:Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\HomeSeer HS2\data\hstv\hstv.mdb
8/7/2009 8:16:34 PM 	HSTV 	PagePut: name: dbtype1 = value:Access
8/7/2009 8:16:34 PM 	HSTV 	PagePut: name: defuser = value:dshue
8/7/2009 8:16:34 PM 	HSTV 	PagePut: name: showSQLSvr = value:0
8/7/2009 8:16:34 PM 	HSTV 	PagePut: name: playQuote = value:1
8/7/2009 8:16:34 PM 	HSTV 	PagePut: name: debug1 = value:1
8/7/2009 8:16:27 PM 	HSTV 	SELECT UserID FROM userOptions WHERE OptionName = 'pgprivtvadmin' AND OptionValue = '1'
8/7/2009 8:16:27 PM 	HSTV 	GenPage: name: pg = value: admin
8/7/2009 8:16:07 PM 	HSTV 	sql=UPDATE tvListings SET scheduledEvent = 2 WHERE channelID = '' AND starttime = #8/7/2009 6:00:00 PM#
8/7/2009 8:16:07 PM 	HSTV 	SELECT DeviceType, DeviceName FROM devices WHERE deviceID = 10
8/7/2009 8:16:07 PM 	HSTV 	SELECT deviceID, title, channelID, starttime, repeattype, intSun, intMon, intTue, intWed, intThu, intFri, intSat, matchtype, priorityLevel, keywords, keymatch, notkeyword, notmatch, notmatchtitle, nottitle, creditstype, creditname, yeardir, yearmade, creditsmatch, episodetext, episodeMatch, episodeNotText, episodeNotMatch, isActive, userID FROM userFavs WHERE favID = 0
8/7/2009 8:16:07 PM 	HSTV 	Error PPC Event Create: Object variable or With block variable not set.
8/7/2009 8:16:07 PM 	HSTV 	SELECT channelID, title FROM tvListings WHERE channelID = '' AND starttime = #8/7/2009 6:00:00 PM#
8/7/2009 8:16:07 PM 	HSTV 	PagePut: name: watch.x = value:1
8/7/2009 8:16:07 PM 	HSTV 	PagePut: name: evPageSpecific = value:
8/7/2009 8:16:07 PM 	HSTV 	PagePut: name: evPageFrom = value:grid
8/7/2009 8:16:07 PM 	HSTV 	PagePut: name: evChannelID = value:
8/7/2009 8:16:07 PM 	HSTV 	PagePut: name: evStartTime = value:8/7/2009 6:00:00 PM
8/7/2009 8:16:07 PM 	HSTV 	PagePut: name: ref_page = value:hstv
8/7/2009 8:16:07 PM 	HSTV 	PagePut: name: evRepeats = value:0
8/7/2009 8:16:07 PM 	HSTV 	PagePut: name: quickevent = value:Create
8/7/2009 8:16:07 PM 	HSTV 	PagePut: name: deviceid = value:10
8/7/2009 8:16:05 PM 	HSTV 	SELECT deviceID, deviceName, isDefault FROM devices WHERE isActive = 1 AND deviceType = 2 ORDER BY deviceName
8/7/2009 8:16:05 PM 	HSTV 	PagePut: name: evPageSpecific = value:
8/7/2009 8:16:05 PM 	HSTV 	PagePut: name: evPageFrom = value:grid
8/7/2009 8:16:05 PM 	HSTV 	PagePut: name: evChannelID = value:
8/7/2009 8:16:05 PM 	HSTV 	PagePut: name: evStartTime = value:8/7/2009 6:00:00 PM
8/7/2009 8:16:05 PM 	HSTV 	PagePut: name: pg = value:pgeventadd
8/7/2009 8:16:05 PM 	HSTV 	PagePut: name: ref_page = value:hstv
8/7/2009 8:16:05 PM 	HSTV 	PagePut: name: watch.y = value:10
8/7/2009 8:16:05 PM 	HSTV 	PagePut: name: watch.x = value:6
8/7/2009 8:16:02 PM 	HSTV 	SELECT top 1 c.channelID, c.channelNickName, c.channelName, c.channelNumber, s.starttime, l.endtime, l.title, l.episode, l.category, l.description FROM scheduledFavs s, tvListings l, tvChannels c WHERE s.starttime > Now() And s.channelID = l.channelID And s.starttime = l.starttime And l.channelID = c.channelID And s.isActive = 1 ORDER BY s.starttime
8/7/2009 8:16:01 PM 	HSTV 	Checking for Scheduled Actions
8/7/2009 8:15:49 PM 	HSTV 	SELECT t.channelNumber, t.channelName, t.channelNickName, t.channelID FROM tvchannels t WHERE t.channelID = '1'
8/7/2009 8:15:49 PM 	HSTV 	SELECT l.starttime, l.endtime, l.title, l.episode, l.description, l.category, l.episodenum, l.audio, l.subtitles, l.ratingsystem, l.rating, l.videoaspect, l.videocolor, l.starrating, l.scheduledevent, l.actors, l.guests, l.director, l.producers, l.hosts, l.repeatshowing, l.programyear, l.ratingadvisory, t.channelNumber, t.channelID FROM tvListings l, userChannels u, tvChannels t WHERE l.channelID = t.channelID AND l.channelID = u.channelID AND u.isAllowed = 1 AND u.isSelected = 1 AND u.userID ='dshue' AND starttime >= #2009/08/07 0:00:00# AND starttime < #2009/08/14 0:00:00# AND u.sortOrder = (SELECT Min(c.sortOrder) FROM userChannels c WHERE c.isAllowed = 1 AND c.isSelected = 1 AND c.userID = 'dshue') ORDER BY l.starttime
8/7/2009 8:15:49 PM 	HSTV 	SELECT t.channelID, t.channelNumber, t.channelName, t.channelNickName FROM tvchannels t, userChannels u WHERE t.channelID = u.channelID AND u.userid = 'dshue' AND t.viewhide = 0 AND u.IsAllowed = 1 AND u.IsSelected = 1 ORDER BY t.channelNickName, t.channelName
8/7/2009 8:15:49 PM 	HSTV 	SELECT OptionValue, OptionName FROM UserOptions WHERE UserID = 'dshue' AND OptionName IN ('intShowNameNum','intUseNickName','intDispShowLength','intShowYear','intShowRepeat','strShowAudio','strShowSubtles','strShowRating','strShowEPNum','strShowCat','intShowVideo','intShowActor','intShowGuest','intShowHost','intShowDirector','intShowProducer','intChanSortOrder', 'intHoursWide','intJumpWhen','intRepeatHours','intShowCatLegend','intShowWeekDay','intShowGrid','tuneItem','gridChanSortOrder')
8/7/2009 8:15:49 PM 	HSTV 	SELECT UserID FROM userOptions WHERE OptionName = 'pgprivtvadmin' AND OptionValue = '1'
8/7/2009 8:15:49 PM 	HSTV 	GenPage: name: pg = value: hstvgridweek

[CFGuy]

Go to HSTV admin on the general tab and set the debugging level to High Level. Then go do whatever causes the error. Grab the entries from your log and post them here.
Make sure you change the error level back after triggering the error or your log will get filled with tons of entries.

Mark -

Thanks for sending the script over. I was hoping to get something working before adding in the additional digits, but you've saved me the extra step!

I'm still getting the error when triggering the Control item (clicking on the eyes icon?):

8/4/2009 8:04:25 PM 	HSTV 	Error PPC Event Create: Object variable or With block variable not set.

I don't think it's an issue with the script as I've been able run it from an Event without any problems. It must be something wrong with my set up or configuration. Is there other information I can provide to help troubleshoot it? Is there a configuration file or maybe I'm using the UI wrong?

Dan

Here's a .vb script that may help. Not sure what was wrong with yours, but this works fine from here. Notice some differences. The way you had it wouldn't have worked for anything other than single-digit channel numbers.

Sub ChangeChannel(ByVal chanNum As String)

    Dim bc4 As Object = hs.Plugin("BC4 Plugin")

    If bc4 Is Nothing Then
        hs.WriteLog("ChangeChannel", "BC4 Plug in not found")
        Exit Sub
    Else
        For i As Integer = 0 To chanNum.Length - 1
            Dim chan As String = ChanNum.substring(i, 1)
            hs.WriteLog("ChangeChannel", "Send Digit: " & chan)
            Select Case chan

                Case "0"
                    bc4.SendBC4IR(1, 2, 18)
                Case Else
                    bc4.SendBC4IR(1, 2, val(chan) + 8)

            End Select
        Next

    End If

    bc4 = Nothing

End Sub

When executing a quick watch from the TV Listing or Grid, the script for the Control Item logs the following error and never executes.

Control Item
Script: ChangeChannel.vbs
Script Function: ChangeChannel
Script Parameters: #chanNum#
Start: 12:00 AM
End: 11:59 PM

Error Log
8/2/2009 8:59:30 PM HSTV Error PPC Event Create: Object variable or With block variable not set.


ChangeChannel.vbs

sub ChangeChannel(chanNum)
                
    dim bc4 
    set bc4 = hs.Plugin("BC4 Plugin")
        
    if bc4 is nothing then
       hs.WriteLog "ChangeChannel", "Plug in not found"
    Else
             
        select case chanNum            
            case "1"
                bc4.SendBC4IR 1,2,9
            case "2"
                bc4.SendBC4IR 1,2,10
            case "3"
                bc4.SendBC4IR 1,2,11
            case "4"
                bc4.SendBC4IR 1,2,12
            case "5"
                bc4.SendBC4IR 1,2,13
            case "6"
                bc4.SendBC4IR 1,2,14
            case "7"
                bc4.SendBC4IR 1,2,15
            case "8"
                bc4.SendBC4IR 1,2,16
            case "9"
                bc4.SendBC4IR 1,2,17
            case "0"
                bc4.SendBC4IR 1,2,18
        end select    
    end if
    
    set bc4 = nothing

 end sub 

Any suggestions?

Dan