Friendly Pinger - [3] :: Программы :: Компьютерный форум Ru.Board

MatsushitA

Может не совсем в тему к Fpingerу, но всё же:

Чтобы заменить функционал collectа, можно юзать everest.
Для этого достаточно прикрутить батник к GPO на пользователей (или распространить его по компам другим способом):

Код:

if not exist c:\temp (md c:\temp)

if not exist c:\temp\everest\bin\marker1 (goto coping) else (goto run)

:coping
md c:\temp\everest
md c:\temp\everest\bin
xcopy /c /s /r /y \\server.domain.loc\everest$\bin c:\temp\everest\bin

:run
c:\temp\everest\bin\everest.exe /R \\server.domain.loc\everest$\Reports\$hostname /audit /csv /safe /silent /delay 60 /idle/SILENT

Во Fpinger добавляем внешнюю команду:

Комментарий - Отчёт Everest
Приложение - wscript.exe
Параметры - w:\other\everest.vbs %Address

VBScript, в свою очередь, имеет следующее содержание:

Код:

'Открываем отчет Everesta.
'<<<< ................ ........ aka FL0od 2008>>>

set objArgs = WScript.Arguments
if WScript.Arguments.Count=0 or WScript.Arguments.Count=>2 then wscript.quit
fullhost=objArgs(0)
host = split(objArgs(0), ".")

PathToReport = chr(34) & "\\server.domain.loc\everest$\Reports\" & host(0) & ".csv" & chr(34)

Everest1 = "C:\temp\everest\bin\everest.exe"
Everest2 = "C:\Program Files\Lavalys\EVEREST Corporate Edition\everest.exe"
Everest3 = "C:\Program Files\Lavalys\EVEREST Corporate Edition\bin\everest.exe"
Excel1= "C:\Program Files\Microsoft Office\OFFICE11\excel.exe"
Excel2= "C:\Program Files\Microsoft Office\OFFICE12\excel.exe"

Set WshShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

Prog = "null"
if objFSO.FileExists(Everest1)=True then
Prog = Everest1
elseif objFSO.FileExists(Everest2)=True then
Prog = Everest2
elseif objFSO.FileExists(Everest3)=True then
Prog = Everest3
elseif objFSO.FileExists(Excel1)=True then
Prog = Excel1
elseif objFSO.FileExists(Excel2)=True then
Prog = Excel2
end if

if Prog = "null" then wscript.quit
WshShell.Run chr(34) & Prog & chr(34) & " " & PathToReport, 1, true

И наслаждаемся возможностями Audit Manager программы Everest Cororate Edition, прикрученного к Fpinger

Модерирует : gyra, Maz
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6