Автоматизация администрирования - [538] :: В помощь системному администратору

'**************************'
'* File: removekav.vbs *'
'* Author: kuvsh *'
'**************************'
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "K:", "\\file_server\d\file_arhive\Antivirus"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "K:\RemoveKAV.exe"

'Проблему с необходимостью двух подтверждений решил двумя циклами
KL = true

do while KL
if WshShell.AppActivate("RemoveKAV") then
WriteWord()
KL = false
end if
WScript.Sleep 1
loop

CL = true

do while CL
if WshShell.AppActivate("RemoveKAV") then
WriteWord()
CL = false
end if
WScript.Sleep 1
loop

function WriteWord()
WshShell.SendKeys "{ENTER}"
end function

Wscript.Sleep 4000
WshNetwork.RemoveNetworkDrive "K:"

нарушение пункта 3.9 Правил форума. Исправлено.
dg

Модерирует : lynx, Crash_Master, dg, emx, ShriEkeR
emx (13-12-2006 21:07): http://forum.ru-board.com/topic.cgi?forum=8&topic=19088#1	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению