Вопрос : Двиньте учет инвалид к специфически OU

Hi,

if нашло этот сценарий chandru_sol. Оно должен двинуть всех неработающих потребителей домена в пожеланный вопрос о OU.

My: когда OU находится в пределах этого домена, сценарий копирует неработающего потребителя этого OU в себя? class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
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:
objConnection >Dim " class= " " codeSnippet797182 id= 
; » & strFilter & «; distinguishedName, userAccountControl; поддерево»  
 
objCommand.CommandText = strQuery  
 
objCommand.Properties («размер страницы») = 100  
 
objCommand.Properties («перерыв») = 30  
 
objCommand.Properties («тайник приводит к») = ложно  
 
'Перечислите всех потребителей. Проверите если учет вывел из строя.  
 
Установите objRecordSet = objCommand.Execute  
 
Не сделать до objRecordSet.EOF  
 
strDN = objRecordSet.Fields («distinguishedName»)  
 
intFlag = objRecordSet.Fields («userAccountControl»)  
 
Если (intFlag и ADS_UF_ACCOUNTDISABLE) <> 0 после этого  

Установите objUser = GetObject («LDAP: /» & strDN)

Установите objNewOU = GetObject («LDAP: Учет //ou=Disabled,» & objRootDSE.Get («defaultNamingContext»))
objNewOU.MoveHere objUser.ADsPath, vbNullString
 
Еще  

Закончитесь если  
 
objRecordSet.MoveNext  
 
Петля  
 
'Очистьте вверх
objConnection.Close  
 
«Сделанные» Wscript.Echo
Wscript.quit
class=

Ответ : Двиньте учет инвалид к специфически OU

Hi там,

Это должно сделать то. Я создавал вызванный блок arrOUs только перечисляет 2 OUs, котор вы имеете круг, и я дорабатывал часть которая определяет OU 03-DISABLED-USERS для того чтобы сопрягать вашу структуру.

Я если допустить, что MWZ-FM.COM буду таким же в настоящее время доменом что ваш компьютер дальше?  Если не, и вы находитесь на по-разному домене, после этого uncomment эта линия:, то

'strDNSDomain = «DC=MWZ-FM, DC=COM»

путем извлекать апостроф на фронте, и после этого сценарий укажет специфически к тому домену.

Отношения,

Rob.
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:

Тусклое objConnection, objCommand, objRootDSE  
Тусклое strDNSDomain, strFilter, strQuery, objRecordSet, strDN 
Тусклое strOUpath, objNewOU, objUser
Тусклое intFlag  
Const ADS_UF_ACCOUNTDISABLE = &H02  
'Используйте СУЕТУ для того чтобы искать домен для всех потребителей.  
Установите objConnection = CreateObject («ADODB.Connection»)  
Установите objCommand = CreateObject («ADODB.Command»)  
objConnection.Provider = «ADsDSOOBject»  
objConnection.Open «активно провайдер директории»  
Установите objCommand.ActiveConnection = objConnection  
'Обусловьте домен DNS от предмета RootDSE.  
Установите objRootDSE = GetObject («LDAP: //RootDSE»)  
strDNSDomain = objRootDSE.Get («DefaultNamingContext»)
'strDNSDomain = «DC=MWZ-FM, DC=COM»
strFilter = «(& (objectCategory=person) (objectClass=user))»  

'Каждый шнур должен иметь отставая запятой
arrOUs = блок (_
	«OU=11-USERS,», _
	«ПОТРЕБИТЕЛЬ MIGRIERT OU=12-EXCHANGE,» _
	)

Для каждого strOU в arrOUs
	strQuery = «; » & strFilter & «; distinguishedName, userAccountControl; поддерево»  
	objCommand.CommandText = strQuery  
	objCommand.Properties («размер страницы») = 100  
	objCommand.Properties («перерыв») = 30  
	objCommand.Properties («тайник приводит к») = ложно  
	'Перечислите всех потребителей. Проверите если учет вывел из строя.  
	Установите objRecordSet = objCommand.Execute
	Не сделать до objRecordSet.EOF  
		strDN = objRecordSet.Fields («distinguishedName»)  
		intFlag = objRecordSet.Fields («userAccountControl»)  
		Если (intFlag и ADS_UF_ACCOUNTDISABLE) <> 0 после этого 
			Установите objUser = GetObject («LDAP: /» & strDN)
			Установите objNewOU = GetObject («LDAP: //OU=03-DISABLED-USERS, OU=93-DISABLED-OBJECTS,» & strDNSDomain)
			objNewOU.MoveHere objUser.ADsPath, vbNullString
		Закончитесь если  
		objRecordSet.MoveNext  
	Петля  
Затем
'Очистьте вверх
objConnection.Close  
«Сделанные» Wscript.Echo
Wscript.quit
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us