[VBS] Monter / Démonter / Contrôler des lecte
lopezmathieu
Messages postés
25
Statut
Membre
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
Je fais appel à vous aujourd'hui car je bloque sur script.
Voici le pseudo algo de ce que je souhaite faire :
Voici ce que je suis arrivé à pondre :
Vous comprendrez bien vite que je ne suis pas développeur :)
Mon blocage est à la ligne 3, je ne sais pas comment récupérer le chemin de mon lecteur pour tester si il est égal à une chaîne de caractère.
Alors je présume qu'avant de lancer le If, il fait récupérer le chemin du r: dans une variable pour la comparer ensuite à la chaîne de caractère, mais je ne sais pas le faire.
Merci pour votre aide !
Mathieu
Je fais appel à vous aujourd'hui car je bloque sur script.
Voici le pseudo algo de ce que je souhaite faire :
si r: existe alors si r: != \\serveur1\partage1\ alors demonte lecteur r: monte lecteur r: == \\serveur1\partage1\ fin si sinon monte lecteur r: == \\serveur1\partage1\ fin si
Voici ce que je suis arrivé à pondre :
Set NT = WScript.CreateObject("WScript.Network")
If NT.DriveExists("R:") THEN
If ''r: != \\serveur1\partage1\ alors
NT.RemoveNetworkDrive "R:", bForce, true
NT.MapNetworkDrive "R:","\\serveur1\partage1\","True"
End If
Else
NT.MapNetworkDrive "S:","\\serveur1\partage1\","True"
End If
Vous comprendrez bien vite que je ne suis pas développeur :)
Mon blocage est à la ligne 3, je ne sais pas comment récupérer le chemin de mon lecteur pour tester si il est égal à une chaîne de caractère.
Alors je présume qu'avant de lancer le If, il fait récupérer le chemin du r: dans une variable pour la comparer ensuite à la chaîne de caractère, mais je ne sais pas le faire.
Merci pour votre aide !
Mathieu
A voir également:
- [VBS] Monter / Démonter / Contrôler des lecte
- Vbs windows - Accueil - Optimisation
- Fan controler - Télécharger - Optimisation
- Monter iso - Guide
- Monter fichier bin - Guide
- Controler temperature pc - Guide
2 réponses
Bonjour,
Voici comment je procède :
n.b. Ce n'est pas la seule façon ...
Cdt
Lupin
Voici comment je procède :
n.b. Ce n'est pas la seule façon ...
'---------------------------------------------------------------------
'
' Fichier VBScript : Rezo.vbs
'
' Auteur : Lupin
'
' Création : 28 Juin 2006
'
' Modifié : Jeudi, le 23 Juin 2011
'
' Version 1.3.0
'
'---------------------------------------------------------------------
'
Const LecteurReseau = "R:"
Const RepDestService = "\\Serveur1\Dossier\
Dim objReseau, objLecteurs
On Error Resume Next
Set objReseau = CreateObject("WScript.Network")
Set objLecteurs = objReseau.EnumNetworkDrives
If ( objLecteurs.Count > 0 ) then
For i = 0 To (objLecteurs.Count-1) Step 2
If ( objLecteurs.Item(i) = LecteurReseau ) Then
objReseau.RemoveNetworkDrive LecteurReseau, "True", "True"
End If
Next
End If
objReseau.MapNetworkDrive LecteurReseau, RepDestService, "True"
' Traitement
objReseau.RemoveNetworkDrive LecteurReseau, True, True
Set objReseau = Nothing
Set objLecteurs = Nothing
WScript.Quit(0)
'---------------------------------------------------------------------
'
Cdt
Lupin
re:
Je comprends, mais dans ma façon de faire, je map
toujours sur une lettre non utilisé, j'effectue le traitement
et je démappe.
Bien sur, si tu dois obligatoirement contrôler un mapping
existant c'est autre chose.
Information de déboggage :
Pour débogger ton script vbs.
1.) Créer un raccourci du fichier VBS
2.) Ouvrir les propriétés du raccourci
3.) Ajouter à la fin du champ cible [ espace //x ]
4.) Lancer le raccourci et répondre [ OK ] au premier panorama.
5.) Tu seras alors en mode debbug (pas à pas de ton script).
Cdt
Lupin
Je comprends, mais dans ma façon de faire, je map
toujours sur une lettre non utilisé, j'effectue le traitement
et je démappe.
Bien sur, si tu dois obligatoirement contrôler un mapping
existant c'est autre chose.
Information de déboggage :
Pour débogger ton script vbs.
1.) Créer un raccourci du fichier VBS
2.) Ouvrir les propriétés du raccourci
3.) Ajouter à la fin du champ cible [ espace //x ]
4.) Lancer le raccourci et répondre [ OK ] au premier panorama.
5.) Tu seras alors en mode debbug (pas à pas de ton script).
Cdt
Lupin
Bref, pas grave j'ai trouvé une autre solution, moins propre mais qui fera l'affaire.