Discussion :

[Rody69]

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 .

[ProgElecT]

Salut
Bienvenue sur DVP
Erreur de copier/coller ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim rep = MsgBox "Voulez-vous activer ou désactiver tout les lecteurs réseau ?",_
  vbQuestion+vbYesNoCancel,"Question"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim rep
rep = MsgBox("Voulez-vous activer ou désactiver tout les lecteurs réseau ?", _
vbQuestion + vbYesNoCancel, "Question")

[Rody69]

Oui pardon c'est rectifié

J'aimerai bien trouver une sorte de liste pour toute les commandes qu'il existe pour du batch et pour du VBS, ci vous avez des liens svp ?

Par exemple:

CODE "sauter une ligne" = *****
CODE "mapper un lecteur réseau"=****
CODE "ouvrir un programme"=*****

Bref, je veux tout les codes

[Freetofreeze]

essaie avec cette méthode de .Network pour ton mappage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set wn = WScript.CreateObject("WScript.Network")
wn.MapNetworkDrive "X:","\\tonserveur\tonshare"

coin

[Rody69]

Bonjour,

Ok merci je vais essayer !

Mais il manque pas des codes dans le script quand l'utilisateur clique sur oui pour activer ou sur non pour désactiver ?