The Grandstream GDS3710/3705 SIP Intercom comes with a door/gate open feature via wired comms to your gate or door latch system. It also comes with a HTTP API that can be called where direct access to the GDS unit is available (whether on private network or public network through port forwarding)
Homeseer is an established smart home automation solution allowing comprehensive control of devices throughout your office or home through inbuilt features, plugins and scripting. See https://homeseer.com/
Below is a script that can be used as a triggered action for an event to open your door/gate via API. Note this is an alternative method to the more advanced Keep Door Open API command as referenced in our other FAQ entry here which can be used to set a timer to keep the door open from 5 to 480 minutes.
The Enable HTTP API Remote Open Door setting must be enabled on your GDS Admin Settings for this script to work.
The script is written in vb.net (Homeseer scripting language) and must be deployed in your Homeseer deployment custom scripts directory. In a Linux deployment of Homeseer this directory is
/usr/local/HomeSeer/scripts/. The file should be named with a .vb extension e.g.
Once saved you can create an event that executes this script when triggered. I suggest that you create an Event that is manually triggered that can then be triggered as an action of any other Event e.g. Geofence triggered action when you arrive home or voice command "Open Gate"
Change sServer, sPin and sAdminPassword to your values
sServeris the server name in url format with port as necessay e.g.
sPinis the Remote PIN to Open the Door as set in the GDS Admin Settings
sAdminPasswordis the password for the admin user to your GDS Admin GUI.
Sub Main(p AS object) Dim sResCode AS String Dim sRetMsg AS String Dim sChallengeCode AS String Dim sIDCode AS String Dim GateXMLDoc As New System.XML.XmlDocument() Dim sServer As String = "http://192.168.1.100" Dim sPIN As String = "1234" Dim sAdminPassword As String = "AdminPassword1234" Dim sURL As String = "" Try Dim sAuthQuery As String = "/goform/apicmd?cmd=0&user=admin" sURL=sServer+sAuthQuery 'hs.writelog("Gate Auth: URL", sURL) GateXMLDoc.Load(sURL) sResCode = GateXMLDoc.DocumentElement.SelectSingleNode("/Configuration/ResCode").InnerText 'hs.writelog("Gate Auth: Result", sResCode) If sResCode=0 Then sChallengeCode = GateXMLDoc.DocumentElement.SelectSingleNode("/Configuration/ChallengeCode").InnerText 'hs.writelog("Gate: Challenge Code", sChallengeCode) sIDCode = GateXMLDoc.DocumentElement.SelectSingleNode("/Configuration/IDCode").InnerText 'hs.writelog("Gate: ID Code", sIDCode) Dim sAuthCode AS String = sChallengeCode + ":" + sPIN +":" + sAdminPassword 'hs.WriteLog("Gate: Auth Code", sAuthCode) Dim sAuthCodeMD5 AS String = md5sum(sAuthCode) 'hs.WriteLog("Gate: Auth Code MD5", sAuthCodeMD5) Dim sOpenQuery AS String = "/goform/apicmd?cmd=1&user=admin&authcode=" + sAuthCodeMD5 + "&idcode=" + sIDCode + "&type=1" sURL=sServer+sOpenQuery 'hs.writelog("Gate Auth: URL", sURL) GateXMLDoc.Load(sURL) sResCode = GateXMLDoc.DocumentElement.SelectSingleNode("/Configuration/ResCode").InnerText 'hs.writelog("Gate Open: Result", sResCode) If sResCode=0 Then hs.writelog("Gate Open: Success", sResCode) Else sRetMsg = GateXMLDoc.DocumentElement.SelectSingleNode("/Configuration/RetMsg").InnerText hs.writelog("Gate Open: Return Message", sRetMsg) End If Else sRetMsg = GateXMLDoc.DocumentElement.SelectSingleNode("/Configuration/RetMsg").InnerText hs.writelog("Gate Auth: Falied", sRetMsg) End If Catch ex As Exception hs.WriteLog ("Gate: XML Error", ex.Message) End Try End Sub Function md5sum(ByVal strToHash As String) As String Dim md5Obj As New Security.Cryptography.MD5CryptoServiceProvider Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash) bytesToHash = md5Obj.ComputeHash(bytesToHash) Dim strResult As String = "" For Each b As Byte In bytesToHash strResult += b.ToString("x2") Next Return strResult End Function