September 10, 2012

Script Untuk Meng Enable/disable Task Manager

 Salam blogger...
Berhubung kemarin ada yang minta pertolongan untuk meng Enable Task manager yang Disable permintaan ini diajukan oleh teman saya Aditia Wicaksono kali ini saya akan share cara untuk meng Enable/disable task manager yaitu dengan cara menggunakan Script dibawah ini...
berikut cara penggunaannya


1. copy script ini ke notepad

2. kemudian simpan notepad berektensi 'vbs'

'Enable/Disable Task Manager
'By jaenalcreativity - based on an idea by creativity
'© 2012 MPAM Rebooted - http://jaenalcreativity.co.cc/
'This code may be freely distributed/modified as long as it remains free of charge

Option Explicit
'Declare variables
Dim WSHShell, rr, rr2, MyBox, val, val2, ttl, toggle
Dim jobfunc, itemtype

On Error Resume Next

Set WSHShell = WScript.CreateObject("WScript.Shell")
val = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
val2 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
itemtype = "REG_DWORD"
jobfunc = "Task Manager is now "
ttl = "Result"

'reads the registry key value.
rr = WSHShell.RegRead (val)
rr2 = WSHShell.RegRead (val2)

toggle=1
If (rr=1 or rr2=1) Then toggle=0

If toggle = 1 Then
WSHShell.RegWrite val, 1, itemtype
WSHShell.RegWrite val2, 1, itemtype
Mybox = MsgBox(jobfunc & "disabled.", 4096, ttl)
Else
WSHShell.RegDelete val
WSHShell.RegDelete val2
Mybox = MsgBox(jobfunc & "enabled.", 4096, ttl)
End If

Semoga berhasil dan bermanfaat...:)

Share this

0 Comment to "Script Untuk Meng Enable/disable Task Manager"

Post a Comment

KOMENTAR DIMARI GAN...!!!