Sabaha kadar uğraştım. Scripti sanırım yapabildim. Epey bi uğraştım. Biara laptop karşısında uyuyakalmışım. :)
Neyse bikaç sorun vardı. Onlarıda çözdüm. kısaca yazayım. Buna benzer script hazırlamak isteyen arkadaşlar varsa onlarada faydası olur.
İlk olarak scriptte zamanlanmış görevlerin başına "\Microsoft\Windows ekledim.
Böyle olunca yolu bulamama gibi hata söz konusu olmayacakmış.
Sonrada deneme amaçlı saat tarih ile ilgili bi göreve aç kapa yapmak için 2 script yaptım. Fakat çalışmadı.
ve satır 12 söz dizimi gibi bi hata verdi. Epey bi uğraşarak el yordamıyla o sorunuda çözdüm.
bu sorunun kaynağıda zamanlanmış görev yolundaki gereksiz bir karakterden kaynaklanmasıymış.
Mesela aşağıda bu görevi açıp kapatmak istiyorum ya ;
"\Time Zone\SynchronizeTimeZone", _
Bu görevin tam yolu hatasız bir şekilde şöyle olmalıymış.
"\Microsoft\Windows\Time Zone\SynchronizeTimeZone"_
Yani zamanlanmış görev yolunda virgül işareti , olmaması gerekiyormuş.
Bu ve buna benzer vbscript hazırlamak isteyen arkadaşlar varsa lütfen bu küçük ve önemli ayrıntıya dikkat etsinler.
Yani teee en başta ai motorlarının verdiği vbscript çıktısı bu yüzden hatalıymış sanırım.
Şuan scriptlerin sonundan virgül işaretini kaldırdım. deneme amaçlı Saat tarih ile ilgili görevi aç kapa yapan script artık sorunsuz çalışıyor.
Tüm bu düzenlemelerin ardından kullanmak istediğim vbscript aşağıdaki gibi oldu.
burak_task_disable (seçili tüm zamanlanmış görevleri devre dışı bırakır)
Kod: Tümünü seç
If Not WScript.Arguments.Named.Exists("elevated") Then
CreateObject("Shell.Application").ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """ /elevated", "", "runas", 0
WScript.Quit
End If
Set WshShell = CreateObject("WScript.Shell")
On Error Resume Next
tasks = Array( _
"\Microsoft\Windows\.NET Framework\.NET Framework NGEN v4.0.30319",_
"\Microsoft\Windows\.NET Framework\.NET Framework NGEN v4.0.30319 64",_
"\Microsoft\Windows\AppID\EDP Policy Manager",_
"\Microsoft\Windows\Application Experience\Microsoft Compatibility Appraiser",_
"\Microsoft\Windows\Application Experience\ProgramDataUpdater",_
"\Microsoft\Windows\Application Experience\StartupAppTask",_
"\Microsoft\Windows\ApplicationData\CleanupTemporaryState",_
"\Microsoft\Windows\ApplicationData\DsSvcCleanup",_
"\Microsoft\Windows\Autochk\Proxy",_
"\Microsoft\Windows\Bluetooth\UninstallDeviceTask",_
"\Microsoft\Windows\BrokerInfrastructure\BgTaskRegistrationMaintenanceTask",_
"\Microsoft\Windows\Chkdsk\ProactiveScan",_
"\Microsoft\Windows\CloudExperienceHost\CreateObjectTask",_
"\Microsoft\Windows\CUAssistant\CULauncher",_
"\Microsoft\Windows\Customer Experience Improvement Program\Consolidator",_
"\Microsoft\Windows\Customer Experience Improvement Program\UsbCeip",_
"\Microsoft\Windows\Device Information\Device",_
"\Microsoft\Windows\Diagnosis\Scheduled",_
"\Microsoft\Windows\DiskCleanup\SilentCleanup",_
"\Microsoft\Windows\DiskDiagnostic\Microsoft-Windows-DiskDiagnosticDataCollector",_
"\Microsoft\Windows\DiskFootprint\Diagnostics",_
"\Microsoft\Windows\DiskFootprint\StorageSense",_
"\Microsoft\Windows\DUSM\dusmtask",_
"\Microsoft\Windows\Feedback\Siuf\DmClient",_
"\Microsoft\Windows\Feedback\Siuf\DmClientOnScenarioDownload",_
"\Microsoft\Windows\FileHistory\File History (maintenance mode)",_
"\Microsoft\Windows\LanguageComponentsInstaller\Installation",_
"\Microsoft\Windows\License Manager\TempSignedLicenseExchange",_
"\Microsoft\Windows\Location\Notifications",_
"\Microsoft\Windows\Location\WindowsActionDialog",_
"\Microsoft\Windows\Maintenance\WinSAT",_
"\Microsoft\Windows\Management\Provisioning\Cellular",_
"\Microsoft\Windows\Maps\MapsToastTask",_
"\Microsoft\Windows\Maps\MapsUpdateTask",_
"\Microsoft\Windows\MemoryDiagnostic\ProcessMemoryDiagnosticEvents",_
"\Microsoft\Windows\MemoryDiagnostic\RunFullMemoryDiagnostic",_
"\Microsoft\Windows\Mobile Broadband Accounts\MNO Metadata Parser",_
"\Microsoft\Windows\MUI\LPRemove",_
"\Microsoft\Windows\NetTrace\GatherNetworkInfo",_
"\Microsoft\Windows\NlaSvc\WiFiTask",_
"\Microsoft\Windows\PI\Secure-Boot-Update",_
"\Microsoft\Windows\Pi\Sqm-Tasks",_
"\Microsoft\Windows\Power Efficiency Diagnostics\AnalyzeSystem",_
"\Microsoft\Windows\Printing\EduPrintProv",_
"\Microsoft\Windows\PushToInstall\Registration",_
"\Microsoft\Windows\Ras\MobilityManager",_
"\Microsoft\Windows\Registry\RegIdleBackup",_
"\Microsoft\Windows\RemoteAssistance\RemoteAssistanceTask",_
"\Microsoft\Windows\rempl\shell",_
"\Microsoft\Windows\Servicing\StartComponentCleanup",_
"\Microsoft\Windows\SettingSync\BackupTask",_
"\Microsoft\Windows\Shell\FamilySafetyMonitor",_
"\Microsoft\Windows\Shell\FamilySafetyRefreshTask",_
"\Microsoft\Windows\Speech\SpeechModelDownloadTask",_
"\Microsoft\Windows\SystemRestore\SR",_
"\Microsoft\Windows\Task Manager\Interactive",_
"\Microsoft\Windows\Time Synchronization\ForceSynchronizeTime",_
"\Microsoft\Windows\Time Synchronization\SynchronizeTime",_
"\Microsoft\Windows\Time Zone\SynchronizeTimeZone",_
"\Microsoft\Windows\TPM\Tpm-HASCertRetr",_
"\Microsoft\Windows\TPM\Tpm-Maintenance",_
"\Microsoft\Windows\UPnP\UPnPHostConfig",_
"\Microsoft\Windows\USB\Usb-Notifications",_
"\Microsoft\Windows\Windows Defender\Windows Defender Scheduled Scan",_
"\Microsoft\Windows\Windows Error Reporting\QueueReporting",_
"\Microsoft\Windows\WindowsUpdate\Scheduled Start",_
"\Microsoft\Windows\WwanSvc\NotificationTask",_
"\Microsoft\Windows\XblGameSave\XblGameSaveTask"_
)
For Each task In tasks
WshShell.Run "schtasks /Change /TN """ & task & """ /DISABLE", 0, True
Next
MsgBox "burak task görevler devre dışı bırakıldı.", 64, "Tamam"
burak_task_enable (seçili tüm zamanlanmış görevleri etkinleştirir) yani windows varsayılanları, default.
Kod: Tümünü seç
If Not WScript.Arguments.Named.Exists("elevated") Then
CreateObject("Shell.Application").ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """ /elevated", "", "runas", 0
WScript.Quit
End If
Set WshShell = CreateObject("WScript.Shell")
On Error Resume Next
tasks = Array( _
"\Microsoft\Windows\.NET Framework\.NET Framework NGEN v4.0.30319",_
"\Microsoft\Windows\.NET Framework\.NET Framework NGEN v4.0.30319 64",_
"\Microsoft\Windows\AppID\EDP Policy Manager",_
"\Microsoft\Windows\Application Experience\Microsoft Compatibility Appraiser",_
"\Microsoft\Windows\Application Experience\ProgramDataUpdater",_
"\Microsoft\Windows\Application Experience\StartupAppTask",_
"\Microsoft\Windows\ApplicationData\CleanupTemporaryState",_
"\Microsoft\Windows\ApplicationData\DsSvcCleanup",_
"\Microsoft\Windows\Autochk\Proxy",_
"\Microsoft\Windows\Bluetooth\UninstallDeviceTask",_
"\Microsoft\Windows\BrokerInfrastructure\BgTaskRegistrationMaintenanceTask",_
"\Microsoft\Windows\Chkdsk\ProactiveScan",_
"\Microsoft\Windows\CloudExperienceHost\CreateObjectTask",_
"\Microsoft\Windows\CUAssistant\CULauncher",_
"\Microsoft\Windows\Customer Experience Improvement Program\Consolidator",_
"\Microsoft\Windows\Customer Experience Improvement Program\UsbCeip",_
"\Microsoft\Windows\Device Information\Device",_
"\Microsoft\Windows\Diagnosis\Scheduled",_
"\Microsoft\Windows\DiskCleanup\SilentCleanup",_
"\Microsoft\Windows\DiskDiagnostic\Microsoft-Windows-DiskDiagnosticDataCollector",_
"\Microsoft\Windows\DiskFootprint\Diagnostics",_
"\Microsoft\Windows\DiskFootprint\StorageSense",_
"\Microsoft\Windows\DUSM\dusmtask",_
"\Microsoft\Windows\Feedback\Siuf\DmClient",_
"\Microsoft\Windows\Feedback\Siuf\DmClientOnScenarioDownload",_
"\Microsoft\Windows\FileHistory\File History (maintenance mode)",_
"\Microsoft\Windows\LanguageComponentsInstaller\Installation",_
"\Microsoft\Windows\License Manager\TempSignedLicenseExchange",_
"\Microsoft\Windows\Location\Notifications",_
"\Microsoft\Windows\Location\WindowsActionDialog",_
"\Microsoft\Windows\Maintenance\WinSAT",_
"\Microsoft\Windows\Management\Provisioning\Cellular",_
"\Microsoft\Windows\Maps\MapsToastTask",_
"\Microsoft\Windows\Maps\MapsUpdateTask",_
"\Microsoft\Windows\MemoryDiagnostic\ProcessMemoryDiagnosticEvents",_
"\Microsoft\Windows\MemoryDiagnostic\RunFullMemoryDiagnostic",_
"\Microsoft\Windows\Mobile Broadband Accounts\MNO Metadata Parser",_
"\Microsoft\Windows\MUI\LPRemove",_
"\Microsoft\Windows\NetTrace\GatherNetworkInfo",_
"\Microsoft\Windows\NlaSvc\WiFiTask",_
"\Microsoft\Windows\PI\Secure-Boot-Update",_
"\Microsoft\Windows\Pi\Sqm-Tasks",_
"\Microsoft\Windows\Power Efficiency Diagnostics\AnalyzeSystem",_
"\Microsoft\Windows\Printing\EduPrintProv",_
"\Microsoft\Windows\PushToInstall\Registration",_
"\Microsoft\Windows\Ras\MobilityManager",_
"\Microsoft\Windows\Registry\RegIdleBackup",_
"\Microsoft\Windows\RemoteAssistance\RemoteAssistanceTask",_
"\Microsoft\Windows\rempl\shell",_
"\Microsoft\Windows\Servicing\StartComponentCleanup",_
"\Microsoft\Windows\SettingSync\BackupTask",_
"\Microsoft\Windows\Shell\FamilySafetyMonitor",_
"\Microsoft\Windows\Shell\FamilySafetyRefreshTask",_
"\Microsoft\Windows\Speech\SpeechModelDownloadTask",_
"\Microsoft\Windows\SystemRestore\SR",_
"\Microsoft\Windows\Task Manager\Interactive",_
"\Microsoft\Windows\Time Synchronization\ForceSynchronizeTime",_
"\Microsoft\Windows\Time Synchronization\SynchronizeTime",_
"\Microsoft\Windows\Time Zone\SynchronizeTimeZone",_
"\Microsoft\Windows\TPM\Tpm-HASCertRetr",_
"\Microsoft\Windows\TPM\Tpm-Maintenance",_
"\Microsoft\Windows\UPnP\UPnPHostConfig",_
"\Microsoft\Windows\USB\Usb-Notifications",_
"\Microsoft\Windows\Windows Defender\Windows Defender Scheduled Scan",_
"\Microsoft\Windows\Windows Error Reporting\QueueReporting",_
"\Microsoft\Windows\WindowsUpdate\Scheduled Start",_
"\Microsoft\Windows\WwanSvc\NotificationTask",_
"\Microsoft\Windows\XblGameSave\XblGameSaveTask"_
)
For Each task In tasks
WshShell.Run "schtasks /Change /TN """ & task & """ /ENABLE", 0, True
Next
MsgBox "burak task görevler etkinleştirildi.", 64, "Tamam"
Sanal yada gerçek makinada denemek isteyen olursa kullanabilir. Kaybolmasın diye olduğu gibi paylaşmak istedim.
İleride eksik yada hata falan bulursam duruma göre editlerim. Yada konuya yenisini eklerim.
Böyle birşeye hem benim, hemde birçok insanın ihtiyacı var bence. Çünkü bu kadar çok zamanlanmış görevin açık olması bence pek iyi değil.
Bu ve bunun gibi zamanlanmış görevleri eskisi gibi ellede kapatılabiliriz tabi. Ben yıllardır hep böyle yapardım mesela.
Fakat buda çok konforlu değil malesef. Ve her seferindede çok fazla zaman alabiliyor.
