Bloqué dans mon vb script

Version imprimable

16/04/2009, 15h26
zeddic

Bloqué dans mon vb script

Bonjour,

J'ai réalisé un script pour ajouter des utilisateurs dans une base Active Directory. Une fois les infos rentrées avec des "inputbox" les utilisateurs ont bien leurs comptes créés ainsi qu'un dossier à leur nom avec les droits qui vont bien dessus.Jusqu'ici tout va bien.
Là ou je coince c'est lorsque je veux rentrer un utilisateur qui a le même nom et la même première lettre du prénom. En effet il me dit que l'objet existe déjà.
Je voudrais donc réaliser une boucle qui soit ajouterait un chiffre à la fin soit qui rajouterait la lettre suivante du prénom jusqu'à qu'il n'y ai plus de lettres en commun.

J'espère mon explication est a peu près claire.
J'ai retourné tout google pour trouver une solution mais y'a quasiment rien sur ce problème...

D'avance merci pour vos réponses.
Cordialement.
Zed
16/04/2009, 23h31
SfJ5Rpw8

Tu peu peu-être rajouter une gestion d'erreur à ta création et changer de nom en cas d'erreur...

on peu voir ton code de création ..?

Voici mon code,

Code:

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
'Déclaration des variables
 
DIM nom,prenom,ou,caractere,login
 
do while nom="" or prenom="" 
   nom = InputBox("Entrez un nom ","Nom")
   prenom = InputBox("Entrez un prénom ","Prenom")
   ou = InputBox("Dans quel Unité d'organisation voulez vous mettre l'utilisateur ?","Unite d'organisation")
 
loop
 
compteur = 1
 
'caractere = Left(prenom,1)   
login = Left(prenom, compteur) + (nom)
 
 
'Détermine le chemin LDAP du domaine
 
 
Set Root = GetObject("LDAP://RootDSE")
DomainPath = Root.Get("DefaultNamingContext")
 
 
'Indique le chemin ou créer l'utilisateur
 
Set chemin = GetObject("LDAP://OU="&ou &","& domainpath)
 
 
' Créé l'utilisateur dans l'OU
 
 
 
Set oUser = chemin.Create("user", "CN=" & prenom&" "&nom)
 
 
 oUser.Put "SamAccountName",  login
 oUser.Put "userPrincipalName", login
 oUser.Put "displayName", prenom&" "&nom
 oUser.Put "mail", prenom & "." & nom &"@termier"
 
 
 oUser.sn = nom
 oUser.GivenName = prenom
 oUser.homeDirectory = "\\BigBoss\Perso\"& prenom &" "& nom &""    
 oUser.homeDrive = "J:"
 oUser.scriptPath = "service"
 oUser.SetInfo
 
 
wscript.echo "Utilisateur créé"
 
if oUser.AccountDisabled = TRUE then
   WScript.Echo "Le compte de " & prenom &" "& nom &" est actuellement désactivé"
   WScript.Echo "Le compte de " & prenom &" "& nom &" va être activé"
 
   if strDisableAccount = FALSE then
      oUser.AccountDisabled = strDisableAccount
      oUser.SetInfo
      WScript.Echo "Le compte est maintenant activé"
   end if
 
end if
 
wscript.echo "Le dossier de " & prenom &" "& nom &" va être créé"
 
'Création dossier utilisateur
 
Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.CreateFolder("\\BigBoss\Perso\" & prenom &" "& nom & "")
 
'Gestion des droits
 
Set wShell = CreateObject("wscript.shell")
 
lignedecommande ="Cacls ""C:\Perso\" & prenom &" "& nom & """ /T /C /P " & login & ":C Administrateurs:F"
 
wShell.run lignedecommande

Je pensais plutot à un if dans une boucle genre if "login n'existe pas" création de celui-ci sinon ajout d'une lettre supplémentaire du prénom.

Cordialement

Bonjour.

Selon moi, tu devrais créer (ou trouver) une fonction UserExists(strUser) qui testerait l'existence de ton utilisateur dans ton AD.

Ensuite il te suffit de faire lors de l'attribution du login :

Code:

1
2
3
4
5
6
7
compteur = 1
login = Left(prenom, compteur) + (nom)
Do While UserExists(login) & Len(login) < Len(prenom & nom)
  compteur = compteur + 1
  login = Left(prenom, compteur) + (nom)
Loop
If UserExists(login) Then WScript.Echo "Trop de doublons!"

Code:

1
2
3
4
5
6
compteur = 1
login = Left(prenom, compteur) + (nom)
Do While UserExists(login) & Len(login) < Len(prenom & nom)
  compteur = compteur + 1
  login = Left(prenom, compteur) + (nom) & CStr(compteur)
Loop