Вопрос : Сценарий VBS для того чтобы не создать потребителя, если потребитель существующий в активно директории

Hi потребность everyone.

I некоторые помогает here.

I для того чтобы сделать сценарий vbs, то создаст потребителя в активно директории, но проблема, everytime я бегу этот сценарий, пароль потребителя получает возврат назад к старому паролю, там любым которое может помочь мне whit дорога, поэтому она не будет happe??? class=

Ответ : Сценарий VBS для того чтобы не создать потребителя, если потребитель существующий в активно директории

Принято от: http://www.enterpriseitplanet.com/resources/scripts_win/article.php/3084291/Script-to-Search-for-a-User-in-Active-Directory.htm

Удача
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:

СЦЕНАРИЙ: 
'**************************************************************************************
'Создал:    04/08/2002 
'Автор:     Yi Хелен Wang
'Цель:    Искать потребителей через активно директорию (AD) 
'            Windows 2000, котор нужно обеспечить против дублировать когда 
'            новый потребитель добавлен в ОБЪЯВЛЕНИЕ
'Ключевые слова:   СУЕТА и ADSI 2.5 или поднимают
'Рассмотрел:   05/13/2002
'Комментарий:    Вы должны задать позволение получить активно директорию 
'      информация.  Эта программа бежится местно или дистанционно
'***************************************************************************************
на резюме ошибки затем

тусклое oContainer, searchpath
тусклое oRoot
тусклое oConnect, oCommand, rs
тусклое strConnect, strDomainCtrl, strOU
тусклое cntuser, newuser, strCN, strSearchUser

newuser = ложно
cntuser = 0

'получить namespace LDAP
установите oRoot = GetObject («LDAP: //RootDSE ")
звонок ShowError («вопросы позволения! ")
strDomainCtrl = oRoot.Get («defaultNamingContext»)

strOU = InputBox («пожалуйста вход имя блока организации, котор нужно искать: », «ищущ», «законно»)
если Len, то (уравновешивание (strOU)) = 0 после этого
  msgbox «никакая, котор информация не напечатала на машинке внутри!» 
еще
  strConnect = «LDAP: //OU=» & strOU &», «& strDomainCtrl
  установите oContainer = GetObject (strConnect)
  вызовите ShowError («OUNameNotExist»)
  
  searchpath = oContainer.ADsPath

  strSearchUser = InputBox («пожалуйста вход потребитель искал инициал: », «искать», «sls»)
  если Len, то (уравновешивание (strSearchUser))=0  после этого
    msgbox «никакая, котор информация не напечатала на машинке внутри!»
  еще
    'Using СУЕТА для того чтобы запросить активно директорию для потребителя particule
    установите oConnect = CreateObject («ADODB.Connection»)
    установите oCommand = CreateObject («ADODB.Command»)
    вызовите ShowError («ADOProblems»)

    'раскрывающ соединение
    oConnect.Provider = «ADsDSOObject»    
    oConnect.Open «активно провайдер директории»
    звонок ShowError («ADOProvider»)
     'создающ предмет командование для этого соединения
     Установите  oCommand.ActiveConnection = oConnect

     strCN = strSearchUser
     СДЕЛАЙТЕ ПОКА newuser <> поистине
  
      oCommand.CommandText = «ОТБОРНОЕ samAccountName ОТ «» & searchpath & «» ГДЕ objectClass='user И samAccountName = ««& strSearchUser &»» «

      'создающ recordset основанное на командование СУЕТЫ
      установите rs = oCommand.Execute
 
      'Проводить записывает комплект
      если rs.EOF и rs.BOF после этого
        msgbox  «новый потребитель»
        newuser = True
      еще
       cntuser = cntuser + 1
       'переименуйте и проверяйте снова до никакого дублирования
       strSearchUser = вышло (strCN, 1) & правое (strCN, 1) & cntuser
       msgbox  «переименует CN как» & strSearchUser
       установите rs = ничего
     закончитесь если

    ПЕТЛЯ
  закончитесь если
закончитесь если
    
sub ShowError (strErr)
  если заблуждается <> 0 после этого

   если заблуждаются = 432 или err=70 после этого
    wscript.echo «позволение выдает для того чтобы побежать программа»
    wscript.quit   
   еще
    выберите strErr случая
     покрывайте «OUNameNotExist»
      wscript.echo «имя OU не правильно или не существовать!»
      wscript.quit
     случай «ADOProblems»
      wscript.echo «проблемы СУЕТЫ!»
      wscript.quit
     случай «ADOProvider»
      wscript.echo «проблемы провайдера СУЕТЫ!»
      wscript.quit
    конец отборный
   закончитесь если

  закончитесь если
закончите подводную лодку
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us