I am having an issue with a script I wrote when I am running homeseer as a service. The script sends commands to Girder to control my media center PC (same computer Homeseer and girder runs on). All is running on Win 7 x64. The script works fine when Homeseer is not being run as a service. My fist thought was permissions where not set right but I set the homeseer service to run on the same account that is logged in and runs girder and MediaCenter and I still have the same issue. The script is a .vbs
Has anyone run into this problem?
'Send Media Center Commands
sub MCECommand(message)
'hs.writelog "MCE Script", "Scriptrunning"
Set GirderCmd = CreateObject("GIRDERX.Girder")
Select Case message
case "StartMCE"
if hs.devicevalue("z1") = "0" Then
hs.TriggerEvent("Turn TV On")
End If
GirderCmd.TriggerEvent "StartMCE",18,"","","",0
case "vol+"
GirderCmd.TriggerEvent "Vol+",18,"","","",0
case "vol-"
GirderCmd.TriggerEvent "Vol-",18,"","","",0
case "mute"
GirderCmd.TriggerEvent "Mute",18,"","","",0
case "skipback"
GirderCmd.TriggerEvent "SkipBack",18,"","","",0
case "skipfwd"
GirderCmd.TriggerEvent "SkipFwd",18,"","","",0
case "up"
GirderCmd.TriggerEvent "Up",18,"","","",0
case "down"
GirderCmd.TriggerEvent "Down",18,"","","",0
case "left"
GirderCmd.TriggerEvent "Left",18,"","","",0
case "right"
GirderCmd.TriggerEvent "Right",18,"","","",0
case "ok"
GirderCmd.TriggerEvent "Enter",18,"","","",0
case "moreinfo"
GirderCmd.TriggerEvent "Info",18,"","","",0
case "greenbutton"
GirderCmd.TriggerEvent "WMC",18,"","","",0
case "startMCE"
GirderCmd.TriggerEvent "startMCE",18,"","","",0
case "ch+"
GirderCmd.TriggerEvent "Ch+",18,"","","",0
case "ch-"
GirderCmd.TriggerEvent "Ch-",18,"","","",0
case "back"
GirderCmd.TriggerEvent "Back",18,"","","",0
case "Pause"
GirderCmd.TriggerEvent "Pause",18,"","","",0
case "Record"
GirderCmd.TriggerEvent "Record",18,"","","",0
case "Stop"
GirderCmd.TriggerEvent "Stop",18,"","","",0
End Select
End Sub
sub MCECommand(message)
'hs.writelog "MCE Script", "Scriptrunning"
Set GirderCmd = CreateObject("GIRDERX.Girder")
Select Case message
case "StartMCE"
if hs.devicevalue("z1") = "0" Then
hs.TriggerEvent("Turn TV On")
End If
GirderCmd.TriggerEvent "StartMCE",18,"","","",0
case "vol+"
GirderCmd.TriggerEvent "Vol+",18,"","","",0
case "vol-"
GirderCmd.TriggerEvent "Vol-",18,"","","",0
case "mute"
GirderCmd.TriggerEvent "Mute",18,"","","",0
case "skipback"
GirderCmd.TriggerEvent "SkipBack",18,"","","",0
case "skipfwd"
GirderCmd.TriggerEvent "SkipFwd",18,"","","",0
case "up"
GirderCmd.TriggerEvent "Up",18,"","","",0
case "down"
GirderCmd.TriggerEvent "Down",18,"","","",0
case "left"
GirderCmd.TriggerEvent "Left",18,"","","",0
case "right"
GirderCmd.TriggerEvent "Right",18,"","","",0
case "ok"
GirderCmd.TriggerEvent "Enter",18,"","","",0
case "moreinfo"
GirderCmd.TriggerEvent "Info",18,"","","",0
case "greenbutton"
GirderCmd.TriggerEvent "WMC",18,"","","",0
case "startMCE"
GirderCmd.TriggerEvent "startMCE",18,"","","",0
case "ch+"
GirderCmd.TriggerEvent "Ch+",18,"","","",0
case "ch-"
GirderCmd.TriggerEvent "Ch-",18,"","","",0
case "back"
GirderCmd.TriggerEvent "Back",18,"","","",0
case "Pause"
GirderCmd.TriggerEvent "Pause",18,"","","",0
case "Record"
GirderCmd.TriggerEvent "Record",18,"","","",0
case "Stop"
GirderCmd.TriggerEvent "Stop",18,"","","",0
End Select
End Sub
Comment