Ветеран
Сообщения: 628
Благодарности: 51
|
Профиль
|
Отправить PM
| Цитировать
alex72
У меня ставится так, можно сделать и попроще.
Цитата:
prog[pn]=['Kaspersky Antivirus 5.0 Personal']
desc[pn]=['']
cmd1[pn]=['%cdrom%\\Install\\KAV\\kav.vbs /s']
dflt[pn]=['yes']
cat[pn]=['<font color="#FFAAAA">Antivirus</font>']
ordr[pn]=[5]
pn++
|
Цитата kav.vbs:
Dim WshShell, fso, objArgs, pf, aup, dir
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
pf = WshShell.ExpandEnvironmentStrings("%Programfiles%")
aup = WshShell.ExpandEnvironmentStrings("%AllUsersProfile%")
' Path to current vbs folder to successfully launch script in WPI
dir = fso.GetParentFolderName(WScript.ScriptFullName)
WshShell.Run (dir & "\kav5.0.142_personalru.exe /S /D=" & pf & "\KAV"), 1, true
fso.DeleteFile(aup & "\Application Data\Kaspersky Anti-Virus Personal\5.0\Bases\*.*"), true
fso.CopyFolder dir & "\bases", aup & "\Application Data\Kaspersky Anti-Virus Personal\5.0\Bases"
fso.CopyFolder dir & "\Policy", aup & "\Application Data\Kaspersky Anti-Virus Personal\5.0\Policy"
fso.CopyFile dir & "\trueworks-avp.key", pf & "\KAV\trueworks-avp.key.yek"
WshShell.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\KAVPersonal50"
Set objArgs = WScript.Arguments
If objArgs.Count = 0 Then
msgbox "KAV Antivirus Installation complete"
End if
Wscript.Quit
|
|
Отправлено: 19:08, 14-01-2005
| #13
|