const HKEY_CURRENT_USER = &H80000001
Set StdOut = WScript.StdOut
on error resume next
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
disablejscript("SOFTWARE\Adobe\Adobe Acrobat\")
disablejscript("SOFTWARE\Adobe\Acrobat Reader\")

sub disablejscript(strKeyPath)
oReg.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys S
tdOut.WriteLine subkey
strSubKeyPath = strKeyPath & subkey & "\JSPrefs"
oReg.CreateKey HKEY_CURRENT_USER,strsubKeyPath
oReg.SetDWORDValue HKEY_CURRENT_USER,strSubKeyPath,"bConsoleOpen",0
oReg.SetDWORDValue HKEY_CURRENT_USER,strSubKeyPath,"bEnableJS",0
oReg.SetDWORDValue HKEY_CURRENT_USER,strSubKeyPath,"bEnableMenuItems",0
Next
end sub