Visual Basic Script


6_5_ Диски - часть 4


        JScript:

    var FSO = WScript.CreateObject("Scripting.FileSystemObject");
    var D = FSO.GetDrive("C");
    FileSys = D.FileSystem;
    WScript.Echo("Файловая система на диске C: " + FileSys);
 

         IsReady – логическое значение. Возвращает true, если диск готов к использованию.

         VBScript:

    Dim FSO, d, t
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set d = FSO.GetDrive("a")
    If d.IsReady Then
     MsgBox "Устройство готово к использованию"
    Else
     MsgBox "Устройство не готово "
    End If

        JScript:

    var FSO, d, s, t;
    FSO = new ActiveXObject("Scripting.FileSystemObject");
    d = FSO.GetDrive("a:");
    if (d.IsReady)
    WScript.Echo("Устройство готово к использованию");
    else
    WScript.Echo("Устройство не готово, вставьте диск в дисковод");
 

         RootFolder – возвращает путь к корневому каталогу. Для диска С – “с:\”, для a – “a:\” и т.д.

         SerialNumber – серийный номер устройства в десятичной системе.

         VBScript:

     Dim FSO, D, Serial
     Set FSO = CreateObject("Scripting.FileSystemObject")
    Set D = FSO.GetDrive("C")
    Serial = D.SerialNumber
    'получаем серийный номер диска C в десятичной системе




Начало  Назад  Вперед