Lecteur réseau / Favoris réseau

Salut,

pour répondre à tes questions 2 et 3 :

pour la 2 tu fais comme ca :

Code:

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:

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++