Question : Comment peux j'obtenir ce manuscrit de vbs pour sauter au prochain utilisateur, si d'utilisateur l'exsiste déjà dans l'annuaire actif

Salut Everyone.

I ont fait ce manuscrit et est-ce que j'ai besoin de l'aide, que j'ai besoin est, si l'exsiste d'utilisateur déjà dans l'annuaire actif des xls classent, qu'il ne créera pas l'utilisateur, parce que d'utilisateur l'exsiste déjà dans l'annuaire actif, peut n'importe qui m'aider ? ? ? objRootDSE du
Dim de résumé d'erreur du

On prochain : Placer l'objRootDSE = le GetObject (« LDAP : de //RootDSE " du )/>strDNSDomain = remplacent (remplacer (objRootDSE.Get
ultNamingContext »), », DC= ", « ."), « de DC= », "") l'objOU d'objRootDSE du
Set = de
Dim de Nothing
: Placer l'objOU = le GetObject (« LDAP : / » et objExcel du
Dim du
de TARGET_OU) : Placer objWorkbook d'objExcel = de
Dim de CreateObject (le « Excel.Application ») : Placer l'objWorkbook = le début du
'du
d'objExcel.Workbooks.Open (EXCEL_FILE) à la rangée 2, après l'intRow de header.
Dim : intRow =
Do de 2
jusqu'à objExcel.Cells (l'intRow, 1).Value =
du
de "" obscurcissent le strUserName : strUserName = objExcel.Cells (l'intRow, 1).Value
obscurcissent le strDisplayName : strDisplayName = objExcel.Cells (l'intRow, 2).Value
obscurcissent le strFirstName : strFirstName = objExcel.Cells (l'intRow, 3).Value
obscurcissent le strLastName : strLastName = objExcel.Cells (l'intRow, 4).Value
obscurcissent le strDS : strDS = objExcel.Cells (intRow, 5).Value faible strOffice de
': strOffice = objExcel.Cells (l'intRow, 6).Value
obscurcissent le strPWD : strPWD = objExcel.Cells (l'intRow, le
de 7).Value

obscurcissent l'objUser : Placer l'objUser = physicalDeliveryOfficeName » du strDS
le « objUser.Put du strFirstName
objUser.Put « du strLastName
objUser.Put « du strDisplayName
objUser.Put « du strDNSDomain
objUser.Put « du strUserName
objUser.Put « du
objUser.Put « d'objOU.Create (« utilisateur », « CN= » et strDisplayName) sAMAccountName », userPrincipalName », le strUserName et « @ » et displayName », Sn », givenName », description », « , le strOffice
objUser.Put « homeDrive », « X : « 
objUser.Put « homeDirectory », » \ \ shadowcom.local \ système \ profiles \ «  et sektion du strUsername
objUser.SetInfo
 » Separat jusqu'au mot de passe d'af d'importation jusqu'au brugerne
objUser.userAccountControl de/> = de 512
objUser.SetPassword objUser.AccountDisabled = intRow de
de False
objUser.SetInfo
= intRow +
du
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit de 1
Loop
class= de

Réponse : Comment peux j'obtenir ce manuscrit de vbs pour sauter au prochain utilisateur, si d'utilisateur l'exsiste déjà dans l'annuaire actif

A eu un typo.  Essayer ceci satisfont.

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 :

Sur l'erreur reprendre après Const ADS_SCOPE_SUBTREE = 2 'recherchent l'objet de cible et tous les niveaux de sous-marin Faible objRootDSE : Placer l'objRootDSE = le GetObject (« LDAP : //RootDSE ») le strDNSDomain = remplacent (remplacer (objRootDSE.Get (« defaultNamingContext »), », DC= ", « ."), « DC= », le "") strADsPath = « LDAP : / » et objRootDSE.Get (« defaultNamingContext ») 'Relier à l'annuaire actif Placer l'objConnection = le CreateObject (« ADODB.Connection ») Placer l'objCommand = le CreateObject (« ADODB.Command ») objConnection.Provider = « ADsDSOObject » objConnection.Open « fournisseur actif d'annuaire » Placer objCommand.ActiveConnection = objConnection objCommand.Properties (« taille de page ») = 1000 objCommand.Properties (« Searchscope ») = ADS_SCOPE_SUBTREE Faible objOU : Placer l'objOU = le GetObject (« LDAP : / » et TARGET_OU) Faible objExcel : Placer l'objExcel = le CreateObject (« Excel.Application ») Obscurcir l'objWorkbook : Placer l'objWorkbook = l'objExcel.Workbooks.Open (EXCEL_FILE) 'Commencer à la rangée 2, après l'en-tête. Obscurcir l'intRow : intRow = 2 Faire jusqu'à objExcel.Cells (intRow, 1).Value = "" Obscurcir le strUserName : strUserName = objExcel.Cells (intRow, 1).Value Faible strDisplayName : strDisplayName = objExcel.Cells (intRow, 2).Value Faible strFirstName : strFirstName = objExcel.Cells (intRow, 3).Value Faible strLastName : strLastName = objExcel.Cells (intRow, 4).Value Faible strDS : strDS = objExcel.Cells (intRow, 5).Value 'Faible strOffice : strOffice = objExcel.Cells (intRow, 6).Value Faible strPWD : strPWD = objExcel.Cells (intRow, 7).Value 'Le domaine d'ANNONCE de recherche pour vérifier le nom commun d'utilisateur n'existe pas déjà objCommand.CommandText = « distinguishedName CHOISI DE ' » et strADsPath et _ « « OÙ objectCategory='user » ET cn='" et strDisplayName et « ' » Placer l'objRecordSet = l'objCommand.Execute Si objRecordSet.EOF alors Faible objUser : Placer l'objUser = l'objOU.Create (« utilisateur », le « CN= » et le strDisplayName) objUser.Put « sAMAccountName », strUserName objUser.Put « userPrincipalName », strUserName et « @ » et strDNSDomain objUser.Put « displayName », strDisplayName objUser.Put « Sn », strLastName objUser.Put « givenName », strFirstName objUser.Put « description », strDS 'objUser.Put « physicalDeliveryOfficeName », strOffice objUser.Put « homeDrive », « X :  » objUser.Put « homeDirectory », » \ \ shadowcom.local \ système \ profils \ « et strUsername objUser.SetInfo 'Sektion de Separat jusqu'au mot de passe d'af d'importation jusqu'au brugerne objUser.userAccountControl = 512 strPWD d'objUser.SetPassword objUser.AccountDisabled = faux objUser.SetInfo Finir si intRow = intRow + 1 Boucle objExcel.ActiveWorkbook.Save EXCEL_FILE objExcel.ActiveWorkbook.Close objExcel.Quit