Westi Posted September 23, 2003 Share Posted September 23, 2003 (edited) 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 millisecondsCopy the code and save it as .vbs file.AD-aware Pro'Automatic, but not silent install of Ad-aware ProSet WshShell = WScript.CreateObject("WScript.Shell")Set fso = CreateObject("Scripting.FileSystemObject")On Error Resume NextWshShell.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 valueWScript.Sleep 5000'don't use "{n 5}" instead of five times "n" !WshShell.SendKeys "n"WScript.Sleep 2000WshShell.SendKeys "n"WScript.Sleep 2000WshShell.SendKeys "n"WScript.Sleep 2000WshShell.SendKeys "n"WScript.Sleep 2000WshShell.SendKeys "n"WScript.Sleep 2000'Insert your codeWshShell.SendKeys "123456"WScript.Sleep 2000WshShell.SendKeys "~"WScript.Sleep 5000WshShell.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.QuitIrfan View'Automatic, but not silent install of Irfan View'view only all images with Irfan viewSet WshShell = WScript.CreateObject("WScript.Shell")On Error Resume NextWshShell.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 valueWScript.Sleep 7000WshShell.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 2000WshShell.SendKeys "w"WScript.Sleep 2000WshShell.SendKeys "~"WScript.Sleep 2000WshShell.SendKeys "w"WScript.Sleep 2000WshShell.SendKeys "w"WScript.Sleep 2000'I think you have to change the next line to "y"WshShell.SendKeys "j"WScript.Sleep 2000WshShell.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 2000WshShell.SendKeys "w"WScript.Sleep 2000WshShell.SendKeys "~"WScript.Sleep 1000Wscript.QuitMediaPlayer classic formats'Use all video formats with MediaPlayer classicSet WshShell = WScript.CreateObject("WScript.Shell")On Error Resume NextWshShell.Popup "Do NOT MOVE the mouse an do NOT PRESS any button!",5," - Warning - ",48WshShell.Run ("%programfiles%\MediaP~1\mplayerc.exe")WScript.Sleep 2000WshShell.SendKeys "%v"WScript.Sleep 2000WshShell.SendKeys "o"WScript.Sleep 2000WshShell.SendKeys "{DOWN}"WScript.Sleep 2000WshShell.SendKeys "%v"WScript.Sleep 2000WshShell.SendKeys "%b"WScript.Sleep 1000WshShell.SendKeys "~"WScript.Sleep 2000WshShell.SendKeys "%{F4}"WScript.Sleep 2000Wscript.QuitPowerDVD5'Automatic, but not silent install of PowerDVD5 and newest patch'Usefull AFTER the mplayerc-scriptSet WshShell = WScript.CreateObject("WScript.Shell")On Error Resume NextWshShell.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 valueWScript.Sleep 7000WshShell.SendKeys "~"WScript.Sleep 2000WshShell.SendKeys "~"WScript.Sleep 2000WshShell.SendKeys "~"WScript.Sleep 2000WshShell.SendKeys "{TAB}"WScript.Sleep 2000WshShell.SendKeys "{TAB}"WScript.Sleep 2000'Insert your codeWshShell.SendKeys "12345678"WScript.Sleep 2000WshShell.SendKeys "~"WScript.Sleep 2000WshShell.SendKeys "~"WScript.Sleep 2000WshShell.SendKeys "~"WScript.Sleep 2000WshShell.SendKeys "~"'if your hdd is slow, increase the next valueWScript.Sleep 10000WshShell.SendKeys "~"WScript.Sleep 2000WshShell.SendKeys " "WScript.Sleep 2000WshShell.SendKeys "{PGDN}"WScript.Sleep 2000WshShell.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 valueWScript.Sleep 5000WshShell.SendKeys "~"WScript.Sleep 2000WshShell.SendKeys "~"'if your hdd is slow, increase the next valueWScript.Sleep 10000WshShell.SendKeys "~"WScript.Sleep 2000WshShell.SendKeys " "WScript.Sleep 2000WshShell.SendKeys "~"WScript.Sleep 2000Wscript.Quit Edited September 24, 2003 by Westi Link to comment Share on other sites More sharing options...
Thanatos Posted September 23, 2003 Share Posted September 23, 2003 Very nice. Thanks Link to comment Share on other sites More sharing options...
Ignis Posted September 23, 2003 Share Posted September 23, 2003 what about winamp? Link to comment Share on other sites More sharing options...
Westi Posted September 24, 2003 Author Share Posted September 24, 2003 This is only for FullVersion 2.95 and without sending statistics:I don't recommend/like Version 3...TESTEDWinamp Full 2.95Set WshShell = WScript.CreateObject("WScript.Shell")WshShell.Popup "Do NOT MOVE the mouse an do NOT PRESS any button!",5," - Warning - ",48WshShell.Run ("%systemdrive%\Applications\winamp295_full.exe")WScript.Sleep 2000WshShell.SendKeys "~"WScript.Sleep 2000WshShell.SendKeys "n"WScript.Sleep 2000WshShell.SendKeys "i"'Increase next value on slow systemsWScript.Sleep 5000WshShell.SendKeys "~"WScript.Sleep 2000WshShell.SendKeys "{TAB 6}"WScript.Sleep 1000WshShell.SendKeys " "WScript.Sleep 1000WshShell.SendKeys "{TAB}"WScript.Sleep 1000WshShell.SendKeys " "WScript.Sleep 1000WshShell.SendKeys "~"WScript.Sleep 10000WshShell.SendKeys "%{F4}"WScript.Quit Link to comment Share on other sites More sharing options...
Westi Posted September 24, 2003 Author Share Posted September 24, 2003 You can use this script to automatic uninstall Java Web Start (only Version 1.4.1)JAVA WEB STARTSet WshShell = WScript.CreateObject("WScript.Shell")WshShell.Popup "Do NOT MOVE the mouse an do NOT PRESS any button!",5," - Warning - ",48WshShell.Run ("%programfiles%\JavaWe~1\uninst-javaws.exe")WScript.Sleep 2000WshShell.SendKeys "~"WScript.Sleep 5000WshShell.SendKeys "~"WScript.Quit Link to comment Share on other sites More sharing options...
Westi Posted September 24, 2003 Author Share Posted September 24, 2003 (edited) Clear useless restore points to spare a lot of space after a common- or batch- install of servicepacks or the apps.This cleans all restore points, only the LAST one IS SAVE.Should work on all language versions, 'cause no shortcuts used. TESTED on german version .YOU CAN USE THIS SCRIPT SOMETIMES, 'CAUSE YOUR "SYSTEM VOLUME INFORMATION" - FOLDER GROWS UP.Normally you spare 0.5-1 Gigabyte, check it out !Delete restore pointsSet WshShell = WScript.CreateObject("WScript.Shell")WshShell.run "%SystemRoot%\System32\cleanmgr.exe"WScript.Sleep 2000'Normally the systemdrive is selected, but NO CHECK !WshShell.SendKeys "~"'Wait for retrieving informations'Increase the next value, if your system is slow (on a clean install, it should approx. < 20000ms)WScript.Sleep 20000WshShell.SendKeys "{TAB 4}"WScript.Sleep 500WshShell.SendKeys "{RIGHT}"WScript.Sleep 500WshShell.SendKeys "{TAB 3}"WScript.Sleep 500WshShell.SendKeys "~"WScript.Sleep 500WshShell.SendKeys "~"'EDIT: OOPS, i forgot to close the app...WScript.Sleep 2000WshShell.SendKeys "%{F4}"Wscript.Quit Edited September 24, 2003 by Westi Link to comment Share on other sites More sharing options...
Ignis Posted September 25, 2003 Share Posted September 25, 2003 thanks :) Link to comment Share on other sites More sharing options...
DarkBringer Posted September 27, 2003 Share Posted September 27, 2003 Westi, both installations for Ad-aware and PowerDVD worked just fine except the newreflist.ref in Ad-aware did not replace the old one.Any idea why it didn't work? :/ This is what I have'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%\Install\Applications\Adaware\reflist.ref")refl.Copy ("%programfiles%\Lavasoft\Ad-aware 6\reflist.ref")Wscript.Quit Link to comment Share on other sites More sharing options...
Westi Posted September 27, 2003 Author Share Posted September 27, 2003 Well,normally it should work, but sometimes VBScript not recognize folders/files with special char's.Try to replace the path in 8.3 like Ad-aware 6 ---> AD-AWA~1 Link to comment Share on other sites More sharing options...
DarkBringer Posted September 29, 2003 Share Posted September 29, 2003 Westi, have you found a way to install the plugins in Ad-aware? Link to comment Share on other sites More sharing options...
Westi Posted September 29, 2003 Author Share Posted September 29, 2003 (edited) pllspexplore plug-in for Ad-awarei will post the other one later...EDIT:old post don't work!!It is too much work to write a script for the plug-ins.Download this winrar-sfx:Plug-ins for Ad-aware 6and you get a self-extracting quiet installation in %programfiles%\Lavasoft\Ad-aware 6\pluginsSet WshShell = WScript.CreateObject("WScript.Shell")WshShell.run "D:\Tools\aaw\pllspexplore.exe"WScript.Sleep 5000WshShell.SendKeys "o"WScript.Sleep 1000WshShell.SendKeys "n"WScript.Sleep 1000WshShell.SendKeys "n"WScript.Sleep 1000WshShell.SendKeys "C:\programfiles\Lavasoft\Ad-aware 6\Plugins"WshShell.SendKeys "~"WScript.Sleep 1000WshShell.SendKeys "~"WScript.Sleep 1000WshShell.SendKeys "~"WScript.Sleep 1000WshShell.SendKeys "~"WScript.Sleep 5000Wscript.Quit Edited September 29, 2003 by Westi Link to comment Share on other sites More sharing options...
DaveXP Posted September 29, 2003 Share Posted September 29, 2003 Could you make a vbs script to make control panel be in my computer! Link to comment Share on other sites More sharing options...
SOOPAFLY Posted September 29, 2003 Share Posted September 29, 2003 in order for vbs to recognize environment variables you need to use the following method(some object).ExpandEnvironmentStrings("%some_variable%\path") Link to comment Share on other sites More sharing options...
Westi Posted September 29, 2003 Author Share Posted September 29, 2003 Could you make a vbs script to make control panel be in my computer!Yes, i can, but i prefer this method : [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideMyComputerIcons]"{21EC2020-3AEA-1069-A2DD-08002B30309D}"=dword:00000000 Link to comment Share on other sites More sharing options...
Westi Posted September 29, 2003 Author Share Posted September 29, 2003 order for vbs to recognize environment variables you need to use the following method(some object).ExpandEnvironmentStrings("%some_variable%\path")Thanx, 'cause i use absolute path' the script i've posted cannot work. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now