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
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us