首页 > Other > 查看磁盘剩余空间脚本

查看磁盘剩余空间脚本

2006年7月16日
阅读评论 发表评论

动了脑筋，查了资料才搞好的！

‘ 技术中国 http://www.mstc.com.cn/ 
‘ Made by 付林. 
‘ ************************************************ 
Const GB = 1073741824 ‘定义1GB＝1073741824KB
Dim FreeSpace
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2")
Set Disks = objWMIService.ExecQuery _
    ("Select * from Win32_LogicalDisk Where DriveType = 3") ‘不读取除硬盘外的其它类型驱动器
For Each objDisk in Disks
    GetFreeSpace
Next
FreeSpace = FreeSpace/GB
FreeSpace = FormatNumber(FreeSpace,0,False,False,True)
Wscript.Echo "剩余磁盘空间: " & FreeSpace & " GB"
Sub GetFreeSpace
    FreeSpace = CDbl(FreeSpace) + CDbl(objDisk.FreeSpace)
End Sub




声明  :  转载请注明出处: 碎片IT资讯





作者: 碎片 分类: Other 标签:
  1. 本文目前尚无任何评论.
  1. 本文目前尚无任何 trackbacks 和 pingbacks.