IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Lecteur réseau / Favoris réseau


Sujet :

VBScript

  1. #1
    Membre régulier
    Profil pro
    Inscrit en
    Février 2008
    Messages
    252
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Février 2008
    Messages : 252
    Points : 124
    Points
    124
    Par défaut Lecteur réseau / Favoris réseau
    Bonjour,

    1) Quelle est la différence entre en lecteur réseau et un favoris réseau ?

    2) Comment lister les lecteur réseau d'une machine en vbs ?

    3) Comment lister les favoris réseau d'une machine en vbs?


    Merci

  2. #2
    Membre averti
    Inscrit en
    Août 2007
    Messages
    302
    Détails du profil
    Informations personnelles :
    Âge : 57

    Informations forums :
    Inscription : Août 2007
    Messages : 302
    Points : 341
    Points
    341
    Par défaut
    Salut,

    pour répondre à tes questions 2 et 3 :

    pour la 2 tu fais comme ca :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colDisks = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk where DriveType='4'")
    For Each objDisk in colDisks
        WScript.Echo "Lecteur : "& objDisk.DeviceID       
    Next
    et la 3 comme ca :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
     
    Const MY_NETWORK_PLACES = &H12&
     
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(MY_NETWORK_PLACES)
    Set objFolderItem = objFolder.Self
    Wscript.Echo objFolderItem.Path
     
    Set colItems = objFolder.Items
    For Each objItem in colItems
        Wscript.Echo objItem.Name
    Next
    A++
    Plus tu pédales moins vite, moins t'avances plus vite.

Discussions similaires

  1. lecteurs réseau / favoris réseau
    Par sokai dans le forum Scripts/Batch
    Réponses: 12
    Dernier message: 19/03/2010, 11h03
  2. Erreur Favoris réseau
    Par amtdev dans le forum Windows XP
    Réponses: 3
    Dernier message: 04/07/2007, 23h17
  3. browseforfolder et favoris réseau
    Par Gary_Stoupy dans le forum Access
    Réponses: 1
    Dernier message: 17/02/2007, 19h48
  4. Favoris réseau : données de mon collègue effacées...
    Par beegees dans le forum Administration
    Réponses: 7
    Dernier message: 14/03/2006, 15h32
  5. Réponses: 3
    Dernier message: 09/11/2004, 10h44

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo