Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv") Call SetValue("DisableRegistryTools",0) Call SetValue("DisableTaskMgr",0) Function SetValue(sKeyName,iValue) Const HIVE = &H80000001 oReg.SetDWORDValue HIVE,"Software\Microsoft\Windows\CurrentVersion\Policies\System",sKeyName,iValue End Function
Remember Me
a@href@title, b