How to RunAs different users with Internet Explorer

[Debby Browne]

We need to test our website as different users, so want to open Internet Explorer with "RunAs".

When I use this (on Windows XP):
SystemUtil.Run "C:\Program Files\Internet Explorer\iexplore.exe","","C:\Program Files\Internet Explorer","runas"
the RunAs dialog window opens but QTP just hangs there until that the user info is filled in manually. I want to be able to fill it in from QTP. I have added the RunAs dialog (and it's controls) to the object repository and want to set the User Name and password from QTP, but apparently that SystemUtil.Run statement doesn't complete until the browser is open.

Is there another way to do this, possible with a script (which would include the user name and password passed in as parameters)? If so, how? If not, what do others do to test as different users?

[JyotiRanjan]

Hi ,

Use the below Code,

Code:

Dim objShell, objNetwork
Dim domain, program, domainUser

Set objShell = CreateObject("WScript.Shell")
Set objNetwork = WScript.CreateObject("WScript.Network")
domain = objNetwork.ComputerName
program = "notepad.exe"
domainUser = getUserName
WScript.Sleep 1000
runAsDomainUser domain, domainUser, program


Function runAsDomainUser(fxDom, fxUser, fxProgram)

   MsgBox "runas /env /user:" & fxDom & "\" & fxUser & " " & Chr(34) & fxProgram & Chr(34) & "",0,"This is what is being passed to RUNAS"
   objShell.Run "runas /env /user:" & fxDom & "\" & fxUser & " " & Chr(34) & fxProgram & Chr(34) & "",1,False
  
End Function


Function getUserName

  getUserName = InputBox("Enter your Domain or Local Computer UserName")
  If getUserName = "" Then
    WScript.Quit
  End If
End Function