skbb
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Батник, запускаемый перед закачкой шедулером USD.
Выстави галку ожидания окончания процесса в настройках задания.
//===========================
rem 1 параметр - буква проверяемого диска
rem 2 параметр - необходимый остаток объема диска в Мб
rem 3 параметр - выполняемая команда при недостатке свободного места
start /wait wscript.exe FreeSpace.vbs C 200 KillUSD.bat
//===========================
VBSript (имя его FreeSpace.vbs)
//===========================
Dim fso1
Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")
Dim WshShell
set WshShell = WScript.CreateObject("WScript.Shell")
Set objArgs=WScript.Arguments
CurDisk=objArgs(0)
MinSpace=cLng(objArgs(1))*1024*1024
CmdString=objArgs(2)
Set oDrive1 = fso1.GetDrive(CurDisk)
nSize = oDrive1.TotalSize
If nSize<MinSpace Then
wshshell.Run CmdString,1,False
End If
//===========================
|
Всего записей: 755 | Зарегистр. 16-04-2007 | Отправлено: 22:11 20-10-2008 | Исправлено: skbb, 22:16 20-10-2008 |
|
