Вопрос : Как могу я получить, что этот сценарий vbs поскакал к следующему потребителю, если потребителя exsiste уже в активно директории

Hi Everyone.

I делали этот сценарий и мне нужна некоторая помощь, я, если exsiste потребителя уже в активно директории от xls хранит, то что оно не создаст потребителя, потому что потребителя exsiste уже в активно директории, может любое помочь мне??? objRootDSE
Dim резюма ошибки

On следующее: Установите objRootDSE = GetObject («LDAP: //RootDSE " )/>strDNSDomain = заменяют ть (замените (objRootDSE.Get
ultNamingContext»),», DC= ", «."), «DC=», "") objOU objRootDSE
Set =
Dim Nothing
: Установите objOU = GetObject («LDAP: /» &
TARGET_OU) objExcel
Dim: Установите objWorkbook objExcel =
Dim CreateObject («Excel.Application»): Установите objWorkbook = старт
'
objExcel.Workbooks.Open (EXCEL_FILE) на рядок 2, после intRow header.
Dim: intRow =
Do 2
до objExcel.Cells (intRow, 1).Value =

"" затемняет strUserName: strUserName = objExcel.Cells (intRow, 1).Value
затемняет strDisplayName: strDisplayName = objExcel.Cells (intRow, 2).Value
затемняет strFirstName: strFirstName = objExcel.Cells (intRow, 3).Value
затемняет strLastName: strLastName = objExcel.Cells (intRow, 4).Value
затемняет strDS: strDS = objExcel.Cells (intRow, 5).Value strOffice
'тусклое: strOffice = objExcel.Cells (intRow, 6).Value
затемняет strPWD: strPWD = objExcel.Cells (intRow,
7).Value

затемняет objUser: Установите objUser = physicalDeliveryOfficeName» strDS
«objUser.Put strFirstName
objUser.Put «strLastName
objUser.Put «strDisplayName
objUser.Put «strDNSDomain
objUser.Put «strUserName
objUser.Put «
objUser.Put «objOU.Create («потребитель», «CN=» & strDisplayName) sAMAccountName», userPrincipalName», strUserName & «@» & displayName», sn», givenName», описание», «, strOffice
objUser.Put «homeDrive», «x: «
objUser.Put «homeDirectory»,» \ \ shadowcom.local \ система \ profiles \ « & sektion strUsername
objUser.SetInfo
» Separat до пароля af ввоза до brugerne
objUser.userAccountControl/> = 512
objUser.SetPassword objUser.AccountDisabled =
False
objUser.SetInfo
intRow = intRow +

objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit 1
Loop
class=

Ответ : Как могу я получить, что этот сценарий vbs поскакал к следующему потребителю, если потребителя exsiste уже в активно директории

Имел typo.  Попытайтесь это угодите.

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:

На ошибке возобновьте затем

Const ADS_SCOPE_SUBTREE = 2 'ищет предмет цели и все уровни подводной лодки


Тусклое objRootDSE: Установите objRootDSE = GetObject («LDAP: //RootDSE»)
strDNSDomain = заменяет ть (замените (objRootDSE.Get («defaultNamingContext»),», DC= ", «."), «DC=», "")

strADsPath = «LDAP: /» & objRootDSE.Get («defaultNamingContext»)

'Соединитесь к активно директории
Установите objConnection = CreateObject («ADODB.Connection»)
Установите objCommand = CreateObject («ADODB.Command»)
objConnection.Provider = «ADsDSOObject»
objConnection.Open «активно провайдер директории»
Установите objCommand.ActiveConnection = objConnection
objCommand.Properties («размер страницы») = 1000
objCommand.Properties («Searchscope») = ADS_SCOPE_SUBTREE

 
Тусклое objOU: Установите objOU = GetObject («LDAP: /» & TARGET_OU)
 
Тусклое objExcel: Установите objExcel = CreateObject («Excel.Application»)
Затемните objWorkbook: Установите objWorkbook = objExcel.Workbooks.Open (EXCEL_FILE)
 
'Начните на рядке 2, после коллектора.
Затемните intRow: intRow = 2
 
Не сделать до objExcel.Cells (intRow, 1).Value = ""
		  
	Затемните strUserName: strUserName = objExcel.Cells (intRow, 1).Value
	Тусклое strDisplayName: strDisplayName = objExcel.Cells (intRow, 2).Value
	Тусклое strFirstName: strFirstName = objExcel.Cells (intRow, 3).Value
	Тусклое strLastName: strLastName = objExcel.Cells (intRow, 4).Value
	Тусклое strDS: strDS = objExcel.Cells (intRow, 5).Value  
	'Тусклое strOffice: strOffice = objExcel.Cells (intRow, 6).Value
	Тусклое strPWD: strPWD = objExcel.Cells (intRow, 7).Value
			
	'Домен ОБЪЯВЛЕНИЯ поиска для проверки имени потребителя обычный уже не существует
	objCommand.CommandText = «ОТБОРНОЕ distinguishedName ОТ '» & strADsPath & _
	««ГДЕ objectCategory='user» И cn='" & strDisplayName & «'»
	Установите objRecordSet = objCommand.Execute
	Если objRecordSet.EOF после этого
					 
		Тусклое objUser: Установите objUser = objOU.Create («потребителя», «CN=» & strDisplayName)
		objUser.Put «sAMAccountName», strUserName
		objUser.Put «userPrincipalName», strUserName & «@» & strDNSDomain
		objUser.Put «displayName», strDisplayName
		objUser.Put «sn», strLastName
		objUser.Put «givenName», strFirstName
		objUser.Put «описание», strDS
		'objUser.Put «physicalDeliveryOfficeName», strOffice
		objUser.Put «homeDrive», «x: »
		objUser.Put «homeDirectory»,» \ \ shadowcom.local \ система \ профили \ «& strUsername
		objUser.SetInfo
		'Sektion Separat до пароля af ввоза до brugerne
		objUser.userAccountControl = 512
		strPWD objUser.SetPassword
		objUser.AccountDisabled = ложно
		objUser.SetInfo
	Закончитесь если
		
	intRow = intRow + 1
Петля
 
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us