Hi @all ! Here are some simple scripts to install some difficult apps. All tested on a german installation. Be careful With SendKeys "w" In german this means "weiter" I think the english shortcut is "n" (Next) WScript.Sleep 2000 means wait 2000 milliseconds Copy the code and save it as .vbs file. AD-aware Pro 'Automatic, but not silent install of Ad-aware Pro Set WshShell = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") On Error Resume Next WshShell.Popup "Do NOT MOVE the mouse an do NOT PRESS any button!",5," - Warning - ",48 'Run setup from location on hdd' 'you have to check the path ! WshShell.Run ("%systemdrive%\Apps\Adaware.exe") 'if your hdd is very slow, increase the next value WScript.Sleep 5000 'don't use "{n 5}" instead of five times "n" ! WshShell.SendKeys "n" WScript.Sleep 2000 WshShell.SendKeys "n" WScript.Sleep 2000 WshShell.SendKeys "n" WScript.Sleep 2000 WshShell.SendKeys "n" WScript.Sleep 2000 WshShell.SendKeys "n" WScript.Sleep 2000 'Insert your code WshShell.SendKeys "123456" WScript.Sleep 2000 WshShell.SendKeys "~" WScript.Sleep 5000 WshShell.SendKeys "f" 'Copy the newest reflist.ref to the ad-aware folder overwrite the old one 'you have to check the path ! Set refl = fso.GetFile("%systemdrive%\Apps\reflist.ref") refl.Copy ("%programfiles%\Lavasoft\Ad-aware 6\reflist.ref") Wscript.Quit Irfan View 'Automatic, but not silent install of Irfan View 'view only all images with Irfan view Set WshShell = WScript.CreateObject("WScript.Shell") On Error Resume Next WshShell.Popup "Do NOT MOVE the mouse an do NOT PRESS any button!",5," - Warning - ",48 'Run setup from location on hdd' 'you have to check the path ! WshShell.Run ("%systemdrive%\Apps\iview385.exe") 'if your hdd is slow, increase the next value WScript.Sleep 7000 WshShell.SendKeys "{TAB}" WScript.Sleep 2000 'Check the value! 'Change ALL shortcuts to your language ! 'For german = w means "weiter" 'For english = n means "next" WshShell.SendKeys "w" WScript.Sleep 2000 WshShell.SendKeys "w" WScript.Sleep 2000 WshShell.SendKeys "~" WScript.Sleep 2000 WshShell.SendKeys "w" WScript.Sleep 2000 WshShell.SendKeys "w" WScript.Sleep 2000 'I think you have to change the next line to "y" WshShell.SendKeys "j" WScript.Sleep 2000 WshShell.SendKeys "~" WScript.Sleep 2000 'If you don't need the plug-ins, activate the next line and clear the following code 'Wscript.Quit 'install the plug-ins 'you have to check the path ! WshShell.Run ("%systemdrive%\Apps\all_plugins.exe") WScript.Sleep 2000 WshShell.SendKeys "w" WScript.Sleep 2000 WshShell.SendKeys "~" WScript.Sleep 1000 Wscript.Quit MediaPlayer classic formats 'Use all video formats with MediaPlayer classic Set WshShell = WScript.CreateObject("WScript.Shell") On Error Resume Next WshShell.Popup "Do NOT MOVE the mouse an do NOT PRESS any button!",5," - Warning - ",48 WshShell.Run ("%programfiles%\MediaP~1\mplayerc.exe") WScript.Sleep 2000 WshShell.SendKeys "%v" WScript.Sleep 2000 WshShell.SendKeys "o" WScript.Sleep 2000 WshShell.SendKeys "{DOWN}" WScript.Sleep 2000 WshShell.SendKeys "%v" WScript.Sleep 2000 WshShell.SendKeys "%b" WScript.Sleep 1000 WshShell.SendKeys "~" WScript.Sleep 2000 WshShell.SendKeys "%{F4}" WScript.Sleep 2000 Wscript.Quit PowerDVD5 'Automatic, but not silent install of PowerDVD5 and newest patch 'Usefull AFTER the mplayerc-script Set WshShell = WScript.CreateObject("WScript.Shell") On Error Resume Next WshShell.Popup "Do NOT MOVE the mouse an do NOT PRESS any button!",5," - Warning - ",48 'Run setup from location on hdd' 'you have to check the path ! WshShell.Run ("%systemdrive%\Apps\PowerDVD\setup.exe") 'if your hdd is slow, increase the next value WScript.Sleep 7000 WshShell.SendKeys "~" WScript.Sleep 2000 WshShell.SendKeys "~" WScript.Sleep 2000 WshShell.SendKeys "~" WScript.Sleep 2000 WshShell.SendKeys "{TAB}" WScript.Sleep 2000 WshShell.SendKeys "{TAB}" WScript.Sleep 2000 'Insert your code WshShell.SendKeys "12345678" WScript.Sleep 2000 WshShell.SendKeys "~" WScript.Sleep 2000 WshShell.SendKeys "~" WScript.Sleep 2000 WshShell.SendKeys "~" WScript.Sleep 2000 WshShell.SendKeys "~" 'if your hdd is slow, increase the next value WScript.Sleep 10000 WshShell.SendKeys "~" WScript.Sleep 2000 WshShell.SendKeys " " WScript.Sleep 2000 WshShell.SendKeys "{PGDN}" WScript.Sleep 2000 WshShell.SendKeys "~" WScript.Sleep 2000 'If you don't need the patch, activate the next line and clear the following code 'Wscript.Quit 'you have to check the path ! WshShell.Run ("%systemdrive%\Apps\Powerdvd\PDVD5_patch\setup.exe") 'if your hdd is slow, increase the next value WScript.Sleep 5000 WshShell.SendKeys "~" WScript.Sleep 2000 WshShell.SendKeys "~" 'if your hdd is slow, increase the next value WScript.Sleep 10000 WshShell.SendKeys "~" WScript.Sleep 2000 WshShell.SendKeys " " WScript.Sleep 2000 WshShell.SendKeys "~" WScript.Sleep 2000 Wscript.Quit
