Option Explicit
Dim WSHShell: Set WSHShell = WScript.CreateObject("WScript.Shell")
'Khai bao key
Dim Root: Root = "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\System\"
Dim Key: Key = "DisableRegistryTools"
Dim ItemType: ItemType = "REG_DWORD"
'0:Enable , 1isable
Dim enaValue: enaValue = 0
Dim disValue: disValue = 1
'Cac cau thong bao
Dim enaMes: enaMes="Enabled !"
Dim disMes: disMes="Disabled !"
Dim mainMes: MainMes="Registry Editor is "
Err.Clear
On Error Resume Next
'lay va kiem tra gia (nhà) tri cua Key xem dang Enable hay Disable
Dim valueGet: valueGet = WSHShell.RegRead (Root & Key)
Dim errNum: errNum = Err.Number
'Neu khong co key thi tao key
On Error Goto 0
if errNum <> 0 then
WSHShell.RegWrite Root & Key , disValue, itemtype
End If
'Neu co key kiem tra gia (nhà) tri key n neu dang enable thi disable va nguoc lai
Dim MyBox
If valueGet = enaValue Then
WSHShell.RegWrite Root & Key , disValue, itemtype
MyBox = MsgBox(MainMes & disMes, 4096, "Success")
ElseIf valueGet = disValue then
WSHShell.RegWrite Root & Key, enaValue, itemtype
MyBox = MsgBox(MainMes & enaMes, 4096, "Success")
End If