Creat0R
Цитата:
|
Ещё один способ получить список существующих дисков на компьютере:
|
Интересный вариант! Как-то мне пришлось использовать перебор A-Z, но только в пакетном файле, поскольку другой альтернативы в батниках просто нет.
Вот ещё один способ, сделано через VBScript
Код:
#CS
тип ресурса:
0 - неизвестное устройство
1 - устройство со сменным носителем.
2 - жёсткий диск.
3 - сетевой диск.
4 - CD-ROM.
5 - RAM-диск.
#CE
Dim $fso, $d, $dc, $s
$fso = ObjCreate("Scripting.FileSystemObject")
$dc = $fso.Drives
For $d In $dc
If $d.DriveType = "2" Then
$s = $s & $d.DriveLetter & ": "
EndIf
Next
MsgBox(0,"",$s)
