OTF: Для обмена данными с устройством. Хотите, можете интерпритировать запись байт, как команды Arduiono что-либо сделать, а чтение байт - ответной реакцией. Хотите, можете интерпритировать чтение байт как значение какого-либо датчика, подключенного к Arduiono. Все зависит от задачи.
Janus74: А в чем вы как?
Берете функцию Function IsComputerMemberOf(objComputerToCheck, strGroupName) из ссылки. Далее пишите условие
Dim objComputer
Set objComputer = GetObject("LDAP://" & objSysInfo.ComputerName )
If IsComputerMemberOf(objComputer, "запрет wWWHomePage") Then
objUser.Put "wWWHomePage", objNetwork.ComputerName
End if
libera: Для одновременного доступа к объектам пользуйтесь блокировками, например критическими секциями docwiki.embarcadero.com/RADStudio/Seattle/en/Using... Т.е. перед добавлением чего-то в объекты вы блокируете доступ для других потоков, после добавления - снимаете блокировку.