Set WSHShell = CreateObject("WScript.Shell")

RegKey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\.Default\"

WSHShell.RegWrite regkey & "Enabled", 0, "REG_DWORD"