Jump to content

Recommended Posts

Posted

This is the script. Few things are changed for privacy purpose like the company name etc... But, I get the following error message when it should be passing the credentials.

 

 

 

;============================================================

;       PSM AutoIt Dispatcher Skeleton

;       ------------------------------

;

; Use this skeleton to create your own

; connection components integrated with the PSM.

; Areas you may want to modify are marked

; with the string "CHANGE_ME".

;

; Created : April 2013

; Cyber-Ark Software Ltd.

;============================================================

;============================================================

;       PSM AutoIt IE Dispatcher to load VCenter 6.5 HTML5

;       ------------------------------

;

; VCSA login page

;

;

;

;

; Modified Skeleton : 

;

; Cyber-Ark Software Ltd.

;============================================================

#include "PSMGenericClientWrapper.au3"

#include <IE.au3>

 

 

;=======================================

; Consts & Globals

;=======================================

Global Const $DISPATCHER_NAME = "PSM TFS Dispatcher" ; NAME LastName 1/23/2020

Global Const $CLIENT_EXECUTABLE = "C:\Program Files\Internet Explorer\iexplore.exe https://tfs.Webly.com/tfs/_signout?redirectUrl=%2Ftfs%2FProjectsCollection%2FWebly%2F_library%3FitemType%3DVariableGroups&mode=SignInAsDifferentUser" ; NAME LastName 1/23/2020

Global Const $ERROR_MESSAGE_TITLE  = "PSM " & $DISPATCHER_NAME & " Dispatcher error message"

Global Const $LOG_MESSAGE_PREFIX = $DISPATCHER_NAME & " Dispatcher - "

 

Global $TargetUsername

Global $TargetPassword

Global $TargetAddress

Global $TargetDomain                      = "domain" ; NAME LastName 1/23/2020

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 & "...")

$ConnectionClientPID = Run($CLIENT_EXECUTABLE)

 

if ($ConnectionClientPID == 0) Then

Error(StringFormat("Failed to execute process [%s]", $CLIENT_EXECUTABLE, @error))

EndIf

 

; ------------------

; Handle login here! ; NAME LastName 1/23/2020

; ------------------

 

sleep (2000)

 

Send("{TAB}")

Send("{TAB}")

Send("{TAB}")

Send("{TAB}")

Send("{TAB}")

Send("{TAB}")

Send("{ENTER}")

 

Sleep (1000)

 

WinWaitActive("Login - Internet Explorer",5)

 

Local $oIE = _IEAttach("Login - Internet Explorer", "embedded")

 

 

Local $FormId = "loginForm"

Local $UsernameId = "username"

Local $PasswordId = "password"

 

 ; Without form

Local $oForm = _IEFormGetCollection($oIE, 0)

Local $oUserName = _IEGetObjByID($oIE, $UsernameId)

Local $oPassword = _IEGetObjByID($oIE, $PasswordId)

 

_IEFormElementSetValue($oUserName, $TargetDomain & "\" & $TargetUsername)

_IEFormElementSetValue($oPassword, $TargetPassword)

 

 ; By form submit

;_IEFormSubmit($oForm)

Send("{ENTER}")

 

 

; Send PID to PSM so recording/monitoring can begin

; Notice that until we send the PID, PSM blocks all user input.

LogWrite("sending PID to PSM")

if (PSMGenericClient_SendPID($ConnectionClientPID) <> $PSM_ERROR_SUCCESS) Then

Error(PSMGenericClient_PSMGetLastErrorString())

EndIf

 

; 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] Exit 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, True)

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 standard PSM log file

; Parameters ....: $sMessage - [IN] The message to write

;         $LogLevel - [Optional] [IN] Defined if the message should be handled as an error message or as a trace messge

; 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

 

; #FUNCTION# ====================================================================================================================

; Name...........: PSMGenericClient_GetSessionProperty

; Description ...: Fetches properties required for the session

; Parameters ....: None

; Return values .: None

; ===============================================================================================================================

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

starting psm dispatcher.JPG

LAUNCH error.JPG

  • 3 years later...
Posted (edited)

If i want to open web page in chrome browser, Will "_IEForm"  be same or different ? or Do we need to take some other value for chrome browser?

 

_IEFormElementSetValue($oUserName, $TargetDomain & "\" & $TargetUsername)

_IEFormElementSetValue($oPassword, $TargetPassword)

 

SetIEProperty("Fulscreen",1)

SetIEProperty("theatermode",1)

SetIEProperty("tooboar",0)

SetIEProperty("menubar",0)

SetIEProperty("addressbar",0)

 

 

 

 

Edited by MVKHAN26

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...