Информация о диске при помощи VBScript (VBS)

При помощи объекта FileSystemObject в VBScript можно получить различные данные о файловой системе.

В этой статье я покажу вам, как получить характеристики определённого диска с помощью него.

Option Explicit

Dim oFSO ' Объявление переменных
Dim oDriveInfo

Set oFSO = CreateObject("Scripting.FileSystemObject") ' Создаём объект для работы с файловой системой
' Blog - https://progtask.ru

Set oDriveInfo = oFSO.GetDrive("C:\") ' Получаем диск C:\

' Выводим полученную информацию из переменной oDriveInfo
MsgBox("Буква диска - " & oDriveInfo.DriveLetter & vbCrLf & _
		"Метка диска - " & oDriveInfo.VolumeName & vbCrLf & _
		"Тип диска - " & GetDriveType(oDriveInfo.DriveType) & vbCrLf & _
		"Файловая система - " & oDriveInfo.FileSystem & vbCrLf & _
		"Общий объём памяти диска - " & oDriveInfo.TotalSize & " байт" & vbCrLf & _
		"Свободное место, доступное для пользователя - " & oDriveInfo.AvailableSpace & " байт" & vbCrLf & _
		"Свободное место на диске - " & oDriveInfo.FreeSpace & " байт" & vbCrLf & _
		"Серийный номер диска - " & oDriveInfo.SerialNumber & vbCrLf)
		
Function GetDriveType(nType) ' Функция, преобразующая тип диска из числового представления в удобное человеку
	Dim sDriveType

	Select Case nType
		Case 0
			sDriveType = "Неизвестное устройство"
		Case 1
			sDriveType = "Устройство со сменным носителем"
		Case 2
			sDriveType = "Жёсткий диск"
		Case 3
			sDriveType = "Сетевой диск"
		Case 4
			sDriveType = "CD-ROM"
		Case 5
			sDriveType = "RAM-диск"
	End Select
	
	GetDriveType = sDriveType
End Function

Option Explicit

Dim oFSO ' Объявление переменных

Dim oDriveInfo

Set oFSO = CreateObject("Scripting.FileSystemObject") ' Создаём объект для работы с файловой системой

' Blog - https://progtask.ru

Set oDriveInfo = oFSO.GetDrive("C:\") ' Получаем диск C:\

' Выводим полученную информацию из переменной oDriveInfo

MsgBox("Буква диска - " & oDriveInfo.DriveLetter & vbCrLf & _

"Метка диска - " & oDriveInfo.VolumeName & vbCrLf & _

"Тип диска - " & GetDriveType(oDriveInfo.DriveType) & vbCrLf & _

"Файловая система - " & oDriveInfo.FileSystem & vbCrLf & _

"Общий объём памяти диска - " & oDriveInfo.TotalSize & " байт" & vbCrLf & _

"Свободное место, доступное для пользователя - " & oDriveInfo.AvailableSpace & " байт" & vbCrLf & _

"Свободное место на диске - " & oDriveInfo.FreeSpace & " байт" & vbCrLf & _

"Серийный номер диска - " & oDriveInfo.SerialNumber & vbCrLf)

Function GetDriveType(nType) ' Функция, преобразующая тип диска из числового представления в удобное человеку

Dim sDriveType

Select Case nType

Case 0

sDriveType = "Неизвестное устройство"

Case 1

sDriveType = "Устройство со сменным носителем"

Case 2

sDriveType = "Жёсткий диск"

Case 3

sDriveType = "Сетевой диск"

Case 4

sDriveType = "CD-ROM"

Case 5

sDriveType = "RAM-диск"

End Select

GetDriveType = sDriveType

End Function

Результат:

Информация о диске VBScript

С вопросами обращайтесь в комментарии.