[..] Monter un lecteur réseau via interface

[metalcham]

Bonjour,

Je suis un novice en programmation et je souhaiterais avoir de l'aide pour faire un script.
Le but est d'avoir un moyen de lancer un script s'appelant nvr.bat. Ce dernier peut être disponible soit sur un lecteur réseau soit sur une clé usb.

Il faudrait avoir une première interface demandant
- l'adresse IP (vérifier que ce qui est rentré est sous forme d'adresse IP)
- le login
- le mot de passe (en caché)
- le nom du répertoire que l'on veut monter.

En cliquant sur le bouton Monter, cela monte le lecteur avec la commande net use Y: \\@adresse_IP @mot_de_passe /user:@login
Une fois le lecteur monté, il lancera le fichier Y:\nvr.bat

Dans la deuxième interface, il va chercher dans tous les lecteurs de C:\ à Z:\ si le fichier nvr.bat existe.
Et le lancer dès qu'il l'a trouvé.

Merci par avance de votre aide.

[metalcham]

Voila ce que j'ai réussi à faire.

Mais je galère autant sur les deux derniers boutons. (3 et 4) Est ce que quelqu'un peux m'aider s'il vous plait ??

Code : Tout sélectionner

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("NVR Installation", 615, 252, 192, 124)
$Button1 = GUICtrlCreateButton("LOCAL NETWORK (Manufacturer)", 56, 80, 241, 41)
$Button2 = GUICtrlCreateButton("REMOTE NETWORK (Manufacturer)", 56, 136, 241, 41)
$Button3 = GUICtrlCreateButton("USB KEY / CDROM", 312, 80, 241, 41)
$Button4 = GUICtrlCreateButton("OTHERS", 312, 136, 241, 41)
$Pic1 = GUICtrlCreatePic("C:\Users\xxxxxx\Desktop\picture.jpg", 352, 16, 204, 52)
$Label1 = GUICtrlCreateLabel("Automatic install", 64, 16, 221, 28)
GUICtrlSetFont(-1, 15, 400, 0, "Tahoma")
$Label2 = GUICtrlCreateLabel("of the package", 40, 48, 300, 28)
GUICtrlSetFont(-1, 15, 400, 0, "Tahoma")
$Button5 = GUICtrlCreateButton("Exit", 352, 192, 177, 41)
GUISetState(@SW_SHOW)
While 1
    $msg = GUIGetMsg()
        Select
            Case $msg = $Button1
            DriveMapAdd("Y:", "\\nas\folder", 0, "nas\user", "user")
                If FileExists("Y:\nvr.bat") Then
                    $MyBox = MsgBox(1, "Launching nvr.exe file", "Do you want to launch the nvr.exe file ?")
                        If $MyBox == 1 Then
                            Run("Y:\nvr.exe")
                        EndIf
                EndIf
            Case $msg = $Button2
            DriveMapAdd("Y:", "\\nas.domain.fr\nvr", 0, "nas\user", "user")
                If FileExists("Y:\nvr.bat") Then
                    $MyBox = MsgBox(1, "Launching nvr.exe file", "Do you want to launch the nvr.exe file ?")
                        If $MyBox == 1 Then
                            Run("Y:\nvr.exe")
                        EndIf
                EndIf       
            Case $msg = $Button3
            
            Case $msg = $Button4
            
        EndSelect
        
        If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd

[timmalos]

Regarde du côté de DriveGetDrive pour recuperer la liste des disques durs. Puis tu feras un FileExist sur ces chemins