Vb.net – handle security popup using vbscript (without QTP/Selenium)

vb.netvbscriptwsh

I am automating an application login using vbscript.

I am using the code –

Dim objIE
Set objIE = Wscript.CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "https://portal url"

after this, there is a security pop up which asks for user name and password.

I dont want to disable the pop-up. Rather i want to be able to put user id and password in to it.

I tried handling it through

NewWindow3 method and
NewWindow2 method

which MSDN has provided for handling extra windows(This for development rather than for automation I guess) but does not work out.

`objIE.Document.GetElementByID

also does not work out becuse the pop-up does not come under 'Document' object. it comes directly under objIE, but could not find anything to handle it.

Best Answer

I use following code for pass credentials to the Windows Authentication dialog. I hope it helps.

Dim objIE, objWshShell
Set objIE = WScript.CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://url"
Set objWshShell = WScript.CreateObject("WScript.Shell")
With objWshShell
    WScript.Sleep 100
    .SendKeys "myusername" 'Focused by Default - Username
    WScript.Sleep 100
    .SendKeys "{TAB}" 'Skip To Password Field
    WScript.Sleep(100)
    .SendKeys "mypassword" 'Password     
    WScript.Sleep 100
    .SendKeys "{TAB}" 'Skip To "Remember Me" Checkbox
    WScript.Sleep 100
    .SendKeys "{TAB}" 'Skip To Submit Button
    WScript.Sleep 100
    .SendKeys "{ENTER}" 'GO
End With
Set objWshShell = Nothing
Set objIE = Nothing

Related Solutions

Dynamic arrays in VBScript with Split(). Is there a better way

The solution I usually go for is to resize the array each time I add new item to it. In that way the end array will never have any unused entries.

ReDim aArray(-1)

For i = 1 To 10
    ReDim Preserve aArray(UBound(aArray) + 1)
    aArray(UBound(aArray)) = i
Next

MsgBox Join(aArray, "," & vbNewLine)

Other solution proposed by Carlos is to do it using Dictionary object which is probably cleaner solution:

Set dic = CreateObject("Scripting.Dictionary")

dic.Add "Item1", ""
dic.Add "Item2", ""
dic.Add "Item3", ""

msgbox Join(dic.Keys, "," & vbNewLine)

Thanks, Maciej

Vba – Call Outlook procedure using VBScript

Tried & Tested!

Assuming that you have Outlook Application always running (according to comment below your question) you can do what you need in the following steps:

add a new task in Outlook, set subject to: "run macro YourMacroName" and set time (plus cycles) when your macro should start.

go to VBA Editor, open ThisOutlookSession module and add the following code inside (plus see the comments inside the code):

Private Sub Application_Reminder(ByVal Item As Object)

If TypeName(Item) = "TaskItem" Then
    Dim myItem As TaskItem
    Set myItem = Item
    If myItem.Subject = "run macro YourMacroName" Then

        Call YourMacroName    '...your macro name here

    End If
End If
End Sub

Best Answer

Related Solutions

Dynamic arrays in VBScript with Split(). Is there a better way

Vba – Call Outlook procedure using VBScript

Related Topic