'By Eric M. Bouse
'Tested on Win2k

Option Explicit
Dim Shell, FSO
Set Shell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.CopyFile "N:\APPS\New Software\ZfDAgent from ZFD4 SP1.msi", "C:\"
FSO.MoveFile "c:\ZfDAgent from ZFD4 SP1.msi", "C:\ZfD.msi"

Shell.Run "C:\ZfD.msi"
Wscript.Sleep 20000
Shell.AppActivate "ZENworks for Desktops Management Agent - InstallShield Wizard"
Shell.SendKeys "%(N)"
Wscript.Sleep 2000
Shell.AppActivate "ZENworks for Desktops Management Agent - InstallShield Wizard"
Shell.SendKeys "%(A)"
Shell.SendKeys "%(N)"
Wscript.Sleep 2000
Shell.AppActivate "ZENworks for Desktops Management Agent - InstallShield Wizard"
Shell.SendKeys "%(N)"
Wscript.Sleep 2000
Shell.AppActivate "ZENworks for Desktops Management Agent - InstallShield Wizard"
Shell.SendKeys "%(N)"
Wscript.Sleep 2000
Shell.AppActivate "ZENworks for Desktops Management Agent - InstallShield Wizard"
Shell.SendKeys "%(N)"
Wscript.Sleep 2000
Shell.AppActivate "ZENworks for Desktops Management Agent - InstallShield Wizard"
Shell.SendKeys "%(I)"
Wscript.Sleep 40000
Shell.AppActivate "ZENworks for Desktops Management Agent - InstallShield Wizard"
Shell.SendKeys "%(F)"
Wscript.Sleep 2000
Shell.AppActivate "ZENworks for Desktops Management Agent - InstallShield Wizard"
Shell.SendKeys "%(N)"

Wscript.Sleep 2000
FSO.DeleteFile "C:\ZfD.msi"

Wscript.Quit