Never Mind, I got it working...
I recently ran into some malware on my non-homeseer PC that wiped out my quick launch toolbar. On that toolbar I had icons set up to toggle a couple of lights when I clicked on the icon. I didn't have backups (Yeah, I know my bad ) of the quick launch links and am having trouble re-creating them.
This worked in the past. I have the script connector and speaker software installed on the remote PC and they seem to start up and connect with my Homeseer server just fine.
I set up the shortcut as follows:
Target: "C:\Program Files\HomeSeer 2\HsScript.exe" den lamp on-off.vb(s)
Start In: "C:\Program Files\Homeseer 2\"
I have tried it with two script files;
=======================
den lamp on-off.vb:
Sub Main( param as Object )
if hs.isoff("P1") then
hs.ExecX10 "P1","on",0,0
else
hs.ExecX10 "P1","off",0,0
end if
End Sub
=======================
den lamp on-off.vbs
Set hs = CreateObject("HomeSeer.Application")
if hs.isoff("P1") then
hs.ExecX10 "P1","on",0,0
else
hs.ExecX10 "P1","off",0,0
end if
=======================
When I run either one I get a "Requested Service not found" HsScript.exe error message box.
Any idea what's wrong?
I recently ran into some malware on my non-homeseer PC that wiped out my quick launch toolbar. On that toolbar I had icons set up to toggle a couple of lights when I clicked on the icon. I didn't have backups (Yeah, I know my bad ) of the quick launch links and am having trouble re-creating them.
This worked in the past. I have the script connector and speaker software installed on the remote PC and they seem to start up and connect with my Homeseer server just fine.
I set up the shortcut as follows:
Target: "C:\Program Files\HomeSeer 2\HsScript.exe" den lamp on-off.vb(s)
Start In: "C:\Program Files\Homeseer 2\"
I have tried it with two script files;
=======================
den lamp on-off.vb:
Sub Main( param as Object )
if hs.isoff("P1") then
hs.ExecX10 "P1","on",0,0
else
hs.ExecX10 "P1","off",0,0
end if
End Sub
=======================
den lamp on-off.vbs
Set hs = CreateObject("HomeSeer.Application")
if hs.isoff("P1") then
hs.ExecX10 "P1","on",0,0
else
hs.ExecX10 "P1","off",0,0
end if
=======================
When I run either one I get a "Requested Service not found" HsScript.exe error message box.
Any idea what's wrong?