fullofdreamfullofhope
New Member
1 -Khóa/mở Regedit
Option Explicit
Dim Shell, n, MyBox, p, Title, errnum, vers, itemtype
Set Shell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\System\"
p = p & "DisableRegistryTools"
itemtype = "REG_DWORD"
Title = "infohoanh [Vn-Z].com"
Err.Clear
On Error Resume Next
n = Shell.RegRead (p)
On Error Goto 0
errnum = Err.Number
if errnum <> 0 then
Shell.RegWrite p, 0, itemtype
End If
If n = 0 Then
n = 1
Shell.RegWrite p, n, itemtype
Mybox = MsgBox("Registry cua ban da bi KHOA", Vbokonly, Title)
ElseIf n = 1 then
n = 0
Shell.RegWrite p, n, itemtype
Mybox = MsgBox("Registry cua ban da MO", Vbokonly, Title)
End If
Bạn copy lại, mở notepad ra rồi chép lại. save với phần mở rộng lớn và vbs
2- Khóa/mở Group policy
Option Explicit
Dim Shell, n, MyBox, p, Title, errnum, vers, itemtype
Set Shell = WScript.CreateObject("WScript.Shell")
p="HKCU\SOFTWARE\POLICIES\MICROSOFT\MMC\"
p = p & "RestrictToPermittedSnapins"
itemtype = "REG_DWORD"
Title = "infohoanh [Vn-Z].com"
Err.Clear
On Error Resume Next
n = Shell.RegRead (p)
On Error Goto 0
errnum = Err.Number
if errnum <> 0 then
Shell.RegWrite p, 0, itemtype
End If
If n = 0 Then
n = 1
Shell.RegWrite p, n, itemtype
Mybox = MsgBox("Group Policy cua ban da bi KHOA", Vbokonly, Title)
ElseIf n = 1 then
n = 0
Shell.RegWrite p, n, itemtype
Mybox = MsgBox("Group Policy cua ban da MO", Vbokonly, Title)
End If
Làm tương tự nhu trên nhá !
Option Explicit
Dim Shell, n, MyBox, p, Title, errnum, vers, itemtype
Set Shell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\System\"
p = p & "DisableRegistryTools"
itemtype = "REG_DWORD"
Title = "infohoanh [Vn-Z].com"
Err.Clear
On Error Resume Next
n = Shell.RegRead (p)
On Error Goto 0
errnum = Err.Number
if errnum <> 0 then
Shell.RegWrite p, 0, itemtype
End If
If n = 0 Then
n = 1
Shell.RegWrite p, n, itemtype
Mybox = MsgBox("Registry cua ban da bi KHOA", Vbokonly, Title)
ElseIf n = 1 then
n = 0
Shell.RegWrite p, n, itemtype
Mybox = MsgBox("Registry cua ban da MO", Vbokonly, Title)
End If
Bạn copy lại, mở notepad ra rồi chép lại. save với phần mở rộng lớn và vbs
2- Khóa/mở Group policy
Option Explicit
Dim Shell, n, MyBox, p, Title, errnum, vers, itemtype
Set Shell = WScript.CreateObject("WScript.Shell")
p="HKCU\SOFTWARE\POLICIES\MICROSOFT\MMC\"
p = p & "RestrictToPermittedSnapins"
itemtype = "REG_DWORD"
Title = "infohoanh [Vn-Z].com"
Err.Clear
On Error Resume Next
n = Shell.RegRead (p)
On Error Goto 0
errnum = Err.Number
if errnum <> 0 then
Shell.RegWrite p, 0, itemtype
End If
If n = 0 Then
n = 1
Shell.RegWrite p, n, itemtype
Mybox = MsgBox("Group Policy cua ban da bi KHOA", Vbokonly, Title)
ElseIf n = 1 then
n = 0
Shell.RegWrite p, n, itemtype
Mybox = MsgBox("Group Policy cua ban da MO", Vbokonly, Title)
End If
Làm tương tự nhu trên nhá !