calculer l'espace libre de lecteur C en utilisant vbscript

Question

Comment puis-je écrire vbscript qui calcule l'espace libre dans C: entraînement d'une machine windows

Answer 1

ont un regard sur this page:

Set objWMIService = GetObject("winmgmts:") 
Set objLogicalDisk = objWMIService.Get("Win32_LogicalDisk.DeviceID='c:'") 
Wscript.Echo objLogicalDisk.FreeSpace 

Answer 2

Utilisez le FileSystemObject La page comprend un exemple JScript

function ShowDriveInfo1(drvPath) 
{ 
    var fso, drv, s =""; 
    fso = new ActiveXObject("Scripting.FileSystemObject"); 
    drv = fso.GetDrive(fso.GetDriveName(drvPath)); 
    s += "Drive " + drvPath.toUpperCase()+ " - "; 
    s += drv.VolumeName + "<br>"; 
    s += "Total Space: " + drv.TotalSize/1024; 
    s += " Kb" + "<br>"; 
    s += "Free Space: " + drv.FreeSpace/1024; 
    s += " Kb" + "<br>"; 
    Response.Write(s); 
} 

Answer 3

Set fso = CreateObject("Scripting.FileSystemObject") 
Set d = fso.GetDrive("C:") 
WScript.Echo d.FreeSpace 

Answer 4

strComputer = "." 

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery(_ 
    "SELECT * FROM Win32_LogicalDisk where DeviceID='c:'",,48) 

For Each objItem in colItems 

if len(objItem.VolumeName)>0 then 

Wscript.Echo "-----------------------------------" & vbCrLf _ 
     & "VolumeName:" & vbTab & objItem.VolumeName & vbCrLf _ 
     & "-----------------------------------" & vbCrLf _ 
     & "FreeSpace:" & vbTab _ 
     & FormatNumber((CDbl(objItem.FreeSpace)/1024/1024/1024)) & vbCrLf _ 
     & "Size:" & vbTab & vbTab _ 
     & FormatNumber((CDbl(objItem.Size)/1024/1024/1024)) & vbCrLf _ 
     & "Occupied Space:" & vbTab _ 
     & FormatNumber((CDbl(objItem.Size - objItem.FreeSpace)/1024/1024/1024)) 
    end if 
Next