Discussion :

[grandthor]

Bonjour à tous,

Je m'adresse à vous après plusieurs heures de rechercher en vain.

Je souhaite récupérer l'espace libre du disque C: sur mon serveur distant.

Pour récupérer l'espace disque, c'est bon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim fso As Object, x As Double
Set fso = CreateObject("Scripting.FileSystemObject")
x = fso.GetDrive("C").FreeSpace

Par contre pour se connecter au serveur, via l'adresse IP ou le nom netbios, je ne sais pas comment faire.

Je suis dans un environnement full : Windows XP/Seven/Server 2003/Server 2008, si cela peut aider.

J'ai aussi trouvé une commande DOS qui peut résoudre mon problème mais il faudrait dans ce cas là, récupérer les info dans Excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

psinfo \\monserveur -d

Merci pour votre aide !

[Daniel.C]

Bonjour,

Regarde dans le fil suivant :
http://www.developpez.net/forums/d99...ecteur-reseau/
la réponse de Megexel du 09/02/2006, 18:11 sur l'utilisation de NET USE.

[fring]

Bonjour,

Si les disques du serveur sont mappés sur ton pc tu peux faire comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim FSO As Object, Drv As Object
Dim strResult As String
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each Drv In FSO.Drives
    If Drv.IsReady Then
        strResult = strResult & Chr(10) & "le support " & Drv.DriveLetter & " --> " & Round(Drv.FreeSpace / 1073741824, 2) & " Go d'espace libre"
    End If
Next
 
MsgBox strResult
End Sub

[grandthor]

Merci Daniel.C et fring d'avoir répondu aussi vite

J'avais pensé de mapper tous les disques mais je dois vérifier l'espace de plus de 20 serveurs, cela fait un peu beaucoup de lecteur réseau à mapper ^^

L'idée de Daniel.C n'est pas mauvaise, faut juste récupérer les valeurs que retourne la commande Shell, formater le résultat pour le rendre plus lisible et le tour est joué.

J'ai pas encore réussi mais cela ne saurait tarder :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim s As Object
Set s = CreateObject("wscript.shell")
Set s = s.exec("ping www.google.com")
MsgBox s.stdout.readall

merci à tous les deux