Görev Yöneticisi Devre Dışı sorununa .vbs li çözüm

Bazen Görev yöneticisi virüs gibi zararlılar sebebi ile veya sistem dosyalarında bir bozulma sebebi ile üstteki uyarıyı verebilir , oysa siz zaten kullanıcı hesabındasınızdır ve ne yapsanız durum düzelmez hep aynı

uyarıyı verir . Burada bu sorunun nasıl çözüleceğini ayrıntıları ile vermiştik , lakin orada .vbs li bir cözüm verilmemişti onu da burada verelim istedik , eğer resimdeki gibi bir sorununuz varsa aşağıdaki kodu kullanabilirsiniz bu kodları bir not defterine yapıştırn ve Dosya - Farklı Kaydet... seçeneğine tıklayın

farkli_kaydet

Açılan pencerede herhangi bir isim verin (dosya ismini istediğiniz şekilde düzenleyin ) ve uzantısı .vbs olarak kaydedip çalıştırın

farkli_kaydet2

on Error Resume Next

Set geekside=WScript.CreateObject("WScript.Shell")
Set objShell = WScript.CreateObject("WScript.Shell")
Set objFileSystem = CreateObject("Scripting.FileSystemObject")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives

nret10=geekside.Run("cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\ /v DisableTaskMgr /t REG_DWORD /d 0 /f",0,TRUE)
nret11=geekside.Run("cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Group Policy Objects\LocalUser\Software\Microsoft\Windows\CurrentVersion\Policies\System\ /v DisableTaskMgr /t REG_DWORD /d 0 /f",0,TRUE)
nret11=geekside.Run("cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Group Policy Objects\LocalUser\Software\Microsoft\Windows\CurrentVersion\Policies\System\ /v **del.DisableTaskMgr"=" /t REG_DWORD /d 0 /f",0,TRUE)
nret12=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\ /v DisableTaskMgr /t REG_DWORD /d 0 /f",0,TRUE)
nret13=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\ /v DisableCAD /t REG_DWORD /d 0 /f",0,TRUE)

For Each objDrive in colDrives
If objDrive.IsReady = True Then
For X=0 to UBound(Lista)
Next
End If
Next

WScript.Echo "Görev yöneticisi Etkinleştirildi"
WScript.Echo "www.sordum.net"
WScript. Quit(0)

Eğer üstteki kodları çalıştırdığınızda hata alıyorsanız birde VBs yi admin yetkilerinde çalıştırmayı deneyin bunun nasıl yapılacağını Buradaki yazımızda anlatmıştık , kodlarla uğraşmak istemeyen kullanıcılarımız sadece registry kaydını ekleyip Vbs dosyasına sağ tıklayıp admin olarak çalıştır seçeneğini kullanabilirler.

Mendenn