1 Тема от alexii

  • alexii
  • Разработчик
  • Неактивен

Тема: VBScript: определить свободное доступное место для сетевого ресурса

Option Explicit

Dim objFSO
Dim strRemoteShare


strRemoteShare = "\\SomeServer\SomeShare"
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

WScript.Echo FormatNumber(objFSO.GetDrive(strRemoteShare).FreeSpace / (1024 * 1024), 2) & " Mb"

Set objFSO = Nothing

WScript.Quit 0

Автор идеи — Slav.