Bonjour, je suis nouveau ici et je débute en matière de programmation, cela fait que depuis quelques jours que je me documente à droite à gauche sur le net, à vrai dire je trouve pas énormément de chose .

Je prépare un Bac Pro SEN et je technicien en réseau informatique en apprentissage :

Mon tuteur me demande de faire un script afin de pouvoir mapper des lecteurs réseau pour un utilisateur quand ce dernier est connecter au réseau de la société . VBScript me semble parfait pour ça .

Voilà mon script qui ne fonctionne pasil doit manquer pas mal de chose mais je vois pas, même avec documentation)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim rep 
rep = MsgBox "Voulez-vous activer ou désactiver tout les lecteurs réseau ?",_
  vbQuestion+vbYesNoCancel,"Question"
 
If rep Then
 
Set wshNetwork = CreateObject("WScript.Network")
 
With wshNetwork
.MapNetworkDrive "p:", "\\10.205.224.1\"&.\Utilisateurs
.MapNetworkDrive "z:", "\\10.205.224.1\"&.\Zone Commune
End with
 
End If



Mais ce script là fonctionne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
'msGbox 
 
msGbox "Voulez-vous activer ou désactiver tout les lecteurs réseau ?",_
  vbQuestion+vbYesNoCancel,"Question"


Ci vous pouvez m'aider à réaliser ce petit projet ça serai super !!


Sinon j'ai fais du batch

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
@echo off
cls
Echo “ Fonction lecteurs reseau ”
 
:top
echo.
echo 1. Deconnecter tout les lecteurs reseau 
echo 2. Connecter tout les lecteurs reseau
echo 3. Quitter
set choice=
echo.
echo Taper 1 pour vous deconnecter, 2 pour vous connecter aux lecteurs reseau ? 
echo.
set /p choice=(valider en apuyant sur entrer)
 
if not '%choice%'=='' set choice=%choice:~0,1%
if '%choice%'=='1' goto unmap
if '%choice%'=='2' goto map
if '%choice%'=='3' goto quit
echo.
goto top
 
:unmap
@net use P: /delete /PERSISTENT=YES
@net use Z: /delete /PERSISTENT=YES
 
:map
@net use P: \\10.205.224.1\Utilisateurs /PERSISTENT:YES
@net use Z: \\10.205.224.1\"Zone Commune” /PERSISTENT:YES
 
:quit
exit
Ce dernier fonctionne pas complétement, en effet il mappe (active) pas la ligne suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
@net use Z: \\10.205.224.1\"Zone Commune” /PERSISTENT:YES

Il doit pas manquer grand chose je pense .