скриптом проверяю наличие какогонить файла и затем запускаю приложение
сейчас вот надо всем установить небольшой апдейт для офиса FileFormatConverters.exe
набросал скрипт
Код:
Код: Выделить всё
Dim oShell, oExec, sOutput
Dim fso, oFile
set fso = createobject("scripting.filesystemobject")
Set wshShell = WScript.CreateObject("WScript.Shell")
logname = "\\SERVER\logs$\office2007_" & wshShell.ExpandEnvironmentStrings("%COMPUTERNAME%") & ".log"
'============================================================
' Файл конвертера
file = "C:\Program Files\MSECache\O2007Cnv\1049\Catalog\files12.cat"
'
' Проверяем наличие файла
If (fso.FileExists(file)) Then
'============================================================
' nothing
'============================================================
ELSE
'============================================================
Set oExec = wshShell.Exec("\\server\$_distrib\_auto\office2007\FileFormatConverters.exe /log:" & logname & " /quiet")
End Ifесли скрипт запускать от имени пользователя, то пакет ессно не встанет
нужно с более серьезными правами
вешаем скрипт на применение к машине
но тагда скрипт ругается на
Set oExec = wshShell.Exec"\\server\$_distrib\_auto\office2007\FileFormatConverters.exe /log:" & logname & " /quiet")
грит нет доступа
то есь скрипт напрочь отказывается работать с сетевыми ресурсами (проверял также другими способами)
как быть?
вобщем у мну задача сделать проверку на существование файла, и если файла нету выполнить приложение с правами администратора