cardguy1000

Line 123 should be If $UseWPA Then ControlCommand($handle, "", 7424,'Check', '') ;Use WPA using control command instead of control click, since it's a toggle field that way if you have previously gone into the wizard and checked wpa the script won't then uncheck wpa because of the remembered setting as the controlcommand function does not toggle the check box but instead tells it to just check it.

;Install program and update (Should be in same directory as script and named as used below) RunWait(@ScriptDir & '\spybotsd152.exe /verysilent /components="" /tasks="" /norestart') RunWait(@ScriptDir & '\spybotsd_includes.exe /S') ;Configure spybot to not show the wizard, legal notice, or update reminder RegWrite('HKEY_CURRENT_USER\Software\Safer Networking Limited\SpybotSnD', 'WizardRun', 'REG_DWORD', 1) IniWrite(@AppDataCommonDir & '\Spybot - Search & Destroy\Configuration.ini','Main', 'Legals', 1) IniWrite(@AppDataCommonDir & '\Spybot - Search & Destroy\Configuration.ini', 'Automation\WebUpdate','RemindUpdate', 0) ;Setup a scheduled task $adminUsername = 'Administrator' $adminPassword = 'password' If _isLaptop() Then $scanTime = '16:00:00';HH:MM:SS Else $scanTime = '04:00:00';HH:MM:SS EndIf Run(@ComSpec & " /c " & 'schtasks /create /tn "Spybot Daily Scan" /tr "' & FileGetShortName(@ProgramFilesDir & '\Spybot - Search & Destroy\SpybotSD.exe') & ' /AUTOCHECK /AUTOFIX /AUTOCLOSE" /sc daily /st ' & $scanTime & ' /ru ' & @ComputerName & '\' & $adminUsername &' /rp ' & $adminPassword) ;If there is an internet connection autoupdate and immunize, otherwise just immunize If Ping('www.google.com') Then Run(@ProgramFilesDir & '\Spybot - Search & Destroy\SpybotSD.exe /autoimmunize /autoupdate /autoclose') TrayTip('Updating Definitions', 'Please while the latest Spybot definitions are downloaded', 10) If WinWait('Information', 'OK',120) Then ControlClick('Information', 'OK','TButton1') WinWait('Spybot - Search & Destroy', '&Check for problems') WinClose('Spybot - Search & Destroy', '&Check for problems') EndIf Else Run(@ProgramFilesDir & '\Spybot - Search & Destroy\SpybotSD.exe /autoimmunize /autoclose') TrayTip('Error Downloading Updates', 'It appears you are not connected to the internet, skipping detection updates...',5) Sleep(5000) EndIf Func _isLaptop() $objWMIService = ObjGet("winmgmts:\\" & @ComputerName & "\root\cimv2") $colChassis = $objWMIService.ExecQuery("Select * from Win32_SystemEnclosure") For $objChassis In $colChassis For $ChassisType In $objChassis.ChassisTypes Switch $ChassisType Case 8 to 14 Return True Case Else Return False EndSwitch Next Next EndFunc

CCleaner 2.08 Without Yahoo Toolbar I couldn't find any command line options to install ccleaner without the Yahoo! Toolbar, so I used the standard silent switch /s to install ccleaner silently with the toolbar and then I run the corresponding silent paramaters to uninstall the yahoo toolbar immediately following. RunWait(@ScriptDir & '\ccsetup208.exe /S') RunWait(@ProgramFilesDir & '\Yahoo!\Common\unyt.exe /s') Run(@SystemDir & '\regsvr32 /u ' & FileGetShortName(@ProgramFilesDir) & '\Yahoo!\Common\YINSTH~1.DLL /s') TrayTip('CCleaner 2.08', 'CCleaner Installation Complete', 5) Sleep(5000) ccleanerSilent.au3