Hard-diskteki boş alan

SametE

Profesyonel
Katılım
7 Mar 2008
Mesajlar
307
Beğeniler
0
Konum
Balıkesir
#1
Asp ile hard-diskte ne kadar boş alana olduğunu görün


Kod:
Const HARD_DISK = 3

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colDisks = objWMIService.ExecQuery _
    ("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "")

For Each objDisk in colDisks
    Wscript.Echo "DeviceID: "& vbTab &  objDisk.DeviceID       
    Wscript.Echo "Free Disk Space: "& vbTab & objDisk.FreeSpace
Next
 

Bu konuyu okuyanlar (Üyeler: 1, Misafirler: 0)

Üst