Script halts after IE load

[weevil]

Hi All,

I am trying to automate inputting of username and password into a website.  Usually this works fine, but for some reason after loading IE, the script just stops.  No errors, just, nothing.  I think this might have something to do with the domain policy or IE policy of the customer, because when we take the machine off the domain, it works fine.  Has anyone encountered group policy from prohibiting AutoIt working correctly?

The code is below for reference

expandcollapse popup

#AutoIt3Wrapper_UseX64=n
Opt("MustDeclareVars", 1)

;=======================================
; Consts & Globals
;=======================================
Global Const $DISPATCHER_NAME                                   = "vSphere Web Client"
Global Const $CLIENT_EXECUTABLE                                 = "C:\Program Files (x86)\Internet Explorer\iexplore.exe"
Global Const $ERROR_MESSAGE_TITLE                               = "PSM " & $DISPATCHER_NAME & " Dispatcher error message"
Global Const $LOG_MESSAGE_PREFIX                                = $DISPATCHER_NAME & " Dispatcher - "
Global Const $EXACT_TITLE_MATCH = 3


AutoItSetOption("WinTitleMatchMode", $EXACT_TITLE_MATCH)

Global $TargetUsername
Global $TargetPassword
Global $TargetAddress
Global $ConnectionClientPID = 0

;=======================================
; Code
;=======================================
Exit Main()

;=======================================
; Main
;=======================================
Func Main()

    ; Init PSM Dispatcher utils wrapper
    ToolTip ("Initializing...")
    if (PSMGenericClient_Init() <> $PSM_ERROR_SUCCESS) Then
        Error(PSMGenericClient_PSMGetLastErrorString())
    EndIf

    LogWrite("successfully initialized Dispatcher Utils Wrapper")

    ; Get the dispatcher parameters
    FetchSessionProperties()

    LogWrite("mapping local drives")
    if (PSMGenericClient_MapTSDrives() <> $PSM_ERROR_SUCCESS) Then
        Error(PSMGenericClient_PSMGetLastErrorString())
    EndIf

    LogWrite("starting client application")
    ToolTip ("Starting " & $DISPATCHER_NAME & "...")
      RegWrite ( "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" , "1A10", "REG_DWORD", 0 )
   RegWrite ( "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" , "2500", "REG_DWORD", 3 ) ; disable protected mode in IE to prevent flash popups
   RegWrite ( "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main" , "NoProtectedModeBanner", "REG_DWORD", 1 ) ; disable warning about protected mode.
   RegWrite ( "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\" & $TargetAddress , "http", "REG_DWORD", 00000002 )
   RegWrite ( "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\" & $TargetAddress , "https", "REG_DWORD", 00000002 ) ; add targetaddress to trusted sites.
tooltip("finished writing reg keys")
    Local $oIE = _IECreate("https://" & $TargetAddress & ":9443/vsphere-client/#/")
    tooltip("inside ie function")
      With $oIE
         .Left = 0
         .Right = 0
         .Resizable = False
         .StatusBar = False
         .TheaterMode = True
         .Toolbar = False
         .Visible = True
         .Fullscreen = True
     EndWith
     tooltip("before clientPID")
    $ConnectionClientPID = WinGetProcess("[CLASS:IEFrame]")
    if ($ConnectionClientPID == 0) Then
        Error(StringFormat("Failed to execute process [%s]", $CLIENT_EXECUTABLE, @error))
    EndIf
    ; Send PID to PSM as early as possible so recording/monitoring can begin
    LogWrite("sending PID to PSM")
    if (PSMGenericClient_SendPID($ConnectionClientPID) <> $PSM_ERROR_SUCCESS) Then
        Error(PSMGenericClient_PSMGetLastErrorString())
    EndIf

    ; ------------------
    ; Handle login here!
    ; ------------------
Tooltip("inside login")
    WinWait("Certificate Error: Navigation Blocked - Internet Explorer")
    send("{TAB 2}")
    SEND("{ENTER}")
    WinWait("vSphere Web Client - Internet Explorer")
    ; - Enter  Credentials
    Sleep("15000")
    ToolTip("Waiting for background processes to load")
    Send($TargetUsername)
    Send("{TAB}")
    Send($TargetPassword)
    Send("{Enter}")
    BlockInput(0)


    ; Terminate PSM Dispatcher utils wrapper
    LogWrite("Terminating Dispatcher Utils Wrapper")
    PSMGenericClient_Term()

    Return $PSM_ERROR_SUCCESS
EndFunc


;==================================
; Functions
;==================================
; #FUNCTION# ====================================================================================================================
; Name...........: Error
; Description ...: An exception handler - displays an error message and terminates the dispatcher
; Parameters ....: $ErrorMessage - Error message to display
;                  $Code         - [Optional] Error code
; ===============================================================================================================================
Func Error($ErrorMessage, $Code = -1)

    ; If the dispatcher utils DLL was already initialized, write an error log message and terminate the wrapper
    if (PSMGenericClient_IsInitialized()) Then
        LogWrite($ErrorMessage, 0)
        PSMGenericClient_Term()
    EndIf

    Local $MessageFlags = BitOr(0, 16, 262144) ; 0=OK button, 16=Stop-sign icon, 262144=MsgBox has top-most attribute set

    MsgBox($MessageFlags, $ERROR_MESSAGE_TITLE, $ErrorMessage)

    ; If the connection component was already invoked, terminate it
    if ($ConnectionClientPID <> 0) Then
        ProcessClose($ConnectionClientPID)
        $ConnectionClientPID = 0
    EndIf

    Exit $Code
EndFunc

; #FUNCTION# ====================================================================================================================
; Name...........: LogWrite
; Description ...: Write a PSMWinSCPDispatcher log message to the standard PSM log file
; Parameters ....: $sMessage - [IN] The message to write
;                  $LogLevel - [IN] Defined if the message should be handled as an error message.
;                                   Valid values are either $LOG_LEVEL_TRACE or $LOG_LEVEL_ERROR.
; Return values .: $PSM_ERROR_SUCCESS - Success, otherwise error - Use PSMGenericClient_PSMGetLastErrorString for details.
; ===============================================================================================================================
Func LogWrite($sMessage, $LogLevel = $LOG_LEVEL_TRACE)
    Return PSMGenericClient_LogWrite($LOG_MESSAGE_PREFIX & $sMessage, $LogLevel)
EndFunc

Func FetchSessionProperties() ; CHANGE_ME
    if (PSMGenericClient_GetSessionProperty("Username", $TargetUsername) <> $PSM_ERROR_SUCCESS) Then
        Error(PSMGenericClient_PSMGetLastErrorString())
    EndIf

    if (PSMGenericClient_GetSessionProperty("Password", $TargetPassword) <> $PSM_ERROR_SUCCESS) Then
        Error(PSMGenericClient_PSMGetLastErrorString())
    EndIf

    if (PSMGenericClient_GetSessionProperty("Address", $TargetAddress) <> $PSM_ERROR_SUCCESS) Then
        Error(PSMGenericClient_PSMGetLastErrorString())
    EndIf
EndFunc

 

[BrewManNH]

Where does it stop? Does it exit the script or just hang at some point? You have 2 WinWaits that could be causing it to stop at either one of those points, can't tell because you don't include the target address.

[weevil]

Sorry i should have said.  It stops immediately after

Local $oIE = _IECreate("https://" & $TargetAddress & ":9443/vsphere-client/#/")

It doesn't even modify IE as the next few lines indicate.

[Juvigy]

I think this is related to security across different domains. Instead of IECreate(address) try _IEcreate (blank) and then _IENavigate or $oIE.navigete2

[weevil]

1 hour ago, Juvigy said:

I think this is related to security across different domains. Instead of IECreate(address) try _IEcreate (blank) and then _IENavigate or $oIE.navigete2

You legend, this was it exactly!  I opened a blank IE, let it do its thing, then navigated to the website successfully.

 

Thank you so much!

[Juvigy]

You are welcome!