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"