Bonjour,
Je possède un script permettant d'ajouter rapidement des utilisateurs, référencés dans un fichier, dans un serveur. J'ai pu donc faire le script avec mes bases, et en me renseignant par-ci, par-là. Cependant n'étant pas spécialiste du VBScript, j'aimerais approfondir ce script afin le rendre le plus complet et efficace possible en 3 points :
- Remplacer tous les accents par les lettres sans accents
- En cas d'homonyme (ex : François BERTRAND et Frédéric BERTRAND etc...), ajouter un 2, 3... à l'identifiant de connexion
- Le cas où l'utilisateur se retrouve dans plusieurs Unités d'Organisation.
Pouvez-vous m'aider s.v.p ? Je vous présente mon code :
Merci d'avance !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 Do Until objFile.AtEndofStream Strline=objFile.ReadLine temp = split(Strline," ", 2) Dim Nom 'as String Dim Prenom 'as String if StrComp(temp(0), Ucase(temp(0))) = 0 Then Nom = temp(0) Prenom= temp(1) else Nom= temp(1) Prenom= temp(0) End If osn=Nom oGivenName=Prenom oUname = Left(oGivenName,1) & "." & osn
Partager