Discussion :

[hugodu13]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[ProgElecT]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
HomeDirectory = Replace(HomeDirectory, "\\OldServeur", "\\Nouveauserveur")
HomeDirectory = Replace(HomeDirectory, "\\OLDSERVEUR", "\\Nouveauserveur")

Il suffit de mettre autant de Replace que d'occurrence possible.

[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 :\

[ProgElecT]

Le mot est il toujours OLDSERVEUR quelque soit les majuscules ou minuscules ?

[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

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code vérifier

[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

[ProgElecT]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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