Connecter/déconnecter plusieurs lecteurs réseaux
Posté : mer. 30 janv. 2019 17:58
Bonjour,
Gros débutant qui souhaite effectuer un tout 1er script « simpliste » mais qui Ôoooh combien me ferai gagner du temps. Cela me permettra également de mettre un pied à l’étrier concernant AutoIt...
Une fenêtre GUI sous Koda est créée (ou je renseigne utilisateur + mdp avec en plus 2 boutons). En cliquant sur le bouton "connecter" de cette GUI, l’action sera de connecter 4 lecteurs réseau (visibles dans l’explorateur de fichiers de Windows) puis en cliquant sur un autre bouton cela aura pour action de déconnecter ces 4 lecteurs réseaux.
Pouvez-vous m'apporter vos lumières pour ce 1er script ? Ou au moins me donner des pistes car je me perds un peu.
Je vous en serais tellement reconnaissant.
Je vous remercie par avance,
Cordialement,
YannYann
Gros débutant qui souhaite effectuer un tout 1er script « simpliste » mais qui Ôoooh combien me ferai gagner du temps. Cela me permettra également de mettre un pied à l’étrier concernant AutoIt...
Une fenêtre GUI sous Koda est créée (ou je renseigne utilisateur + mdp avec en plus 2 boutons). En cliquant sur le bouton "connecter" de cette GUI, l’action sera de connecter 4 lecteurs réseau (visibles dans l’explorateur de fichiers de Windows) puis en cliquant sur un autre bouton cela aura pour action de déconnecter ces 4 lecteurs réseaux.
Pouvez-vous m'apporter vos lumières pour ce 1er script ? Ou au moins me donner des pistes car je me perds un peu.
Je vous en serais tellement reconnaissant.
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <AutoItConstants.au3>
#include <MsgBoxConstants.au3>
#Region ### START Koda GUI section ###
$Form1 = GUICreate("Form1", 444, 204, 701, 553)
$text = GUICtrlCreateLabel("CONNECTER LECTEURS RÉSEAUX - VEEAM", 4, 8, 422, 34)
GUICtrlSetFont(-1, 16, 800, 4, "Nirmala UI")
GUICtrlSetCursor (-1, 2)
$Button1 = GUICtrlCreateButton("CONNECTER", 88, 139, 105, 41, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x00FF00)
$Button2 = GUICtrlCreateButton("DECONNECTER", 242, 139, 105, 41, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFF0000)
$Input1 = GUICtrlCreateInput("Nom d'utilisateur", 128, 60, 193, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("Mot de passe", 128, 96, 193, 28, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
MouseClick = $Button1
DriveMapAdd("Z:" ,0, "\\serveur1\sauvegarde"), $DMA_DEFAULT, "NomDomaine\$Input1", "$Input2")
DriveMapAdd("Y:" ,0, "\\serveur2\sauvegarde"), $DMA_DEFAULT, "NomDomaine\$Input1", "$Input2")
DriveMapAdd("X:" ,0, "\\serveu3\sauvegarde"), $DMA_DEFAULT, "NomDomaine\$Input1", "$Input2")
MouseClick = $Button2
DriveMapDel("Z:")
DriveMapDel("Y:")
DriveMapDel("X:")
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <AutoItConstants.au3>
#include <MsgBoxConstants.au3>
#Region ### START Koda GUI section ###
$Form1 = GUICreate("Form1", 444, 204, 701, 553)
$text = GUICtrlCreateLabel("CONNECTER LECTEURS RÉSEAUX - VEEAM", 4, 8, 422, 34)
GUICtrlSetFont(-1, 16, 800, 4, "Nirmala UI")
GUICtrlSetCursor (-1, 2)
$Button1 = GUICtrlCreateButton("CONNECTER", 88, 139, 105, 41, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x00FF00)
$Button2 = GUICtrlCreateButton("DECONNECTER", 242, 139, 105, 41, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFF0000)
$Input1 = GUICtrlCreateInput("Nom d'utilisateur", 128, 60, 193, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("Mot de passe", 128, 96, 193, 28, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
MouseClick = $Button1
DriveMapAdd("Z:" ,0, "\\serveur1\sauvegarde"), $DMA_DEFAULT, "NomDomaine\$Input1", "$Input2")
DriveMapAdd("Y:" ,0, "\\serveur2\sauvegarde"), $DMA_DEFAULT, "NomDomaine\$Input1", "$Input2")
DriveMapAdd("X:" ,0, "\\serveu3\sauvegarde"), $DMA_DEFAULT, "NomDomaine\$Input1", "$Input2")
MouseClick = $Button2
DriveMapDel("Z:")
DriveMapDel("Y:")
DriveMapDel("X:")
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Cordialement,
YannYann