用vbs实现注册表开关的脚本

2009-9-28 17:03 868 0

摘要: 　　注册表开关[以下代码保存为.vbs] 　　Dim WSHShell,r,M,v,t,g,i 　　On Error Resume Next 　　Set WSHShell=WScript.Cre...

　　注册表开关[以下代码保存为.vbs] 　　Dim WSHShell,r,M,v,t,g,i 　　On Error Resume Next 　　Set WSHShell=WScript.CreateObject("WScript.Shell") 　　v="HKCU\Software\Microsoft\Windows\CurrentVersion\ 　　Policies\System\DisableRegistryTools" 　　i="REG_DWORD" 　　t="注册表开关" 　　r=WSHShell.RegRead(v) 　　g=1 　　If (r=1) Then g=0 　　If g=1 Then 　　WSHShell.RegWrite v,1,i 　　M=MsgBox("是否限制注册表编辑器?",4,t) 　　Else 　　WSHShell.RegDelete v 　　M=MsgBox("是否解除注册表编辑器限制?",4,t) 　　End If

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除