Bonjour
je suis à la recherche d'un spécialiste en script windows , pour m'aider à
créer un vbscript ou autre, pour changer les mappages de lecteur réseaux d'un
poste client sur mon LAN, je souhaite changer mon serveur de fichier, et que
lorsqu'un utilisateur se connecte que ces mappages soient redirigés en
automatique sur mon nouveau serveur de fichier.
Merci de votre aide. si vous pouviez me répondre sur mon email
jphongsavanh(nospam)@stallergenes.fr
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Fred
Dans le message :, JoeyP disait :
Bonjour je suis à la recherche d'un spécialiste en script windows , pour m'aider à créer un vbscript ou autre, pour changer les mappages de lecteur réseaux d'un poste client sur mon LAN, je souhaite changer mon serveur de fichier, et que lorsqu'un utilisateur se connecte que ces mappages soient redirigés en automatique sur mon nouveau serveur de fichier. Merci de votre aide. si vous pouviez me répondre sur mon email jphongsavanh(nospam)@stallergenes.fr
Bonjour, Ceci devrait faire l'affaire après adaptation : 8<---------------- Set WshNetwork = WScript.CreateObject("WScript.Network") Set oDrives = WshNetwork.EnumNetworkDrives For i = 0 to oDrives.Count - 1 Step 2 Select Case oDrives.Item(i) Case "M:" 'Faire un case par lecteur mappé If oDrives.Item(i+1) = "ancien chemin UNC" Then WshNetwork.RemoveNetworkDrive oDrives.Item(i), True, True WshNetwork.MapNetworkDrive oDrives.Item(i), "nouveau chemin UNC", True End if End Select Next 8<----------------- Une fois que tous les utilisateurs auront exécuté au moins une fois ce script, il peut être désactivé.
-- Fred
Dans le message :D90BDE9D-51A1-4123-B28B-5BD0C4227164@microsoft.com,
JoeyP <JoeyP@discussions.microsoft.com> disait :
Bonjour
je suis à la recherche d'un spécialiste en script windows , pour
m'aider à créer un vbscript ou autre, pour changer les mappages de
lecteur réseaux d'un poste client sur mon LAN, je souhaite changer
mon serveur de fichier, et que lorsqu'un utilisateur se connecte que
ces mappages soient redirigés en automatique sur mon nouveau serveur
de fichier.
Merci de votre aide. si vous pouviez me répondre sur mon email
jphongsavanh(nospam)@stallergenes.fr
Bonjour,
Ceci devrait faire l'affaire après adaptation :
8<----------------
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
For i = 0 to oDrives.Count - 1 Step 2
Select Case oDrives.Item(i)
Case "M:" 'Faire un case par lecteur mappé
If oDrives.Item(i+1) = "ancien chemin UNC" Then
WshNetwork.RemoveNetworkDrive oDrives.Item(i), True, True
WshNetwork.MapNetworkDrive oDrives.Item(i), "nouveau chemin UNC",
True
End if
End Select
Next
8<-----------------
Une fois que tous les utilisateurs auront exécuté au moins une fois ce
script, il peut être désactivé.
Bonjour je suis à la recherche d'un spécialiste en script windows , pour m'aider à créer un vbscript ou autre, pour changer les mappages de lecteur réseaux d'un poste client sur mon LAN, je souhaite changer mon serveur de fichier, et que lorsqu'un utilisateur se connecte que ces mappages soient redirigés en automatique sur mon nouveau serveur de fichier. Merci de votre aide. si vous pouviez me répondre sur mon email jphongsavanh(nospam)@stallergenes.fr
Bonjour, Ceci devrait faire l'affaire après adaptation : 8<---------------- Set WshNetwork = WScript.CreateObject("WScript.Network") Set oDrives = WshNetwork.EnumNetworkDrives For i = 0 to oDrives.Count - 1 Step 2 Select Case oDrives.Item(i) Case "M:" 'Faire un case par lecteur mappé If oDrives.Item(i+1) = "ancien chemin UNC" Then WshNetwork.RemoveNetworkDrive oDrives.Item(i), True, True WshNetwork.MapNetworkDrive oDrives.Item(i), "nouveau chemin UNC", True End if End Select Next 8<----------------- Une fois que tous les utilisateurs auront exécuté au moins une fois ce script, il peut être désactivé.
-- Fred
JoeyP
Salut en fait dans le scritp comment peut on intégrer des conditions pour tester les valeurs
Dans le message :, JoeyP disait :
Bonjour je suis à la recherche d'un spécialiste en script windows , pour m'aider à créer un vbscript ou autre, pour changer les mappages de lecteur réseaux d'un poste client sur mon LAN, je souhaite changer mon serveur de fichier, et que lorsqu'un utilisateur se connecte que ces mappages soient redirigés en automatique sur mon nouveau serveur de fichier. Merci de votre aide. si vous pouviez me répondre sur mon email jphongsavanh(nospam)@stallergenes.fr
Bonjour, Ceci devrait faire l'affaire après adaptation : 8<---------------- Set WshNetwork = WScript.CreateObject("WScript.Network") Set oDrives = WshNetwork.EnumNetworkDrives For i = 0 to oDrives.Count - 1 Step 2 Select Case oDrives.Item(i) Case "M:" 'Faire un case par lecteur mappé If oDrives.Item(i+1) = "ancien chemin UNC" Then WshNetwork.RemoveNetworkDrive oDrives.Item(i), True, True WshNetwork.MapNetworkDrive oDrives.Item(i), "nouveau chemin UNC", True End if End Select Next 8<----------------- Une fois que tous les utilisateurs auront exécuté au moins une fois ce script, il peut être désactivé.
-- Fred
Salut
en fait dans le scritp comment peut on intégrer des conditions pour tester
les valeurs
Dans le message :D90BDE9D-51A1-4123-B28B-5BD0C4227164@microsoft.com,
JoeyP <JoeyP@discussions.microsoft.com> disait :
Bonjour
je suis à la recherche d'un spécialiste en script windows , pour
m'aider à créer un vbscript ou autre, pour changer les mappages de
lecteur réseaux d'un poste client sur mon LAN, je souhaite changer
mon serveur de fichier, et que lorsqu'un utilisateur se connecte que
ces mappages soient redirigés en automatique sur mon nouveau serveur
de fichier.
Merci de votre aide. si vous pouviez me répondre sur mon email
jphongsavanh(nospam)@stallergenes.fr
Bonjour,
Ceci devrait faire l'affaire après adaptation :
8<----------------
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
For i = 0 to oDrives.Count - 1 Step 2
Select Case oDrives.Item(i)
Case "M:" 'Faire un case par lecteur mappé
If oDrives.Item(i+1) = "ancien chemin UNC" Then
WshNetwork.RemoveNetworkDrive oDrives.Item(i), True, True
WshNetwork.MapNetworkDrive oDrives.Item(i), "nouveau chemin UNC",
True
End if
End Select
Next
8<-----------------
Une fois que tous les utilisateurs auront exécuté au moins une fois ce
script, il peut être désactivé.
Salut en fait dans le scritp comment peut on intégrer des conditions pour tester les valeurs
Dans le message :, JoeyP disait :
Bonjour je suis à la recherche d'un spécialiste en script windows , pour m'aider à créer un vbscript ou autre, pour changer les mappages de lecteur réseaux d'un poste client sur mon LAN, je souhaite changer mon serveur de fichier, et que lorsqu'un utilisateur se connecte que ces mappages soient redirigés en automatique sur mon nouveau serveur de fichier. Merci de votre aide. si vous pouviez me répondre sur mon email jphongsavanh(nospam)@stallergenes.fr
Bonjour, Ceci devrait faire l'affaire après adaptation : 8<---------------- Set WshNetwork = WScript.CreateObject("WScript.Network") Set oDrives = WshNetwork.EnumNetworkDrives For i = 0 to oDrives.Count - 1 Step 2 Select Case oDrives.Item(i) Case "M:" 'Faire un case par lecteur mappé If oDrives.Item(i+1) = "ancien chemin UNC" Then WshNetwork.RemoveNetworkDrive oDrives.Item(i), True, True WshNetwork.MapNetworkDrive oDrives.Item(i), "nouveau chemin UNC", True End if End Select Next 8<----------------- Une fois que tous les utilisateurs auront exécuté au moins une fois ce script, il peut être désactivé.
-- Fred
Fred
Dans le message:, JoeyP écrit:
Dans le message :, JoeyP disait :
Bonjour je suis à la recherche d'un spécialiste en script windows , pour m'aider à créer un vbscript ou autre, pour changer les mappages de lecteur réseaux d'un poste client sur mon LAN, je souhaite changer mon serveur de fichier, et que lorsqu'un utilisateur se connecte que ces mappages soient redirigés en automatique sur mon nouveau serveur de fichier. Merci de votre aide. si vous pouviez me répondre sur mon email jphongsavanh(nospam)@stallergenes.fr
Bonjour, Ceci devrait faire l'affaire après adaptation : 8<---------------- Set WshNetwork = WScript.CreateObject("WScript.Network") Set oDrives = WshNetwork.EnumNetworkDrives For i = 0 to oDrives.Count - 1 Step 2 Select Case oDrives.Item(i) Case "M:" 'Faire un case par lecteur mappé If oDrives.Item(i+1) = "ancien chemin UNC" Then WshNetwork.RemoveNetworkDrive oDrives.Item(i), True, True WshNetwork.MapNetworkDrive oDrives.Item(i), "nouveau chemin UNC", True End if End Select Next 8<----------------- Une fois que tous les utilisateurs auront exécuté au moins une fois ce script, il peut être désactivé.
Salut
en fait dans le scritp comment peut on intégrer des conditions pour tester les valeurs
Bonjour,
Je ne comprends pas ta question. Peux-tu expliciter ce que tu veux comme conditions ? Le script que je t'ai envoyé contient déjà une condition : If oDrives.Item(i+1) = "ancien chemin UNC" Then bla bla bla End If
Cela a pour effet de déconnecter un lecteur existant si son chemin n'est pas celui souhaité (autrement dit si c'est toujours l'ancien) Puis de le reconnecter avec le nouveau chemin. Je pense que cela répond très exactement à ta demande initiale (mis à part le fait que je ne peux deviner quels sont les lecteurs mappés, ni vers quoi ils sont mappés, ni vers quoi il devraient l'être)
Il te reste, pour chaque lecteur réseau à traiter, à faire une copie de la partie qui s'étend de : Case "M:" jusqu'au End If en remplaçant M par la lettre du lecteur réseau à traiter. Et pour chacun de ces lecteurs, à remplacer "ancien chemin UNC" et "nouveau chemin UNC" par ce qui te convient.
Je ne vois pas que te dire de plus :-)
Précision : le traitement ne s'exécutera qu'une seul fois sur chaque poste, même si relances le script, du fait de la condition justement. C'est pourquoi tu peux laisser ce script actif pendant un moment sans danger et le supprimer une fois que tous les postes l'ont exécuté au moins une fois. Ceci étant surtout intéressant si tu le mets en script de démarrage via Active Directory.
-- Fred
Dans le message:662B5AA7-3C1C-422A-8D92-0F4B643AD87B@microsoft.com,
JoeyP écrit:
Dans le message :D90BDE9D-51A1-4123-B28B-5BD0C4227164@microsoft.com,
JoeyP <JoeyP@discussions.microsoft.com> disait :
Bonjour
je suis à la recherche d'un spécialiste en script windows , pour
m'aider à créer un vbscript ou autre, pour changer les mappages de
lecteur réseaux d'un poste client sur mon LAN, je souhaite changer
mon serveur de fichier, et que lorsqu'un utilisateur se connecte que
ces mappages soient redirigés en automatique sur mon nouveau serveur
de fichier.
Merci de votre aide. si vous pouviez me répondre sur mon email
jphongsavanh(nospam)@stallergenes.fr
Bonjour,
Ceci devrait faire l'affaire après adaptation :
8<----------------
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
For i = 0 to oDrives.Count - 1 Step 2
Select Case oDrives.Item(i)
Case "M:" 'Faire un case par lecteur mappé
If oDrives.Item(i+1) = "ancien chemin UNC" Then
WshNetwork.RemoveNetworkDrive oDrives.Item(i), True, True
WshNetwork.MapNetworkDrive oDrives.Item(i), "nouveau chemin UNC",
True
End if
End Select
Next
8<-----------------
Une fois que tous les utilisateurs auront exécuté au moins une fois
ce script, il peut être désactivé.
Salut
en fait dans le scritp comment peut on intégrer des conditions pour
tester les valeurs
Bonjour,
Je ne comprends pas ta question. Peux-tu expliciter ce que tu veux comme
conditions ?
Le script que je t'ai envoyé contient déjà une condition :
If oDrives.Item(i+1) = "ancien chemin UNC" Then
bla bla bla
End If
Cela a pour effet de déconnecter un lecteur existant si son chemin n'est
pas celui souhaité (autrement dit si c'est toujours l'ancien)
Puis de le reconnecter avec le nouveau chemin.
Je pense que cela répond très exactement à ta demande initiale (mis à
part le fait que je ne peux deviner quels sont les lecteurs mappés, ni
vers quoi ils sont mappés, ni vers quoi il devraient l'être)
Il te reste, pour chaque lecteur réseau à traiter, à faire une copie de
la partie qui s'étend de :
Case "M:" jusqu'au End If
en remplaçant M par la lettre du lecteur réseau à traiter.
Et pour chacun de ces lecteurs, à remplacer "ancien chemin UNC" et
"nouveau chemin UNC" par ce qui te convient.
Je ne vois pas que te dire de plus :-)
Précision : le traitement ne s'exécutera qu'une seul fois sur chaque
poste, même si relances le script, du fait de la condition justement.
C'est pourquoi tu peux laisser ce script actif pendant un moment sans
danger et le supprimer une fois que tous les postes l'ont exécuté au
moins une fois. Ceci étant surtout intéressant si tu le mets en script
de démarrage via Active Directory.
Bonjour je suis à la recherche d'un spécialiste en script windows , pour m'aider à créer un vbscript ou autre, pour changer les mappages de lecteur réseaux d'un poste client sur mon LAN, je souhaite changer mon serveur de fichier, et que lorsqu'un utilisateur se connecte que ces mappages soient redirigés en automatique sur mon nouveau serveur de fichier. Merci de votre aide. si vous pouviez me répondre sur mon email jphongsavanh(nospam)@stallergenes.fr
Bonjour, Ceci devrait faire l'affaire après adaptation : 8<---------------- Set WshNetwork = WScript.CreateObject("WScript.Network") Set oDrives = WshNetwork.EnumNetworkDrives For i = 0 to oDrives.Count - 1 Step 2 Select Case oDrives.Item(i) Case "M:" 'Faire un case par lecteur mappé If oDrives.Item(i+1) = "ancien chemin UNC" Then WshNetwork.RemoveNetworkDrive oDrives.Item(i), True, True WshNetwork.MapNetworkDrive oDrives.Item(i), "nouveau chemin UNC", True End if End Select Next 8<----------------- Une fois que tous les utilisateurs auront exécuté au moins une fois ce script, il peut être désactivé.
Salut
en fait dans le scritp comment peut on intégrer des conditions pour tester les valeurs
Bonjour,
Je ne comprends pas ta question. Peux-tu expliciter ce que tu veux comme conditions ? Le script que je t'ai envoyé contient déjà une condition : If oDrives.Item(i+1) = "ancien chemin UNC" Then bla bla bla End If
Cela a pour effet de déconnecter un lecteur existant si son chemin n'est pas celui souhaité (autrement dit si c'est toujours l'ancien) Puis de le reconnecter avec le nouveau chemin. Je pense que cela répond très exactement à ta demande initiale (mis à part le fait que je ne peux deviner quels sont les lecteurs mappés, ni vers quoi ils sont mappés, ni vers quoi il devraient l'être)
Il te reste, pour chaque lecteur réseau à traiter, à faire une copie de la partie qui s'étend de : Case "M:" jusqu'au End If en remplaçant M par la lettre du lecteur réseau à traiter. Et pour chacun de ces lecteurs, à remplacer "ancien chemin UNC" et "nouveau chemin UNC" par ce qui te convient.
Je ne vois pas que te dire de plus :-)
Précision : le traitement ne s'exécutera qu'une seul fois sur chaque poste, même si relances le script, du fait de la condition justement. C'est pourquoi tu peux laisser ce script actif pendant un moment sans danger et le supprimer une fois que tous les postes l'ont exécuté au moins une fois. Ceci étant surtout intéressant si tu le mets en script de démarrage via Active Directory.
-- Fred
JoeyP
Salut désolé, je voulais répondre un autre topic sur le Newsgroup Mais j'ai pas encore eu le temps de tester ton script Je te tiens au courant Merci
Dans le message:, JoeyP écrit:
Dans le message :, JoeyP disait :
Bonjour je suis à la recherche d'un spécialiste en script windows , pour m'aider à créer un vbscript ou autre, pour changer les mappages de lecteur réseaux d'un poste client sur mon LAN, je souhaite changer mon serveur de fichier, et que lorsqu'un utilisateur se connecte que ces mappages soient redirigés en automatique sur mon nouveau serveur de fichier. Merci de votre aide. si vous pouviez me répondre sur mon email jphongsavanh(nospam)@stallergenes.fr
Bonjour, Ceci devrait faire l'affaire après adaptation : 8<---------------- Set WshNetwork = WScript.CreateObject("WScript.Network") Set oDrives = WshNetwork.EnumNetworkDrives For i = 0 to oDrives.Count - 1 Step 2 Select Case oDrives.Item(i) Case "M:" 'Faire un case par lecteur mappé If oDrives.Item(i+1) = "ancien chemin UNC" Then WshNetwork.RemoveNetworkDrive oDrives.Item(i), True, True WshNetwork.MapNetworkDrive oDrives.Item(i), "nouveau chemin UNC", True End if End Select Next 8<----------------- Une fois que tous les utilisateurs auront exécuté au moins une fois ce script, il peut être désactivé.
Salut
en fait dans le scritp comment peut on intégrer des conditions pour tester les valeurs
Bonjour,
Je ne comprends pas ta question. Peux-tu expliciter ce que tu veux comme conditions ? Le script que je t'ai envoyé contient déjà une condition : If oDrives.Item(i+1) = "ancien chemin UNC" Then bla bla bla End If
Cela a pour effet de déconnecter un lecteur existant si son chemin n'est pas celui souhaité (autrement dit si c'est toujours l'ancien) Puis de le reconnecter avec le nouveau chemin. Je pense que cela répond très exactement à ta demande initiale (mis à part le fait que je ne peux deviner quels sont les lecteurs mappés, ni vers quoi ils sont mappés, ni vers quoi il devraient l'être)
Il te reste, pour chaque lecteur réseau à traiter, à faire une copie de la partie qui s'étend de : Case "M:" jusqu'au End If en remplaçant M par la lettre du lecteur réseau à traiter. Et pour chacun de ces lecteurs, à remplacer "ancien chemin UNC" et "nouveau chemin UNC" par ce qui te convient.
Je ne vois pas que te dire de plus :-)
Précision : le traitement ne s'exécutera qu'une seul fois sur chaque poste, même si relances le script, du fait de la condition justement. C'est pourquoi tu peux laisser ce script actif pendant un moment sans danger et le supprimer une fois que tous les postes l'ont exécuté au moins une fois. Ceci étant surtout intéressant si tu le mets en script de démarrage via Active Directory.
-- Fred
Salut
désolé, je voulais répondre un autre topic sur le Newsgroup
Mais j'ai pas encore eu le temps de tester ton script
Je te tiens au courant
Merci
Dans le message:662B5AA7-3C1C-422A-8D92-0F4B643AD87B@microsoft.com,
JoeyP écrit:
Dans le message :D90BDE9D-51A1-4123-B28B-5BD0C4227164@microsoft.com,
JoeyP <JoeyP@discussions.microsoft.com> disait :
Bonjour
je suis à la recherche d'un spécialiste en script windows , pour
m'aider à créer un vbscript ou autre, pour changer les mappages de
lecteur réseaux d'un poste client sur mon LAN, je souhaite changer
mon serveur de fichier, et que lorsqu'un utilisateur se connecte que
ces mappages soient redirigés en automatique sur mon nouveau serveur
de fichier.
Merci de votre aide. si vous pouviez me répondre sur mon email
jphongsavanh(nospam)@stallergenes.fr
Bonjour,
Ceci devrait faire l'affaire après adaptation :
8<----------------
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
For i = 0 to oDrives.Count - 1 Step 2
Select Case oDrives.Item(i)
Case "M:" 'Faire un case par lecteur mappé
If oDrives.Item(i+1) = "ancien chemin UNC" Then
WshNetwork.RemoveNetworkDrive oDrives.Item(i), True, True
WshNetwork.MapNetworkDrive oDrives.Item(i), "nouveau chemin UNC",
True
End if
End Select
Next
8<-----------------
Une fois que tous les utilisateurs auront exécuté au moins une fois
ce script, il peut être désactivé.
Salut
en fait dans le scritp comment peut on intégrer des conditions pour
tester les valeurs
Bonjour,
Je ne comprends pas ta question. Peux-tu expliciter ce que tu veux comme
conditions ?
Le script que je t'ai envoyé contient déjà une condition :
If oDrives.Item(i+1) = "ancien chemin UNC" Then
bla bla bla
End If
Cela a pour effet de déconnecter un lecteur existant si son chemin n'est
pas celui souhaité (autrement dit si c'est toujours l'ancien)
Puis de le reconnecter avec le nouveau chemin.
Je pense que cela répond très exactement à ta demande initiale (mis à
part le fait que je ne peux deviner quels sont les lecteurs mappés, ni
vers quoi ils sont mappés, ni vers quoi il devraient l'être)
Il te reste, pour chaque lecteur réseau à traiter, à faire une copie de
la partie qui s'étend de :
Case "M:" jusqu'au End If
en remplaçant M par la lettre du lecteur réseau à traiter.
Et pour chacun de ces lecteurs, à remplacer "ancien chemin UNC" et
"nouveau chemin UNC" par ce qui te convient.
Je ne vois pas que te dire de plus :-)
Précision : le traitement ne s'exécutera qu'une seul fois sur chaque
poste, même si relances le script, du fait de la condition justement.
C'est pourquoi tu peux laisser ce script actif pendant un moment sans
danger et le supprimer une fois que tous les postes l'ont exécuté au
moins une fois. Ceci étant surtout intéressant si tu le mets en script
de démarrage via Active Directory.
Salut désolé, je voulais répondre un autre topic sur le Newsgroup Mais j'ai pas encore eu le temps de tester ton script Je te tiens au courant Merci
Dans le message:, JoeyP écrit:
Dans le message :, JoeyP disait :
Bonjour je suis à la recherche d'un spécialiste en script windows , pour m'aider à créer un vbscript ou autre, pour changer les mappages de lecteur réseaux d'un poste client sur mon LAN, je souhaite changer mon serveur de fichier, et que lorsqu'un utilisateur se connecte que ces mappages soient redirigés en automatique sur mon nouveau serveur de fichier. Merci de votre aide. si vous pouviez me répondre sur mon email jphongsavanh(nospam)@stallergenes.fr
Bonjour, Ceci devrait faire l'affaire après adaptation : 8<---------------- Set WshNetwork = WScript.CreateObject("WScript.Network") Set oDrives = WshNetwork.EnumNetworkDrives For i = 0 to oDrives.Count - 1 Step 2 Select Case oDrives.Item(i) Case "M:" 'Faire un case par lecteur mappé If oDrives.Item(i+1) = "ancien chemin UNC" Then WshNetwork.RemoveNetworkDrive oDrives.Item(i), True, True WshNetwork.MapNetworkDrive oDrives.Item(i), "nouveau chemin UNC", True End if End Select Next 8<----------------- Une fois que tous les utilisateurs auront exécuté au moins une fois ce script, il peut être désactivé.
Salut
en fait dans le scritp comment peut on intégrer des conditions pour tester les valeurs
Bonjour,
Je ne comprends pas ta question. Peux-tu expliciter ce que tu veux comme conditions ? Le script que je t'ai envoyé contient déjà une condition : If oDrives.Item(i+1) = "ancien chemin UNC" Then bla bla bla End If
Cela a pour effet de déconnecter un lecteur existant si son chemin n'est pas celui souhaité (autrement dit si c'est toujours l'ancien) Puis de le reconnecter avec le nouveau chemin. Je pense que cela répond très exactement à ta demande initiale (mis à part le fait que je ne peux deviner quels sont les lecteurs mappés, ni vers quoi ils sont mappés, ni vers quoi il devraient l'être)
Il te reste, pour chaque lecteur réseau à traiter, à faire une copie de la partie qui s'étend de : Case "M:" jusqu'au End If en remplaçant M par la lettre du lecteur réseau à traiter. Et pour chacun de ces lecteurs, à remplacer "ancien chemin UNC" et "nouveau chemin UNC" par ce qui te convient.
Je ne vois pas que te dire de plus :-)
Précision : le traitement ne s'exécutera qu'une seul fois sur chaque poste, même si relances le script, du fait de la condition justement. C'est pourquoi tu peux laisser ce script actif pendant un moment sans danger et le supprimer une fois que tous les postes l'ont exécuté au moins une fois. Ceci étant surtout intéressant si tu le mets en script de démarrage via Active Directory.
