Salut a tous j'aimerais mapper des lecteurs pour mon boulot en fait les lecteurs existent déjà je voudrais juste changer leur chemin dans mon script j'aimerais donc supprimer le lecteur existant le remplacer et le renommer.
 
Le script me dit qu'il y a une erreur a la ligne 11 mais la je sèche complètement je suis novice dans la prog et je comprend pas tous a se qu'il me raconte
 
Voici mon SCRIPT
 
Merci d'avance de votre aide
 
Dim WshNetwork, fso
Set WshNetwork = WScript.CreateObject("WScript.Network" )
Set fso = CreateObject("Scripting.FileSystemObject" )
If fso.DriveExists("Q:" ) Then
    WshNetwork.RemoveNetworkDrive "Q:"
Else
    WshNetwork.MapNetworkDrive "Q:", "\\server\partage"
    strNewName = "COMMUN "
 
set objShell = CreateObject("Shell.Application" )
objShell.NameSpace(fso.DriveExists).Self.Name = strNewName
 
End If

aidez moi SVP
 
up

Et nous donner l'erreur tu crois pas que ça nous aiderait à t'aider ?

c'est pas faux !!!!
Alors après avoir retourner le script dans tous les sens j'ai trouver l'erreur du script il fallait mettre la lettre de mon lecteur a la place de (fso.driveexists).
 
'set objShell = CreateObject("Shell.Application" )
objShell.NameSpace("Q:" ).Self.Name = strNewName'
 
En revanche il ne supprime et ne remplace pas mes lecteurs qui existent déjà. Il crée les nouveaux sans problème et les modifient si je change le script mais les lecteurs qui existent ne bougent pas.
 
Mais il n'y a pas de message d'erreur cette fois ci.  
 
Y a t'il une ligne a rajouter ou autre chose je vois pas de trop
 
Merci a tous

Salut
pourrais-tu préciser exactement tout les tests que tu as déjà effectué ?
Si je lis bien normalement ce qui est censé supprimer est :

as-tu essayé de forcer la deconnexion?
 
Je m'y connais pas du tout en reseau, j'utilise pas le vbs pour ça    
 
Au fait pourquoi "Q:" et Commun?
tu veux mapper tout les lecteurs sur un seul lecteur?
 
Ps: ca sert à rien de marquer gros problème , si tu poses une question c'est juste un problème auquel tu n'arrives pas à trouver la solution

le seul test que j'ai effectuer est que lorsqu'il n'y a pas de lecteurs réseaux dans mon profil utilisateur le script fonctionne très bien création suppression du lecteur réseau.
 
Par contre quand le script s'éxécute dans un profil ou les lecteurs sont deja créés rien ne se passe le script s'éxécute mais rien ne se passe

As-tu essayé en forçant la deconnexion comme je te l'ai conseillé?

un message d'erreur apparait lorsque je rajoute ta ligne a la place de la mienne. Sa me met erreur de syntaxe au caractère 30.
 
J'ai oublier quelque chose j'ai essayer aussi avec :  
 
   1. RemoveNetworkDrive("Q:",true,true)
 
Mais ici sa me dit : L'appel d'une fonction Sub n'admet pas de parenthèses.
 
 

Le problème c'est que je peux pas du tout tester ce que je te propose, j'utilise pas du tout cette partie là du vbs ^^
rassure moi tu n'as pas changé

WshNetwork.RemoveNetworkDrive "Q:"

par  

RemoveNetworkDrive("Q:",true,)

mais bien par

WshNetwork.RemoveNetworkDrive("Q:",true,)

   
Dans tout les cas ton erreur semble simple
essaye ça:

WshNetwork.RemoveNetworkDrive "Q:", true,false

si c'est que j'avais fait quel boulet    j'essaye sa assez rapidement je te tiendrais au courant Merci d'avance

Résultat des courses?

desolé j'ai pas tester je bosse pas la fin de la semaine problèmes familiaux mais je sens que sa va le faire je te redis sa lundi

salut le lecteur est bien supprimer Mais il ne me recréé pas le nouveau lecteur. J'i l'impression qu'il ne prend pas en compte l'instruction suivante.
 
Mon script n'a pas changer mis a part la ligne de suppression je pige plus rien !!!!!! lol  
 
Dim WshNetwork, fso
Set WshNetwork = WScript.CreateObject("WScript.Network" )
Set fso = CreateObject("Scripting.FileSystemObject" )
If fso.DriveExists("Q:" ) Then
    WshNetwork.RemoveNetworkDrive "Q:",true,true :  la nouvelle ligne
Else
    WshNetwork.MapNetworkDrive "Q:", "\\server\partage"
    strNewName = "COMMUN "

Bon ben c'est simple alors
Si tu veux que ton lecteur soit supprimé tu rajoutes

WshNetwork.RemoveNetworkDrive "Q:",true,true :  la nouvelle ligne

Et si tu veux qu'il soit rajouter tu enlèves la ligne

WshNetwork.RemoveNetworkDrive "Q:",true,true :  la nouvelle ligne

après à toi de faire la synthèse    
Qu'est ce que tu veux, je suis méthodique moi, je résoud un problème après l'autre    
 
Bon attends je reregarde ça:
 
Euh à priori ça m'a l'air normal    
tu ne lui dit jamais de recréer ton lecteur après l'avoir détruit.
tu as seulement fait un if  
Ne voulais-tu pas écrire:

Dim WshNetwork, fso 
Set WshNetwork = WScript.CreateObject("WScript.Network" ) 
Set fso = CreateObject("Scripting.FileSystemObject" ) 
If fso.DriveExists("Q:" ) Then 
    WshNetwork.RemoveNetworkDrive "Q:",true,true
End if
WshNetwork.MapNetworkDrive "Q:", "\\server\partage" 
strNewName = "COMMUN " 
 
set objShell = CreateObject("Shell.Application" ) 
objShell.NameSpace(fso.DriveExists).Self.Name = strNewName

oui voila j'allais justement changer mon post j'ai remarquer sa avent de débaucher je tente sa cet aprem mais je pense que c'était le fait de mettre ma création de lecteur dans mon IF
 
Merci je te tiens au courant de toutes façon

Voila merci bien _xme_ pour ton aide précieuse tous fonctionne parfaitement.

De rien
Bonne continuation et aussi à l'avenir évite les "gros problèmes"
Tout personne qui poste à forcément un soucis qu'il considère suffisament important pour être bloqué dans son projet.
A et puis peut être rajoute aussi résolu dans ton titre, histoire de faire plus clean