[Résolu] Espace disque, interpréteur de commande

[Frontier]

Bonjour à tous.

Actuellement j'écris un programme d'alerte selon l'espace disque restant.
J'ai donc besoin en passant par MS-DOS, d'obtenir l'espace disque disponible, et ensuite l'espace disque totale ou bien utilisé, afin d'avoir les réponses en pourcentages.

Je réussi bien à récupérer l'espace disque libre avec la commande "dir". Bien sur il éxiste "dir /s" qui me donne l'espace utilisé mais demande trop de ressource et prend trop de temps pour l'application (lancé sur un serveur).

Auriez vous quelque chose qui permettra de répondre à ma requête ? (j'imagine que cela existe vu que ces informations sont disponibles via les propriétés du disque).

Je vous remercie d'avance pour votre aide.

Damien.

[kazer]

Déjà comment fais tu pour faire fonctionner un Dir en Ms DOS sur du NTFS?

[Frontier]

Euh.. oups. Je crois que "Interpréteur de commande" sera plus approprié pour le définir...

Je change ceci dans l'entête. merci pour ta remarque. ^^

Sinon j'ai trouvé la commande (pour ceux à qui ça intéresseront) : "wmic diskdrive get size" (renvoie la taille totale du disque).

Seulement wmic n'es pas installé sur la plupart des machines auquel j'enverrai mon script.

[Frontier]

Donc la question est toujours d'actualité =p

[kazer]

As tu essayé un script vbs?

[Frontier]

J'en ai bien trouvé un qui correspondrait à mes attentes. Mais je connais tres mal le vbs, et celui là me retournait le résultat dans une petite fenêtre. Ce qui pose des problèmes de récupérations...

C'est bien domage.

[kazer]

Quel est le contenu du vbs et comment le lances tu?

[Frontier]

C'est un script java qui lance le programme par un "exec".

Je te colle donc le script vbs :

Code: Tout sélectionner

Select Case WScript.Arguments.Count
Case 0
' Default if none specified is local computer ("." )
Set objWMIService = GetObject( "winmgmts://./root/cimv2" )
Set colItems = objWMIService.ExecQuery( "Select * from Win32_ComputerSystem", , 48 )
For Each objItem in colItems
strComputer = objItem.Name
Next
Case 1
' Command line parameter can either be a computer name
' or "/?" to request online help
strComputer = Wscript.Arguments(0)
if InStr( strComputer, "?" ) > 0 Then Syntax
Case Else
' Maximum is 1 command line parameter
Syntax
End Select

Display( strComputer )
WScript.Quit(0)


Function Display( strComputer )
strMsg = vbCrLf & "Name:" & vbTab & "Drive:" & vbTab & "Size:" & _
vbTab & "Free:" & vbTab & "% Free:" & vbCrLf & "=====" & _
vbTab & "======" & vbTab & "=====" & vbTab & "=====" & _
vbTab & "=======" & vbCrLf
On Error Resume Next
Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/cimv2" )
If Err.Number Then
WScript.Echo vbCrLf & "Error # " & CStr( Err.Number ) & _
" " & Err.Description
Err.Clear
Syntax
End If
On Error GoTo 0
' Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk where MediaType=12",,48)
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk where DriveType=3",,48)
For Each objItem in colItems
strMsg = strMsg & strComputer & vbTab & _
objItem.Name & vbTab & _
CStr( Int( 0.5 + ( objItem.Size / 1073741824 ) ) ) & _
vbTab & _
CStr( Int( 0.5 + ( objItem.FreeSpace / 1073741824 ) ) ) & _
vbTab & _
CStr( Int( 0.5 + ( 100 * objItem.FreeSpace / objItem.Size) ) ) & _
vbCrLf
Next
WScript.Echo strMsg
End Function


Source : http://www.infos-du-net.com/forum/16761 ... pour-batch

Merci pour ton aide .

[kazer]

Ouch un script de merde...

C'est quoi l'OS derrière pour ta demande?

[Frontier]

Je fais mes tests sur Win XP, mais ce sera au final pour des machines sur Win 2003 serveur.

Je suis d'accord que le script n'a pas l'air terrible. Mais bon. Si je n'ai que ça ! Je pensais pouvoir trouver quelque chose de simple en ligne de commande mais :s

Damien.

P.S. : Désolé pour le temps de réponse.

[kazer]

Je fais mes tests sur Win XP, mais ce sera au final pour des machines sur Win 2003 serveur.

Je suis d'accord que le script n'a pas l'air terrible. Mais bon. Si je n'ai que ça ! Je pensais pouvoir trouver quelque chose de simple en ligne de commande mais :s

Damien.

P.S. : Désolé pour le temps de réponse.

J'ai pas le temps là mais regarde du côté de l'aide de vbscript sur le FileSystemObject

[Frontier]

Ok. Je fais ça des que possible et je te tiens au courant.

Merci.

[Frontier]

Pas mal !!!

Voici mon retour :

Code: Tout sélectionner

Set objetFSO = CreateObject("Scripting.FileSystemObject")
Set Lecteur = objetFSO.GetDrive("c:/")
Wscript.Echo "Total Space :"
Wscript.Echo Lecteur.TotalSize
Wscript.Echo "Free Space :"
Wscript.Echo Lecteur.FreeSpace

Voici un exemple si on veut le lancer en ligne de commance :

Code: Tout sélectionner

C:\>CScript prog.vbs
Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.

Total Space :
79990815744
Free Space :
62769074176

Bon j'ai encore un soucis au niveau de l'appel java, comme l'affichage du vbs met près d'une seconde à prendre, le java plante car il n'a pas toute les données. Enfin bon. Peut etre un wait() ou quelque chose de ce genre à mettre en place. Je vais voir ça.

Merci à toi kazer. T'es un chef ! (et surtout un modo ).

Bonne journée !

Damien.

Edit : Non en faite c'est moi qui ai fait une erreur dans mon code Java. Ca fonctionne impec ! Merci encore !