Discussion :

[sbrillard]

Bonjour

J'aimerais connaitre le pourcentage d'espace libre d'un disque à partir du nom d'un fichier.

C'est mon premier script en vbs et voila ce que j'ai fait:

Code :

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

1
2
3
4
5
6
Set objetFSO = CreateObject("Scripting.FileSystemObject")
Set Fichier = objetFSO.GetFile("C:\Documents and Settings\X084736\Bureau\temp.txt")
Wscript.Echo Fichier.Drive
Set objetFSO2 = CreateObject("Scripting.DriveSystemObject")
Set Lecteur = objetFSO.GetDrive(Fichier.Drive)
Wscript.Echo objetFSO.AvailableSpace

J'ai quelques questions:

- Avec ce code j'ai l'erreur suivante: Un composant Activx ne peut pas créer un objet: 'Scripting.DriveSystemObject' et je ne comprends pas pourquoi !
- J'aimerais que le résultat soit écris sur la sortie standard et non dans une fenêtre popo ! quelle méthode ?
- J'aimerais passé le nom du fichier en parametre dans la ligne de copmmande

Merci d'avance pour votre aide

Seb

[ced600]

Avec ce code j'ai l'erreur suivante: Un composant Activx ne peut pas créer un objet: 'Scripting.DriveSystemObject' et je ne comprends pas pourquoi !

Cela ne marche pas chez moi non plus, et je ne trouve qu'un seul site qui propose d'utiliser cet objet. Mais aucune autre information sur DriveSystemObject, à croire que le site en question à inventer n'importe quoi.
Il est probable que l'objet utilise un controle activeX particulier que tu n'as pas, mais va savoir lequel.
Apparement tu pourrais faire la même chose avec les API WMI (Win32_LogicalDisk) mais j'ai essayé chez moi, et si je peux avoir la taille du disque, le paramètre Availbility ne contient aucune info. Cela dépend peut être des machines.

J'aimerais que le résultat soit écris sur la sortie standard et non dans une fenêtre popo ! quelle méthode ?

Celle que tu as utilisé !
Echo envoie vers la sortie standard.
La sortie standard de Wscript est une popup. Utilise Cscript, sa sortie standard est une console.
W = Windows et C = Console

J'aimerais passé le nom du fichier en parametre dans la ligne de copmmande

FAQ VBScript

[sbrillard]

J'ai pu avancé

Code :

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

1
2
3
4
5
6
7
8
9
10
Set arguments = WScript.Arguments
Set objetFSO = CreateObject("Scripting.FileSystemObject")
Set Fichier = objetFSO.GetFile(arguments(0))
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oDrv = oFso.GetDrive(Fichier.Drive)
 
pct = (oDrv.TotalSize - oDrv.FreeSpace) / oDrv.TotalSize  
 
wScript.echo pct

Mais je n'arirve pas à ecrire sur la sortie standart de la console: cscript.echo ne marche pas !

seb

[ced600]

autant pour moi j'ai dit n'importe quoi.

Si tu laisses Wscript.echo dans ton code, et que tu lance en ligne de commande ton script comme suit :

Code :

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

cscript le_script.vbs

L'affichage se fera sur la console.

[SfJ5Rpw8]

voir aussi :
Comment changer l'interpréteur de script par défaut ?