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... Т.е. перед добавлением чего-то в объекты вы блокируете доступ для других потоков, после добавления - снимаете блокировку.
astrotrain: возможно те dll, которые испоьзует ваша программа собраны без отладочных символов, поэтому stack trace будет показывать вызов функций только внутри вашей программы.