'// Automatiserar.se 
'// This script changes device status of your vera devices.
'// Example of how to use it, turning the device #42 on:
'// VeraDevice "42", "1" 
'// Example of turning device #42 off:
'// VeraDevice "42", "0" 
on error resume next
Dim VeraIP
VeraIP = "192.168.1.24"


VeraDevice "42", "0" 


Sub VeraDevice (deviceid, status)
	on error resume next
	Dim ObjHttp
	Set ObjHttp = CreateObject("MSXML2.XMLHTTP")
	ObjHttp.open "GET", "http://" & VeraIP & ":3480/data_request?id=lu_action&output_format=xml&DeviceNum=" & DeviceID & "&serviceId=urn:upnp-org:serviceId:SwitchPower1&action=SetTarget&newTargetValue=" & Status, False
	ObjHttp.send
	if err.number <> 0 then 'Found an error
		wscript.echo "Error when sending command to IP: " & veraip & " with the status: " & Status & " to the deviceid: " & deviceid & ". Error code: " & err.number & " " & err.description
	end if
end sub