[R] Deconnexion lecteur réseau

[titou974]

Bonsoir,
J'ai une interface GUI simple avec des boutons. A l'ouverture de la GUI il monte un lecteur réseau "X:" mais en fermant l'interface avec la croix rouge, je m’aperçois que le lecteur ne se déconnecte pas.
Comment faire pour démonter le lecteur à la fermeture de la GUI ?


Merci à vous

[Tlem]

Bonsoir.

Code : Tout sélectionner

DriveMapDel("drive")

A mettre à la sortie de votre script.

[titou974]

Merci, il me semble que j'avais déjà testé et le lecteur resté monté.
Bon je refais un essai des fois que, et je vous tiens informé.

Merci

[Tlem]

En cas de "mauvais fonctionnement", vous pouvez essayer ceci :

Code : Tout sélectionner

DriveMapDel("\\server\share")

[titou974]

Bon après test ca ne démonte pas le lecteur :

► Afficher le texte

EndSwitch
DriveMapDel ("Y:") ou ("\\serveur\share")
WEnd

J'ai beau mettre le "DriveMapDel" avant "EndSwitch" entre "EndSwitch" et "WEnd" puis après "WEnd" ca ne fait rien.


Par contre j'ai créé un bouton qui me déconnecte le lecteur vu que je n'arrive pas à le faire en fermant la GUI, ca peut rentrer en conflit ?

► Afficher le texte

case $button10
DriveMapDel ("Y:")

[Tlem]

Bonjour.
Déjà, si vous regardez la documentation de DriveMapDel(), vous y verrez qu'il faut faire :

Code : Tout sélectionner

DriveMapDel ("Y:")
et non
DriveMapDel ("Y")

Ensuite, vous ne présentez qu'une infime partie de votre code, alors comment voulez-vous qu'on sache si la commande est réellement exécutée ...

[titou974]

Oui erreur de ma part, la commande était bien DriveMapDel("Y:")

Mais voici le code complet

► Afficher le texte

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

;DriveMapAdd ("X:", "\\172.16.20.200\informatique", 0, "xxxx", "xxxx")
DriveMapAdd ("Y:", "\\192.168.0.50\Marseille$", 0)


#Region ### START Koda GUI section ### Form=c:\users\laurent\desktop\autoit\infotools\scripts\infotools-v1.kxf
$Form1_1 = GUICreate("InfoTools", 420, 426, 192, 124)
$Group1 = GUICtrlCreateGroup("Microsoft Office 2007", 16, 288, 193, 121)
$Button1 = GUICtrlCreateButton("Installer", 24, 312, 137, 33)
$Button2 = GUICtrlCreateButton("Désinstaller", 24, 360, 137, 33)
$Icon1 = GUICtrlCreateIcon("", -1, 176, 312, 25, 33)
$Icon2 = GUICtrlCreateIcon("", -1, 176, 360, 25, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Compte Admin Local", 16, 152, 193, 121)
$Button3 = GUICtrlCreateButton("Activer Admin local", 24, 176, 137, 33)
$Button4 = GUICtrlCreateButton("Reset mot de passe", 24, 224, 137, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Sauvegarde données local", 16, 16, 193, 121)
$Button5 = GUICtrlCreateButton("Sauvegarde", 32, 40, 129, 33)
$Button6 = GUICtrlCreateButton("Restauration", 32, 88, 129, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Outils", 232, 16, 169, 257)
$Button8 = GUICtrlCreateButton("Base de registre", 248, 80, 129, 33)
$Button9 = GUICtrlCreateButton("Connexion réseau", 248, 120, 129, 33)
$Button11 = GUICtrlCreateButton("Propriétés système", 248, 160, 129, 33)
$Button10 = GUICtrlCreateButton("Deco. lecteur réseau", 248, 200, 129, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button7 = GUICtrlCreateButton("Invite de commande", 248, 40, 131, 33)
$Group5 = GUICtrlCreateGroup("Open Office", 232, 288, 169, 121)
$Button12 = GUICtrlCreateButton("Installer", 248, 312, 131, 33)
$Button13 = GUICtrlCreateButton("Désinstaller", 248, 360, 129, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $button1
ShellExecute("X:\AutoIt\InfoTools\Executables\InstallationOffice.exe")
case $button2
ShellExecute("X:\AutoIt\InfoTools\Executables\desinstallationOffice.exe")
case $button3
ShellExecute("LUSRMGR.MSC")
case $button5
ShellExecute("X:\AutoIt\InfoTools\Executables\Sauvegarde-RECUP.exe")
case $button6
ShellExecute("X:\AutoIt\InfoTools\")
case $button8
ShellExecute("regedit")
case $button9
ShellExecute("ncpa.cpl")
case $button11
ShellExecute("sysdm.cpl")
case $button7
ShellExecute("cmd")
case $button10
DriveMapDel ("X:")
case $button12
ShellExecute("X:\AutoIt\InfoTools\Executables\InstallationOpenOffice.exe")
case $button13
ShellExecute("X:\AutoIt\InfoTools\Executables\DesinstallationOpenOffice.exe")

EndSwitch

WEnd
DriveMapDel ("\\192.168.0.50\Marseille$")

[jguinch]

Je te conseil de ne pas utiliser de lettre "en dur" dans ton script, car un jour ou l'autre tu tomberas sur le cas où la lettre est déjà utilisée.
Tu peux laisser la fonction choisir une lettre pour éviter un conflit. (voir doc DriveMapAdd)

Pour le fait que le lecteur de se déconnecte pas, c'est surement parce qu'il est en cours d'utilisation.
Tu peux éventuellement utiliser _WinNet_CancelConnection (dans l'include WinNet.au3), qui permet de forcer la déconnexion.

Code : Tout sélectionner

#include <WinNet.au3>
$drive = DriveMapAdd("*", "\\192.168.0.50\Marseille$", 0)
; [...]
; Ton code
; [...]
; DriveMapDel ("\\192.168.0.50\Marseille$") 
_WinNet_CancelConnection($drive , True)
 

[titou974]

Magnifique !!
Merci pour votre aide et votre réactivité.

Bon week end

[titou974]

Bon, quand je test sur un script vierge ca fonctionne, par contre quand je l'applique à mon script ca ne me demonte pas le lecteur réseau.

► Afficher le texte

#include <WinNet.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

;DriveMapAdd ("X:", "\\172.16.20.200\informatique", 0, "admin", "scaclogix")
$drive = DriveMapAdd ("*", "\\192.168.0.50\Marseille$", 0)


#Region ### START Koda GUI section ### Form=c:\users\laurent\desktop\autoit\infotools\scripts\infotools-v1.kxf
$Form1_1 = GUICreate("InfoTools", 420, 426, 192, 124)
$Group1 = GUICtrlCreateGroup("Microsoft Office 2007", 16, 288, 193, 121)
$Button1 = GUICtrlCreateButton("Installer", 24, 312, 137, 33)
$Button2 = GUICtrlCreateButton("Désinstaller", 24, 360, 137, 33)
$Icon1 = GUICtrlCreateIcon("", -1, 176, 312, 25, 33)
$Icon2 = GUICtrlCreateIcon("", -1, 176, 360, 25, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Compte Admin Local", 16, 152, 193, 121)
$Button3 = GUICtrlCreateButton("Activer Admin local", 24, 176, 137, 33)
$Button4 = GUICtrlCreateButton("Reset mot de passe", 24, 224, 137, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Sauvegarde données local", 16, 16, 193, 121)
$Button5 = GUICtrlCreateButton("Sauvegarde", 32, 40, 129, 33)
$Button6 = GUICtrlCreateButton("Restauration", 32, 88, 129, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Outils", 232, 16, 169, 257)
$Button8 = GUICtrlCreateButton("Base de registre", 248, 80, 129, 33)
$Button9 = GUICtrlCreateButton("Connexion réseau", 248, 120, 129, 33)
$Button11 = GUICtrlCreateButton("Propriétés système", 248, 160, 129, 33)
$Button10 = GUICtrlCreateButton("Deco. lecteur réseau", 248, 200, 129, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button7 = GUICtrlCreateButton("Invite de commande", 248, 40, 131, 33)
$Group5 = GUICtrlCreateGroup("Open Office", 232, 288, 169, 121)
$Button12 = GUICtrlCreateButton("Installer", 248, 312, 131, 33)
$Button13 = GUICtrlCreateButton("Désinstaller", 248, 360, 129, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $button1
ShellExecute("X:\AutoIt\InfoTools\Executables\InstallationOffice.exe")
case $button2
ShellExecute("X:\AutoIt\InfoTools\Executables\desinstallationOffice.exe")
case $button3
ShellExecute("LUSRMGR.MSC")
case $button5
ShellExecute("X:\AutoIt\InfoTools\Executables\Sauvegarde-RECUP.exe")
case $button6
ShellExecute("X:\AutoIt\InfoTools\")
case $button8
ShellExecute("regedit")
case $button9
ShellExecute("ncpa.cpl")
case $button11
ShellExecute("sysdm.cpl")
case $button7
ShellExecute("cmd")
case $button10
DriveMapDel ("X:")
case $button12
ShellExecute("X:\AutoIt\InfoTools\Executables\InstallationOpenOffice.exe")
case $button13
ShellExecute("X:\AutoIt\InfoTools\Executables\DesinstallationOpenOffice.exe")

_WinNet_CancelConnection($drive , True)
EndSwitch

WEnd

Je ne vois pas pourquoi sur un script vierge ca marche et pas sur le mien.
Edit : Meme en mettant le "_WinNet_CancelConnection($drive , True)" après "WEnd"

[jguinch]

Pas étonnant, la fonction ne s'exécute jamais puisque tu fais un exit quand l'utilisateur clique sur la croix.
Remplace Exit par ExitLoop, ça devrait marcher...

► Afficher le texte

Code : Tout sélectionner

Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoop ; <------------------------
; [ .....]

EndSwitch
WEnd 

_WinNet_CancelConnection($drive , True)
 

[titou974]

Bien joué !!!!!!
Merci beaucoup ca marche