VBscript
Cкрипт мониторинга доступности хоста с записью в лог.
Пятница, 4 ноября 2016 г.Рубрика: В помощь сисадмину -> Познавательное
Метки: Inaccessible | Ping | Ping Time | PingTime.log | VBscript | Скрипт
Просмотров: 25971
Подписаться на комментарии по RSS
Скрипт сохраняет результат работы команды ping в лог-файл c записью даты и времени на каждый пакет, а если хост не доступен пишет "Inaccessible"
Результат работы скрипта:
16:31:26 192.168.11.111: число байт=32 время<1мс TTL=63
16:31:31 Inaccessible!..
16:31:32 192.168.11.111: число байт=32 время<1мс TTL=63
16:31:37 Inaccessible!..
16:31:42 Inaccessible!..
16:31:43 192.168.11.111: число байт=32 время<1мс TTL=63
16:31:48 Inaccessible!..
16:31:49 192.168.11.111: число байт=32 время<1мс TTL=63
16:31:54 Inaccessible!..
16:31:55 192.168.11.111: число байт=32 время<1мс TTL=63
16:32:00 Inaccessible!..
16:32:01 192.168.11.111: число байт=32 время<1мс TTL=63
Переменные:
conCheckInterval = 10000: равно 10 секундам, кому надо можно поиграть с увеличение интервала
conHost = "ХХХ.ХХХ.ХХХ.ХХХ" - указываем наш проверяемый хост
Обсудить
Cкрипт для поиска и удаления определенной папки
Вторник, 1 ноября 2011 г.Рубрика: В помощь сисадмину -> Познавательное
Метки: script | vbscript
Просмотров: 24032
Подписаться на комментарии по RSS
Может кому еще пригодиться, небольшой скрипт для поиска определенной папки и ее удаления.
думаю что комментировать не надо, и так все понятно.
'==============================================
Option Explicit
On Error Resume Next
'==============================================
ShowFolderList("C:\Documents and Settings")
Function ShowFolderList(folderspec)
Dim fso, f, f1, s, sf
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 in sf
ShowFolderList(f1.path)
if strcomp(f1.name,"1CvXX") = 0 then
fso.deletefolder f1.path, true
Exit for
Exit function
End if
Next
End Function
'===============================================