Первым отметку в 10 млн регистраций преодолел домен .COM, в котором на данный момент насчитывается 103,7 млн активных регистраций. В 2008 году отметку в 10 млн преодолел китайский домен .CN. В январе 2008 года здесь было зарегистрировано около 13,5 млн доменных имен, однако сейчас, из-за усложнения ситуации в домене, здесь насчитывается всего 3,5 млн регистраций.

скрипт прост как валенок Вот логон вариант On Error Resume Next Dim adsinfo, ThisComp, oUser Set adsinfo = CreateObject("adsysteminfo") Set ThisComp = GetObject("LDAP://" adsinfo.ComputerName) Set oUser = GetObject("LDAP://" adsinfo.