VBScript - Sürücü Bilgilerini Görme-
Sürücü bilgilerini komut satırından görebileceğiniz basit bir Visual Basic Script örneği.
Çalışmalarımı genellikle WinRar vb programlarla yedekliyorum. Eğer harici yedek diskim takılıysa yedek diskimdeki YEDEK klasörüne, takılı değilse yerel sabit sürücümdeki \yedek klasörüne yedeklesin şeklinde bir toplu iş dosyası (batch file) yazmıştım.
Diskin adı (volume name) ve seri numarasına bakarak kontrol sağlamıştım. Asıl yazılma amacı bu ama komut satırından disk bilglerini verecek şekilde değiştirdim.
Örnekte aşağıdaki sürücüler kullanılmıştır.
Ekran çıktısı (her bir çıktı ayrı ayrı gelmektedir. Gösterim amacıyla görselde yan yana gösterilmişlerdir)
-VBScript - Sürücü Bilgilerini Görme-
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
rem kapasite donusumleri icin basit bir formul
convertToKB = 1024
convertToMB = 1024 * convertToKB
convertToGB = 1024 * convertToMB
convertToTB = 1024 * convertToGB
rem her surucuye tek tek bak
For Each objDrive in colDrives-
rem surucu tipleri -
select case objDrive.DriveType-
case 0: drvType = "Unknown"
case 1: drvType = "Removable"
case 2: drvType = "Fixed"
case 3: drvType = "Network"
case 4: drvType = "CD-ROM"
case 5: drvType = "RAM Disk"
end select
totalSize = objDrive.TotalSize
freeSpace = objDrive.FreeSpace
rem eger en buyuk birimden
if totalSize/convertToTB>1 then totalSize = FormatNumber(totalSize/convertToTB) & " TB" _
else if totalSize/convertToGB>1 then totalSize = FormatNumber(totalSize/convertToGB) & " GB" _
else if totalSize/convertToMB>1 then totalSize = FormatNumber(totalSize/convertToMB) & " MB" _
else if totalSize/convertToKB>01then totalSize = FormatNumber(totalSize/convertToKB) & " KB"
if freeSpace/convertToTB>1 then freeSpace = FormatNumber(freeSpace/convertToTB) & " TB" _
else if freeSpace/convertToGB>1 then freeSpace = FormatNumber(freeSpace/convertToGB) & " GB" _
else if freeSpace/convertToMB>1 then freeSpace = FormatNumber(freeSpace/convertToMB) & " MB" _
else if freeSpace/convertToKB>01then freeSpace = FormatNumber(freeSpace/convertToKB) & " KB"
Wscript.Echo "Drive letter: " & objDrive.DriveLetter & chr(10) & _
"Volume Name: " & objDrive.VolumeName & chr(10) & _
"Serial Number: " & objDrive.SerialNumber & chr(10) & _
"Drive Type: " & drvType & chr(10) & _
"File System: " & objDrive.FileSystem & chr(10) & _
"Capacity: " & totalSize & chr(10) & _
"Free Space: " & freeSpace
Next-
Sürücü bilgilerini komut satırından görebileceğiniz basit bir Visual Basic Script örneği.
Çalışmalarımı genellikle WinRar vb programlarla yedekliyorum. Eğer harici yedek diskim takılıysa yedek diskimdeki YEDEK klasörüne, takılı değilse yerel sabit sürücümdeki \yedek klasörüne yedeklesin şeklinde bir toplu iş dosyası (batch file) yazmıştım.
Diskin adı (volume name) ve seri numarasına bakarak kontrol sağlamıştım. Asıl yazılma amacı bu ama komut satırından disk bilglerini verecek şekilde değiştirdim.
Örnekte aşağıdaki sürücüler kullanılmıştır.
Ekran çıktısı (her bir çıktı ayrı ayrı gelmektedir. Gösterim amacıyla görselde yan yana gösterilmişlerdir)
-VBScript - Sürücü Bilgilerini Görme-
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
rem kapasite donusumleri icin basit bir formul
convertToKB = 1024
convertToMB = 1024 * convertToKB
convertToGB = 1024 * convertToMB
convertToTB = 1024 * convertToGB
rem her surucuye tek tek bak
For Each objDrive in colDrives-
rem surucu tipleri -
select case objDrive.DriveType-
case 0: drvType = "Unknown"
case 1: drvType = "Removable"
case 2: drvType = "Fixed"
case 3: drvType = "Network"
case 4: drvType = "CD-ROM"
case 5: drvType = "RAM Disk"
end select
totalSize = objDrive.TotalSize
freeSpace = objDrive.FreeSpace
rem eger en buyuk birimden
if totalSize/convertToTB>1 then totalSize = FormatNumber(totalSize/convertToTB) & " TB" _
else if totalSize/convertToGB>1 then totalSize = FormatNumber(totalSize/convertToGB) & " GB" _
else if totalSize/convertToMB>1 then totalSize = FormatNumber(totalSize/convertToMB) & " MB" _
else if totalSize/convertToKB>01then totalSize = FormatNumber(totalSize/convertToKB) & " KB"
if freeSpace/convertToTB>1 then freeSpace = FormatNumber(freeSpace/convertToTB) & " TB" _
else if freeSpace/convertToGB>1 then freeSpace = FormatNumber(freeSpace/convertToGB) & " GB" _
else if freeSpace/convertToMB>1 then freeSpace = FormatNumber(freeSpace/convertToMB) & " MB" _
else if freeSpace/convertToKB>01then freeSpace = FormatNumber(freeSpace/convertToKB) & " KB"
Wscript.Echo "Drive letter: " & objDrive.DriveLetter & chr(10) & _
"Volume Name: " & objDrive.VolumeName & chr(10) & _
"Serial Number: " & objDrive.SerialNumber & chr(10) & _
"Drive Type: " & drvType & chr(10) & _
"File System: " & objDrive.FileSystem & chr(10) & _
"Capacity: " & totalSize & chr(10) & _
"Free Space: " & freeSpace
Next-
