Since frasierman is looking for an example of turning on\off a device from a web page!
I'll post this from the SDK Samples samples\vbscript\AHVBView viewing the source code for the file ahvbview.html reveals this:<HTML>
<HEAD>
<TITLE>ActiveHome VB Scripting</TITLE>
</HEAD>
<BODY BGCOLOR="#ffffff" >
<!--TOOLBAR_START-->
<!--TOOLBAR_EXEMPT-->
<!--TOOLBAR_END-->
<CENTER><H2>ActiveHome VB Scripting</H2></CENTER>
<FONT FACE="verdana,arial,helvetica" SIZE=1>
<A href="#" onclick=self.close() CLASS="clsDemo">Close This Test</A>
</FONT><HR>
<OBJECT ID="ActiveHome1" width=0 height=0
classid="CLSID:001000AF-2DEF-0208-10B6-DC5BA692C858"
codebase="ahscript.dll"
standby="Loading X10 net components..."
type="application/x-oleobject">
</OBJECT>
<FORM NAME="myForm">
Send Status
<BR>
<INPUT TYPE="text" NAME="sendstatus" size="50">
<BR>
Receive Status
<BR>
<INPUT TYPE="text" NAME="recv1">
<INPUT TYPE="text" NAME="recv2">
<INPUT TYPE="text" NAME="recv3">
<INPUT TYPE="text" NAME="recv4">
<INPUT TYPE="text" NAME="recv5">
<INPUT TYPE="text" NAME="recv6">
<BR>
</FORM>
<SCRIPT LANGUAGE="vbscript">
Function doCommand( Command )
if Command = 1 then
myForm.sendstatus.value = "e8 On sent"
ActiveHome1.SendAction "sendplc", "e8 on"
elseif Command = 2 then
myForm.sendstatus.value = "e8 Off sent"
ActiveHome1.SendAction "sendplc", "e8 off"
end if
End Function
Function ActiveHome1_RecvAction( bszRecv, vParm1, vParm2, vParm3, vParm4, vParm5, vReserved )
myForm.recv1.value = bszRecv
myForm.recv2.value = vParm1
myForm.recv3.value = vParm2
myForm.recv4.value = vParm3
myForm.recv5.value = vParm4
myForm.recv6.value = vParm5
End function
</SCRIPT>
<FORM NAME="myButtons">
<BR>
<CENTER>
<INPUT NAME="btnSendOn" TYPE="Button" VALUE="Send e8 on" onclick="doCommand( 1 );">
<INPUT NAME="btnSendOff" TYPE="Button" VALUE="Send e8 off" onclick="doCommand( 2 );">
</CENTER>
<BR>
</FORM>
<P>
<HR>
<FONT FACE="Arial" SIZE="1" COLOR="BLACK">
© 2004 <A TARGET="_blank" HREF="http://www.x10.com">X10</A>. All rights reserved.
</FONT>
</BODY>
</HTML>
Of coarse this turns on/off E8 not A1 and you'll still want\need the SDK files;)
