Тусклое UserObj
Тусклое GroupObj
UserString = InputBox («имя потребителя вы хотел были бы проверить»)
arrDomains = блок («CSC», «CS»)
Для каждого DomainString в arrDomains
'DomainString= " CSC "
Список = список & «********************************************** «& VbCrLf
Список = список & DomainString & «групповое членство» & VbCrLf
Список = список & «********************************************** «& VbCrLf
Список = список & VbCrLf
На резюме ошибки затем
Установите UserObj = GetObject («WinNT: /» & DomainString & «/» & UserString)
Если Err.Number = 0 после этого
На ошибке переход 0
Для каждого GroupObj в UserObj.Groups
Список = список & GroupObj.Name & VbCrLf
Затем
Еще
Err.Clear
На ошибке переход 0
Список = список & «потребитель не существуют» & DomainString
Закончитесь если
Затем
Список WScript.Echo
|