Lecteur reseau en VBS

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Lecteur reseau en VBS

moicalex

Bonjour,

J'aimerai supprimer tout les lecteur reseau (par exemple ceux créer par l'utilisateur) avant d'en remapper d'autres (les officiels lol).

Citation :

Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network" )
WshNetwork.RemoveNetworkDrive "Y:"
WshNetwork.MapNetworkDrive "Y:", "\\vermeer\commun"

Le probleme c'est que l'on peut supprimer que les lecteurs existants.

Autres question, il y a t il un site avec des exemples précis ?

merci a vous.

Publicité

moicalex

Pas d idée ?

moicalex

bon j'ai un peu avancé.
Je vais essayé d'etre + clair

Voici le code que j'utilise pour mapper un driver :

Citation :

Dim WshNetwork, fso
Set WshNetwork = WScript.CreateObject("WScript.Network" )
Set fso = CreateObject("Scripting.FileSystemObject" )
If fso.DriveExists("Y:" ) Then
WshNetwork.RemoveNetworkDrive "Y:"
Else
WshNetwork.MapNetworkDrive "Y:", "\\server\commun"
End If

je voudrai rajouter un test pour démapper tout autre lettre presente sur le pc en local a partir de "G:" par exemple.
Merci

dahlo

- Tu as tout ce qu'il te faut ici ...
- Polarise toi sur la méthode EnumNetworkDrives
- Pour comprendre la structure regarde là ...
- Ce qu'il faut rajouter, puisque tu veux un offset (G: ), c'est une condition dans la boucle For sur la lettre du lecteur.

En conséquence:

Citation :

On Error Resume Next
Start="g:" 'inclu
Set objNetwork = CreateObject("Wscript.Network" )
Set colDrives = objNetwork.EnumNetworkDrives

For i = 0 to colDrives.Count-1 Step 2
If Asc(coldrives.item(i)) >= Asc(Ucase(Start)) then
objNetwork.RemoveNetworkDrive colDrives.Item(i)
Wscript.Echo "Le partage (" & coldrives.item(i) & " ) a été éffacé."
end if
Next
Set colDrives = Nothing
Set objNetwork = Nothing

Note: - La condition pourrait porter sur le chemin UNC du partage, voir sur les deux...
- C'est pas vraiment la bonne catégorie plus spécifique...

moicalex

Merci c'est parfait.
Par contre cela m'nelève que les lecteurs reseau ayant été créé par un script, pas ceux créer par l'utilisateur.

dahlo

Donc, si j'ai bien compris, distribue le script en stratégie d'ouverture de session...

i'm philou

pourquoi ne pas utiliser un .bat avec dedans

net use /delete F:
net use /delete G:
net use /delete H:
...

à distribuer via GPO à la fermeture de session.

moicalex

si c pour utiliser un .bat je ferai plutot :

Citation :

NET USE * /DELETE /Y

moicalex

je voulais utiliser vbs car je souhaite installer des imprimantes reseau en meme tps.

Message cité 1 fois

Biloulou

La réponse de dahlo me parait la meilleure et la plus rafinée.
Il list les drives mappés, boucle dans la collection et les enleve. Que demander de plus

Publicité

i'm philou

moicalex a écrit :

je voulais utiliser vbs car je souhaite installer des imprimantes reseau en meme tps.

pour ça, tu fais un autre script.
c'est à mon avis, mieux de séparer les fonctionnalités dans des scripts differents. C'est juste pour une histoire de lisibilité.

akio

petite question : quel droits doit ont avoir sur la machine pour executer ce vbs?

merci

i'm philou

pour mapper un lecteur reseau ou monter une imprimante, des droits d'utilisateurs de base suffisent.

Message édité par i'm philou le 08-12-2005 à 21:36:53

FORUM HardWare.fr

Windows & Software

Lecteur reseau en VBS

Sujets relatifs
PB WOL et config carte réseau!	Refuser la copie de fichiers d'un partage reseau sur les postes ?
installation par le reseau de XP	Kit Réseau TNB (Switch + Câbles + 2 Cartes)
très bizarre !! Le réseau fonctionne mais 1 pc ne peut s'y connecter !	réseau de Mozilla Thunderbird
isoler 2 PCs du réseau	Pb accès à un site ftp depuis réseau local
pb avec ma carte reseau	probleme d'accés au autres pc du reseau
Plus de sujets relatifs à : Lecteur reseau en VBS

Page générée en 0.029 secondes