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

null@example.com (alexii) — Tue, 22 Jun 2010 14:12:13 +0000

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.

Серый форум — VBScript: определить свободное доступное место для сетевого ресурса

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