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 :
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
Merci d'avance !