BgInfo en VBS

BgInfo en VBS - VB/VBA/VBS - Programmation

Marsh Posté le 17-03-2008 à 11:08:13    

Bonjour à tous ,  
 
Après un bon weekend et pour bien commencer la semaine , rien ne vo un bon script qui pose problème  :love: .
 
En effect , ce script me pose probleme car je suis sur le soft BgInfo et le soft m'indique une erreur dans mon script.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Set colDisks = objWMIService.ExecQuery _
    ("Select * from Win32_LogicalDisk Where DriveType = 3" )
For Each objDisk in colDisks
    intFreeSpace = objDisk.FreeSpace
    intTotalSpace = objDisk.Size
    pctFreeSpace = intFreeSpace / intTotalSpace
    wscript.echo objDisk.DeviceID, FormatPercent(pctFreeSpace)
Next
 
Pourtant sur le bureau , il m'idique bien free space des DD en % , je ne comprend pas pourquoi BgInfo ne veut pas le prendre...
 
J'espere que vous arriverez à m'aider car là je suis à cour d'idée...
 
Merci d'avance !


Message édité par topino le 17-03-2008 à 11:35:20
Reply

Marsh Posté le 17-03-2008 à 11:08:13   

Reply

Marsh Posté le 17-03-2008 à 11:35:01    

il m'indique une erreur sur cette ligne :  
wscript.echo objDisk.DeviceID, FormatPercent(pctFreeSpace)  
 
Message d'erreur : erreur d'execution ligne 10 position 4

Reply

Marsh Posté le 17-03-2008 à 14:23:57    

up...plz

Reply

Marsh Posté le 17-03-2008 à 17:40:37    

Les modérateurs , vous pouvez fermer , j'ai trouvé la solution .  
 
Désolé et merci

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed