Controlling Windows MMC Internet Information Servcies (IIS) dialog

[grwork1]

Hi,

Using AutoItX3, does anyone know how I can access/ControlClick the "View Sites" control in the right-hand pane of the Windows Microsoft Management Console (MMC) Internet Information Servcies (IIS) dialog. I have no trouble ControlClick'ing other controls in the centre pane, e.g. "Filter" edit box and "Group by" drop down list.

PC is running Windows 7, 64-bit.

The following script is lauched using the following command in an Admin Command Prompt:

> C:\windows\syswow64\cscript <vbscriptName>.vbs

with AutoItX3.dll located in C:\windows\syswow64.

---------- The VB script:

Option Explicit

Dim oShell

Dim oAutoIt

Dim IISWIn

Dim result

Set oShell = WScript.CreateObject("WScript.Shell")

Dim intError

intError = oShell.Run("regsvr32 /s C:\WINDOWS\system32\AutoItX3.dll",,True)

Wscript.Sleep 3000

Set oAutoIt = WScript.CreateObject("AutoItX3.Control")

if oAutoIt.IsAdmin then WScript.Echo "Admin rights detected."

'Run an Internet Information Services Window

oShell.Run "%SystemRoot%\system32\inetsrv\iis.msc"

IISWIn = "iis - [internet Information Services (IIS) Manager]"

' Wait for the program window to appear and make it active

oAutoIt.WinWait IISWIn

oAutoIt.WinActivate IISWIn

if (oAutoIt.WinActive(IISWIn)) then

WScript.Echo "IISWIn Windowactive"

end if

result = oAutoIt.ControlClick(IISWIn, "", "Edit1") ' Class Text: Works! Cursor appears in "Filter" edit box. [OK]

result = oAutoIt.ControlSend(IISWIn, "", "Edit1", "ftp") ' [OK]

oAutoIt.Sleep 2000

result = oAutoIt.ControlClick(IISWIn, "", "WindowsForms10.COMBOBOX.app.0.21d16742") ' ClassnameNN: Works! "Group by" drop down list appears. [OK]

oAutoIt.Sleep 2000

result = oAutoIt.ControlClick(IISWIn, "", "View Sites") ' Class Text: "View Sites" is not left clicked!! [FAIL]

if (result <> 1) then

oShell.Popup("Error ControlClick") ' Never triggered.

wscript.quit

end if

'Try again after forcing focus to right-hand pane.

result = oAutoIt.ControlFocus(IISWIn, "", "WindowsForms10.window.8.app.0.21d167414") ' ClassnameNN:

if (result <> 1) then

oShell.Popup("Error ControlFocus")

wscript.quit

end if

oAutoIt.Sleep 2000

result = oAutoIt.ControlClick(IISWIn, "", "View Sites") ' [FAIL]

oAutoIt.Sleep 2000

' Try again using ClassName instead of Class Text and trying 2 left clicks.

result = oAutoIt.ControlClick(IISWIn, "", "WindowsForms10.STATIC.app.0.21d167411", "left", 2) ' [FAIL]

oAutoIt.Sleep 2000

WScript.Quit

P.S. IIS has to be enabled via 'Start\Control Panel\Programs and Features\Turn Windows Features on or off' for the iis.msc to exist.

Thanks in advance for anyone who tries this.

[ptrex]

Maybe this can get you started ?

MMC is a COM object is self

http://msdn.microsoft.com/en-us/library/windows/desktop/aa815371(v=vs.85).aspx

Rgds

ptrex