Script permettant de récupérer les infos sur un lecteur

Bonjour,

Ce script permet de récupérer des infos sur un lecteur :

Code:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Dim recup
 
recup = inputbox("Saisir un lecteur disque:")
 
displaydriveinfo(recup)
 
 
Sub displaydriveinfo(lecteur)
 
Dim Fso        
    Set Fso=wscript.createobject("scripting.filesystemobject")
 
Dim mess
Dim drv
 
    If Fso.driveexists(lecteur) Then    'tester lexistence du lecteur dans la liste
 
        set drv=fso.getdrive(lecteur)
 
        if drv.isready Then
            mess = "Drive " & lecteur & vbCrLf
            mess = mess & drv.Volumename & vbCrLf
            Select case Drv.DriveType
 
                Case 0
                    mess=mess & "Type Inconnu" & vbcrlf
                Case 1
                    mess=mess & "Unité amovible" & vbcrlf
                Case 2 
                    mess=mess & "Unité Fixe" & vbcrlf
                Case 3
                    mess=mess & "Lecteur réseau" & vbcrlf
                Case 4
                    mess=mess & "Cd-Rom" & vbcrlf
                Case 5 
                    mess=mess & "Disque virtuel" & vbcrlf
 
            End Select
 
 
            msgbox mess
 
        else
 
            msgbox "Le disque n'est pas prêt"    
 
        End If
    Else
 
    msgbox "Le lecteur n'existe pas"
 
 
    End If
 
End Sub

Je l'ai testé il fonctionne parfaitement. La seule chose, c'est que j'aimerais qu'au lieu de récupérer l'infos sur MON pc, qu'il aille examiner le disque concerné sur le SERVEUR.

Malheureusement je ne sais pas du tout a quel endroit modifier mon code pour cela.

Une idée ?

Merci d'avance