farlow
12-09-2007, 13:58
так как не умею перепаковывать всякие пакеты в инсталляторы msi решил поизвращаться через vbs скрипты
скриптом проверяю наличие какогонить файла и затем запускаю приложение
сейчас вот надо всем установить небольшой апдейт для офиса 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")
грит нет доступа
то есь скрипт напрочь отказывается работать с сетевыми ресурсами (проверял также другими способами)
как быть?
вобщем у мну задача сделать проверку на существование файла, и если файла нету выполнить приложение с правами администратора
скриптом проверяю наличие какогонить файла и затем запускаю приложение
сейчас вот надо всем установить небольшой апдейт для офиса 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")
грит нет доступа
то есь скрипт напрочь отказывается работать с сетевыми ресурсами (проверял также другими способами)
как быть?
вобщем у мну задача сделать проверку на существование файла, и если файла нету выполнить приложение с правами администратора