![]() Loading |
VBScript |
JavaScript |
Powershell |
Search Options: List Internet Explorer Security Setting Values
|
||
' Description: Demonstration script that indicates whether scripting is enabled in the Internet Explorer Local Intranet zone.
On Error Resume Next Const HKEY_CURRENT_USER = &H80000001 strComputer = "." strEntry = "1400" Set objReg = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}\\" & strComputer & _ "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\" _ & "Zones\1" objReg.GetDWORDValue HKEY_CURRENT_USER, strKeyPath, strEntry, dwValue Select Case dwValue Case 0 strSetting = "Enabled" Case 1 strSetting = "Prompt" case 3 strSetting = "Disabled" End Select Wscript.Echo "Allow scripting: " & strSetting | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: |