Click on IE10 tools --> f12 --> Comaptaibilty view to IE8

[theology]

Hi,
I have to open a IE session thne click on tools --> F12 and then change the setting to Comaptability mode ie 8.

Recorder below code but its not working.

Can you please help with DP.

Code:

SystemUtil.Run "C:\Program Files\Internet Explorer\iexplore.exe","","%HOMEDRIVE%%HOMEPATH%","" Browser("Internet Explorer Enhanced").WinToolbar("ToolbarWindow32").Press "&Tools" Browser("Internet Explorer Enhanced").WinMenu("ContextMenu").Select "F12 developer tools" SystemUtil.Run "C:\Program Files\Internet Explorer\iexplore.exe","","%HOMEDRIVE%%HOMEPATH%","" Browser("Internet Explorer Enhanced").Page("Internet Explorer Enhanced").Sync

[kamalteja]

You got to use Shell Scripting as part of your VB Script and below is the code

In the below code for the following line 1 is to Enable and 0 is to Disable "oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,1"

Code:

const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\BrowserEmulation" strValueName = "MSCompatibilityMode" oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,1 If Err = 0 Then oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue WScript.Echo "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\BrowserEmulation\MSCompatibilityMode"& "contains " & dwValue Else WScript.Echo "Error in creating key" & " and DWORD value = " & Err.Number End If

[theology]

Thanks Kamal:

I tried executing this on my box but still it showing view as IE10 , not changed to IE8.

Executed as test.vbs and test.bat file.

Apart from This I tried code like below , it press f12 but I donbt know how to click compatible view and select IE8.

Code:

Set WshShell = CreateObject("WScript.Shell") While Window("Developer Tools").Exist(2) = False Browser("micclass:=Browser").Page("micclass:=Page").SetTOProperty "focus", True WshShell.AppActivate "Internet Explorer" WshShell.SendKeys("{F12}") Wait(2) Wend WshShell.AppActivate "Developer Tools" WshShell.SendKeys("%c") Wait(2)