rechercher chaine de caractere quelque soit la casse

Version imprimable

Bonjour,

Je cherche a remplacer une chaine de caractere connue dans un script.

Je dois remplacer le homedirectory de pleins de personnes dans notre Active Directory par ce qu'on change nos serveurs de stockage.

Dans l'AD les utilisateurs avais \\OldServeur\dossier et je dois leur mettre \\Nouveauserveur\dossier.

Je pensais utiliser ca:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 (avant ca le script récupère l'info homedirectory pour chaque utilisateur) chemin = "\\Nouveauserveur" If InStr(HomeDirectory,chemin) <> 0 Then HomeDirectory = Replace (HomeDirectory, "\\OldServeur" , "\\Nouveauserveur") ObjMember.Put "homeDirectory", HomeDirectory ObjMember.SetInfo
Mais je viens de me rendre compte que certains utilisateurs ont \\OLDSERVEUR\dossier

et du coup mon script ne fonctionne pas !

Help, si vous avez une idée pour me sortir de ce guepier je vous en serais très reconnaissant !

Merci !

Salut
Code:

1 2 HomeDirectory = Replace(HomeDirectory, "\\OldServeur", "\\Nouveauserveur") HomeDirectory = Replace(HomeDirectory, "\\OLDSERVEUR", "\\Nouveauserveur")
Il suffit de mettre autant de Replace que d'occurrence possible.

10/12/2010, 20h41
hugodu13

aie, parcequ'en fait ce n'est qu'un exemple :(

l'arborescence a remplacer est beaucoup plus longue et il y a des combinaisons de Casse qui me sont inconnu :\
10/12/2010, 20h44
ProgElecT

Le mot est il toujours OLDSERVEUR quelque soit les majuscules ou minuscules ?
10/12/2010, 20h49
hugodu13

oui c'est bien ca.

en fait le home directory c'est un lecteur réseau qui est crée quand les utilisateurs se loguent

exemple: lecteur U: \\Oldserveur\stockageperso\%username%

nous mettons en place un nouveau serveur, il faut donc que je change dans l'active directory

\\Oldserveur par le nom du nouveau serveur.

Windows se fiche de la casse, donc dans l'AD on as un peu de tout...
Ca aété au bon vouloir de la personne qui a crée le compte :(

Code:

1
2
3
4
5
dim HomeDirectory
 
HomeDirectory = "\\OldServeur\dossier"
HomeDirectory = Replace(UCase(HomeDirectory), "\\OLDSERVEUR", "\\Nouveauserveur")
msgbox HomeDirectory

Code vérifier :ccool:

10/12/2010, 21h27
hugodu13

Excellent !!

Ca marche nickel :)

J'ai encore du chemin à faire ne programmation lol !

Avec cette migration j'ai du m'y coller a fond, mon script de migration en ferai rire plus d'un je pense.

me voilà débloquer je vais pouvoir attaquer la suite,

merci beacoup :)

Zut :?

Replace(UCase(HomeDirectory), fait passer en majuscule tout le texte sauf le remplacement.

J'ai me semble t il mieux vérifié avec ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim HomeDirectory
Dim Deb, Fin, Entete, Suite, NameNewServer
 
HomeDirectory = "U:\\Oldserveur\stockageperso\%username%"
NameNewServer = "Nouveauserveur"
 
Deb = InStr(1, HomeDirectory, "\\", vbTextCompare)
Entete = Left(HomeDirectory, Deb + 1)
Fin = InStr(Len(Entete) + 1, HomeDirectory, "\", vbTextCompare)
Suite = Right(HomeDirectory, Len(HomeDirectory) - (Fin - 1))
 
HomeDirectory = Entete & "Nouveauserveur" & Suite
MsgBox HomeDirectory

Merci encore ^^

En fait la casse d'arrivée ne m'importe pas étant donné que windows se fiche de la casse pour monter ce lecteur.

et je dois avouer que ce code me donne mal au crane :) (il m'en faut peu ^^)

Si vous voulez rigoler un peu voici mon script complet. (ou si un jour quelqu'un a besoin qui sait ^^)

il ya a plein de lignes inutiles qui viennent des autres codes que j'ai trouvé

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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
Dim ObjWb 
Dim zz 
Set objRoot = GetObject("LDAP://RootDSE") 
strDNC = objRoot.Get("DefaultNamingContext") 
Set objDomain = GetObject("LDAP://" & strDNC) ' Bind to the top of the Domain using LDAP using ROotDSE 
Set objFSO = CreateObject("Scripting.FileSystemObject")
set Fso = objFSO.OpenTextFile("output.txt", 2, True) 
Fso.WriteLine("SamAccountName,CN,HomeDirectory")
Call enummembers(objDomain) 
Sub enumMembers(objDomain) 
On Error Resume Next 
 
chemin = "C:\USERS\ADMINISTRATOR\DESKTOP\"  'référence à chercher dans les utilisateurs pour savoir si ils sont concernés par la migration
 
For Each objMember In objDomain ' go through the collection 
 
If ObjMember.Class = "user" Then ' if not User object, move on. 
 
ClassName = objMember.Class 
SamAccountName = ObjMember.samAccountName 
Cn = ObjMember.CN 
FirstName = objMember.GivenName 
LastName = objMember.sn 
initials = objMember.initials 
Descrip = objMember.description 
Office = objMember.physicalDeliveryOfficeName 
Telephone = objMember.telephonenumber 
EmailAddr = objMember.mail 
WebPage = objMember.wwwHomePage 
Addr1 = objMember.streetAddress 
City = objMember.l 
State = objMember.st 
ZipCode = objMember.postalCode 
Title = ObjMember.Title 
Department = objMember.Department 
Company = objMember.Company 
Manager = ObjMember.Manager 
Profile = objMember.profilePath 
LoginScript = objMember.scriptpath 
HomeDirectory = ObjMember.HomeDirectory 
HomeDrive = ObjMember.homeDrive 
AdsPath = Objmember.Adspath 
LastLogin = objMember.LastLogin 
 
 
noCaseHomedir = UCase(HomeDirectory) 'home directory en majuscule pour éviter les problemes
 
Fso.WriteLine(SamAccountName & "," & CN & "," & noCaseHomedir) 'j'écris ces valeur dans un fichier texte pour savoir ou j en suis je garde cettte ligne sous la main
 
If InStr(noCaseHomedir,chemin) <> 0 Then 'cherche une occurence du chemin de référence, si ce chemin est trouvé ca veux dire que l utilisateur est concerné par la migration
 
HomeDirectory = Replace (LCase(HomeDirectory), "c:\users\administrator\desktop" , "C:\test") 'je remplace l'ancien chemin par le nouveau ici c:\test
 
ObjMember.Put "homeDirectory", HomeDirectory 'injection dans l active directory
 
ObjMember.SetInfo 'on applique
 
End If
' Blank out Variables in case the next object doesn't have a value for the property 
SamAccountName = "-" 
Cn = "-" 
FirstName = "-" 
LastName = "-" 
initials = "-" 
Descrip = "-" 
Office = "-" 
Telephone = "-" 
EmailAddr = "-" 
WebPage = "-" 
Addr1 = "-" 
City = "-" 
State = "-" 
ZipCode = "-" 
Title = "-" 
Department = "-" 
Company = "-" 
Manager = "-" 
Profile = "-" 
LoginScript = "-" 
HomeDirectory = "-" 
HomeDrive = "-" 
Primary = "-" 
For ll = 1 To 20 
Secondary(ll) = "" 
Next 
   End If 
 
   ' If the AD enumeration runs into an OU object, call the Sub again to itinerate 
 
   If objMember.Class = "organizationalUnit" or OBjMember.Class = "container" Then 
       enumMembers (objMember) 
   End If 
Next 
End Sub 
 
MsgBox "Done" ' show that script is complete