Instalación desatendida de fix de Eset Antivirus
Publicado: Lun Ago 08, 2011 12:23 am
Hola amigos !! ando queriendo instalar de forma desatendida el Eset, el cual ya lo logre, pero el fix no tiene esa opción. Estuve buscando alguna forma para instalarlo y encontré este código en vbs
Sub delayedSendKeys(str)
WScript.Sleep 1000
WshShell.SendKeys str
End Sub
Dim WshShell, oFuncion
Set WshShell = CreateObject("WScript.Shell")
Set oFuncion = WshShell.Exec("Fix.exe")
WScript.Sleep 1000
Set ws = CreateObject("WScript.Shell")
ws.Run "Fix.exe"
delayedSendKeys "~"
delayedSendKeys "~"
delayedSendKeys "~"
delayedSendKeys "~"
Mi problema es que no se programar
y queria que alguno si no es molestia me ayude a modificarlo, ya lo habia modificado, para que presione 4 veces enter, pero despues de la cuarta vez se tiene que detener porque es cuando lo instala y despues volver a presionar enter para finalizar, y no encuentro como hacer eso.
Otro problema es que se ejecuta dos veces el archivo del fix, osea abre dos ventanas y solo a una es a la que le presiona la teclas (por decirlo de alguna manera)
y la otra queda abierta sin ningún sentido.
Gracias desde ya. Saludos.
Sub delayedSendKeys(str)
WScript.Sleep 1000
WshShell.SendKeys str
End Sub
Dim WshShell, oFuncion
Set WshShell = CreateObject("WScript.Shell")
Set oFuncion = WshShell.Exec("Fix.exe")
WScript.Sleep 1000
Set ws = CreateObject("WScript.Shell")
ws.Run "Fix.exe"
delayedSendKeys "~"
delayedSendKeys "~"
delayedSendKeys "~"
delayedSendKeys "~"
Mi problema es que no se programar

Otro problema es que se ejecuta dos veces el archivo del fix, osea abre dos ventanas y solo a una es a la que le presiona la teclas (por decirlo de alguna manera)

Gracias desde ya. Saludos.