---

Sub Main(ByVal parm As Object)

  Dim IFACE_NAME As String = "UltraM1G"
  Dim Locations As New System.Collections.Hashtable

  Locations.Add("Bsmt", "Basement")
  Locations.Add("BdmK", "Bedroom [One]")
  Locations.Add("BdmR", "Bedroom [Two]")
  Locations.Add("BdmM", "Bedroom [Master]")
  Locations.Add("Brdg", "Bridge")
  Locations.Add("Den", "Den")
  Locations.Add("DnRm", "Dining Room")
  Locations.Add("FmRm", "Family Room")
  Locations.Add("Entr", "Front Entrance")
  Locations.Add("Garage", "Garage")
  Locations.Add("Hall", "Hall")
  Locations.Add("Ktch", "Kitchen")
  Locations.Add("Outs", "Outside")

  Try
    '
    '
    ' Run though all the HomeSeer devices
    '
    Dim DevEnum As Object = hs.GetDeviceEnumerator

    If Not DevEnum Is Nothing Then
      Do While Not DevEnum.Finished
        Dim objDevice As Object = DevEnum.GetNext
        If Not objDevice Is Nothing Then
          If objDevice.interface = IFACE_NAME And objDevice.dev_type_string = "Elk M1 Lighting" Then

            Dim strDeviceName As String = objDevice.Name

            For Each strKey As String In Locations.Keys
              If strDeviceName.Contains(strKey & "-") Then
                objDevice.location = Locations(strKey)
                objDevice.location2 = "Elk M1 Ligthing"
                Exit For
              End If
            Next

          End If
        End If
      Loop

    End If

  Catch pEx As Exception
    '
    ' Process program exception
    '     
  End Try

End Sub

---

Attached Images