Question

如何编写用于计算Windows机器的C：驱动器中的可用空间的vbscript

Answer 1

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

Answer 2

查看this page：

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

Answer 3

使用FileSystemObject该页面包含一个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 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

使用vbscript计算C盘的可用空间

4 个答案: